在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)