<%@Sprache = vbScript%>
<%OptionExplicit%>
<%
Rem 在 ASP 中通过 getrows 实现数据库记录分页的一段代码
Dimistart, ioffset
istart = request ("start")
ioffset = request ("offset")
ifnotisnumeric (iStart) Orlen (iStart) = 0Then
Istart = 0
anders
istart = cint (istart)
Endif
ifnotisnumeric (iOffset) orlen (iOffset) = 0Then
ioffset = 30
anders
iOffset = cint (ioffset)
Endif
Response.write "Anzeigen" & 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*fromageInfo", objconn
Dimaresults
aresults = objrs.getrows
objrs.close
SetObjrs = nichts
objconn.close
SetObjconn = nichts
Dimirows, ICOLs, Iriwloop, Icolloop, Istop
irows = Ubound (Aresults, 2)
iCols = Ubound (Aresults, 1)
Ifirows> (iOffset+istart) dann
ISTOP = IOFFSET+ISTART-1
Anders
iSTOP = IROWS
Endif
Forirowloop = Istarttoistop
Foricolloop = 0toicols
Response.writeAresults (icolloop, irewloop) & "" "
Nächste
Response.write "<br>"
Nächste
Response.write "<p>"
IFISTART> 0Then
'Showprevlink
Response.write "<aHref =" "getrows.asp? Start =" & istart-ioffset & _
"& Offset =" & ioffset & "" "> vorher" & ioffset & "</a>"
Endif
IFISTOP <IROWShen
'Theagextlink
Response.write "<aHref =" "getRows.asp? Start =" & itart+ioffset & _
"& Offset =" & ioffset & "" "> Next" & iOffset & "</a>"
Endif
%>