复制代码代码如下: <%@language = vbscript%>
<%ตัวเลือก Explicit%>
-
rem 在 asp 中通过 getrows 实现数据库记录分页的一段代码
dimistart, ioffset
istart = คำขอ ("เริ่ม")
ioffset = คำขอ ("ชดเชย")
ifnotisnumeric (istart) Orlen (istart) = 0 แล้ว
istart = 0
อื่น
iStart = cint (istart)
endif
ifnotisnumeric (ioffset) Orlen (ioffset) = 0 แล้ว
ioffset = 30
อื่น
ioffset = cint (ioffset)
endif
Response.write "การดู" & ioffset & "recordsstartingatrecord" & istart & "<br>"
dimobjconn, objrs
setObjConn = server.createObject ("adodb.connection")
'objconn.open "dsn = mp3"
dimconnstr
สลัว
db = "csnjimageman.mdb"
connstr = "ผู้ให้บริการ = microsoft.jet.oledb.4.0; dataSource =" & server.mappath ("" & db & "")
objconn.openconnstr
setObjrs = server.createObject ("adodb.recordset"))
objrs.open "เลือก*fromimageinfo", objconn
dimaresults
aresults = objrs.getrows
objrs.close
setObjrs = ไม่มีอะไร
objconn.close
setObjConn = ไม่มีอะไร
Dimirows, iCols, irowloop, icolloop, istop
irows = ubound (aresults, 2)
icols = ubound (aresults, 1)
ifirows> (ioffset+istart) แล้ว
istop = ioffset+istart-1
อื่น
istop = irows
endif
forirowloop = istarttoistop
foricolloop = 0toicols
Response.writearesults (Icolloop, irowloop) & ""
ต่อไป
Response.write "<br>"
ต่อไป