在asp中经过getrows实现数据库记录分页的一段代码

在asp中经过getrows实现数据库记录分页的一段代码：

代码如下:<%@ Language = VBSCRIPT %> 

<% Option Explicit %> 

<% 

rem 在asp中通过getrows实现数据库记录分页的一段代码 

  Dim iStart, iOffset 

  iStart = Request("Start") 

  iOffset = Request("Offset") 

  if Not IsNumeric(iStart) or Len(iStart) = 0 then 

    iStart = 0 

  else 

    iStart = CInt(iStart) 

  end if 

  if Not IsNumeric(iOffset) or Len(iOffset) = 0 then 

    iOffset = 30 

  else 

    iOffset = Cint(iOffset) 

  end if 

  Response.Write "Viewing " & iOffset & " records starting at record " & iStart & "<BR>" 

  Dim objConn, objRS 

  Set objConn = Server.CreateObject("ADODB.Connection") 

  'objConn.Open "DSN=MP3" 

dim connstr 

dim db 

db="csnjimageman.mdb" 

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") 

objconn.Open connstr 

  Set objRS = Server.CreateObject("ADODB.Recordset") 

  objRS.Open "SELECT * FROM imageinfo", objConn 

  Dim aResults 

  aResults = objRS.GetRows 

  objRS.Close 

  Set objRS = Nothing 

  objConn.Close 

  Set objConn = Nothing 

  Dim iRows, iCols, iRowLoop, iColLoop, iStop 

  iRows = UBound(aResults, 2) 

  iCols = UBound(aResults, 1) 

  If iRows > (iOffset + iStart) Then 

    iStop = iOffset + iStart - 1 

  Else 

    iStop = iRows 

  End If 

  For iRowLoop = iStart to iStop 

    For iColLoop = 0 to iCols 

      Response.Write aResults(iColLoop, iRowLoop) & " " 

    Next 

    Response.Write "<BR>" 

  Next  

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!