<%@ 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      Response.Write "<P>"    if iStart > 0 then      'Show Prev link      Response.Write "<A HREF=""GetRows.asp?Start=" & iStart-iOffset & _                     "&Offset=" & iOffset & """>Previous " & iOffset & "</A>"    end if    if iStop < iRows then      'Show Next link      Response.Write " <A HREF=""GetRows.asp?Start=" & iStart+iOffset & _                     "&Offset=" & iOffset & """>Next " & iOffset & "</A>"    end if  %>