<%@Language = vbscript%>
<%OptionExplicit%>
<%
rem 在 asp 中通过 GetRows 实现数据库记录分页的一段代码
DIMISTART, IOFFSET
ISTART = запрос ("Start")
ioffset = request ("offset")
ifnotisnumeric (istart) orlen (iStart) = 0then
iStart = 0
еще
iStart = cint (iStart)
эндиф
ifnotisnumeric (ioffset) orlen (ioffset) = 0then
ioffset = 30
еще
ioffset = cint (ioffset)
эндиф
Response.write "Просмотр" & 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.openconstr
SetObjrs = server.createObject ("adodb.recordset")
objrs.open "select*fromimageinfo", objconn
Dimaresults
aresults = objrs.getrows
objrs.close
Setobjrs = ничего
objconn.close
Setobjconn = ничего
Dimirows, Icols, Irowloop, Icolloop, Istop
AROWS = UBOUND (Aresults, 2)
iCols = ubound (Aresults, 1)
Ifirows> (iOffset+iStart) затем
ISTOP = IOFFSET+ISTART-1
Еще
istop = усыстка
Эндиф
ForiRowoop = istarttoistop
Foricolloop = 0toicols
Response.writearesults (icolloop, rowloop) и ""
Следующий
Response.write "<br>"
Следующий
Response.write "<p>"
ifistart> 0then
'Showprevlink
Response.write "<ahref =" "getRows.asp? Start =" & istart-ioffset & _
"& Offset =" & ioffset & "" "> предыдущий" & ioffset & "</a>"
эндиф
ifistop <irowshen
'Selectextlink
Response.write "<ahref =" "getRows.asp? Start =" & iStart+ioffset & _
"& Offset =" & ioffset & "" "> Next" & ioffset & "</a>"
эндиф
%>