<% @ Language = vbscript%>
<% OptionExplicite%>
<%
rem 在 asp 中通过 getrows 实现数据库记录分页的一段代码
Dimistart, ioffset
istart = request ("start")
ioffset = request ("offset")
Ifnotisnumeric (istart) Orlen (istart) = 0Then
istart = 0
autre
Istart = Cint (Istart)
endire
ifnotisnumeric (ioffset) orlen (ioffset) = 0Then
ioffset = 30
autre
ioffset = cint (ioffset)
endire
Response.Write "Viewing" & ioffset & "Recordsstartingatrecord" & istart & "<br>"
Dimobjconn, objrs
SetObjConn = server.createObject ("adodb.connection")
'objconn.open "dsn = mp3"
dimconnstr
dimdb
db = "csnjimageman.mdb"
Connstr = "Provider = Microsoft.jet.oledb.4.0; DataSource =" & server.mappath ("" & db & "")
objconn.openconnstr
SetObjrs = server.createObject ("adodb.recordSet")
objrs.open "SELECT * FromImageInfo", Objconn
Dimaresults
aresults = objrs.getrows
objrs.close
SetObjrs = rien
objconn.close
SetObjConn = rien
DiMirows, ICOLS, IROWLOOP, ICOLLOP, ISTOP
irows = ubound (aresults, 2)
ICOLS = UBOUND (ARESULTS, 1)
IFirows> (ioffset + istart) puis
istop = ioffset + istart-1
Autre
istop = irows
Endire
Forrowloop = istarttoistop
Formicolloop = 0toicols
Response.WriteaSults (Icolloop, Irowloop) & ""
Suivant
Réponse.WRITE "<br>"
Suivant
Réponse.write "<p>"
iFistart> 0ment
'Showprevlink
Réponse.write "<ahref =" "getrows.asp? Start =" & istart-ioffset & _
"& Offset =" & ioffset & "" "> Précédent" & ioffset & "</a>"
endire
ifistop <irowsthhen
'ShowextLink
Réponse.write "<ahref =" "getrows.asp? Start =" & istart + ioffset & _
"& Offset =" & ioffset & "" "> Suivant" & ioffset & "</a>"
endire
%>