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