复制代码代码如下: <٪@language = vbscript ٪>
<٪ OptionExplicit ٪>
<٪
rem 在 asp 中通过 getrows 实现数据库记录分页的一段代码
Dimistart ، ioffset
istart = طلب ("ابدأ")
ioffset = طلب ("إزاحة")
ifnotisnumeric (iStart) orlen (istart) = 0then
istart = 0
آخر
istart = cint (istart)
Endif
ifnotisnumeric (ioffset) orlen (ioffset) = 0then
ioffset = 30
آخر
ioffset = cint (ioffset)
Endif
Response.write "عرض" و ioffset & "registsstartingatrecord" & 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.createBject ("adodb.recordset")
objrs.open "Select*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) و ""
التالي
الرد. "<br>"
التالي