<%@Idioma = vbscript%>
<%OptionExplicit%>
<%
Rem 在 Asp 中通过 GetRows 实现数据库记录分页的一段代码
Dimistart, Ioffset
istart = request ("start")
Ioffset = request ("Offset")
ifnotisnumeric (iStart) orlen (iStart) = 0then
istart = 0
outro
istart = cint (istart)
endif
ifnotisnumeric (Ioffset) orlen (ioffset) = 0hen
Ioffset = 30
outro
Ioffset = Cint (Ioffset)
endif
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 = nada
objconn.close
SetoBJConn = nada
Dimirows, icols, Irowloop, IColloop, IStop
Irows = Ubound (Aresults, 2)
icols = ubound (Aresults, 1)
IFirows> (Ioffset+ISTART) então
iStop = Ioffset+ISTART-1
Outro
ISTOP = IROWS
Endif
Forirowloop = istarttoistop
Foricolloop = 0toicols
Response.WritEaresults (Icolloop, Irowloop) e ""
Próximo
Response.Write "<br>"
Próximo
Response.Write "<p>"
IFISTART> 0THEN
'ShowPrevlink
Response.write "<ahref =" "getRows.asp? Start =" & istart-ioffset & _
"& Offset =" & Ioffset & "" "Anterior" & Ioffset & "</a>"
endif
Ifistop <IrowsThen
'Mostrouxtlink
Response.Write "<ahref =" "getRows.asp? Start =" & iStart+Ioffset & _
"& Offset =" & Ioffset & "" "Next" & Ioffset & "</a>"
endif
%>