复制代码代码如下: <%@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