<%@Bahasa = VBScript%>
<%OptionExplicit%>
<%
rem 在 asp 中通过 getrows 实现数据库记录分页的一段代码
Dimistart, ioffset
iSTart = request ("start")
iOffset = permintaan ("offset")
ifnotisnumeric (Istart) orlen (ISTART) = 0then
ISTART = 0
kalau tidak
Istart = cint (ISTART)
endif
ifnotisnumeric (iOffset) orlen (iOffset) = 0then
iOffset = 30
kalau tidak
iOffset = cint (iOffset)
endif
Response.write "Viewing" & iOffset & "RecordStartAtRecord" & 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
Dimaresult
aresult = objrs.getrows
objrs.close
Setobjrs = tidak ada
objconn.close
Setobjconn = tidak ada
Dimirows, Icols, Irowloop, Icolloop, Istop
irows = ubound (aresults, 2)
icols = ubound (aresults, 1)
Ifirows> (iOffset+iStart) lalu
ISTOP = iOffset+ISTART-1
Kalau tidak
ISTOP = irows
Endif
Forirowloop = iStartToistop
Foricolloop = 0toicols
Response.Writearesults (Icolloop, Irowloop) & ""
Berikutnya
Response.write "<br>"
Berikutnya
Response.write "<p>"
ifistart> 0then
'Showprevlink
Response.write "<ahref =" "getrows.asp? Start =" & iStart-iOffset & _
"& Offset =" & iOffset & "" "> Sebelumnya" & iOffset & "</a>"
endif
Ifistop <irowsthen
'Ditunjukkan ExtelLink
Response.write "<ahref =" "getrows.asp? Start =" & iStart+iOffset & _
"& Offset =" & iOffset & "" "> Next" & iOffset & "</a>"
endif
%>