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 

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

%> 

（编辑：银川站长网）

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