<％@言語= vbscript％>
<％optionexplicit％>
<％
レム在asp中通过getRows实现数据库记录分页的一段代码
dimistart、ioffset
istart = request（ "start"）
ioffset = request（ "offset"）
ifnotisnumeric（istart）orlen（istart）= 0then
ISTART = 0
それ以外
ISTART = CINT（ISTART）
endif
ifnotisnumeric（ioffset）orlen（ioffset）= 0then
ioffset = 30
それ以外
ioffset = cint（ioffset）
endif
Response.Write "Viewing"＆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 =何もない
objconn.close
setobjconn =何もない
Dimirows、Icols、Irowloop、Icolloop、Istop
irows = ubound（aresults、2）
icols = ubound（aresults、1）
ifirows>（ioffset+istart）then
ISTOP = iOffset+ISTART-1
それ以外
ISTOP = IROWS
endif
forirowloop = istarttoistop
Foricolloop = 0toicols
Response.writearesults（icolloop、irowloop）＆ ""
次
Response.Write "<br>"
次
Response.Write "<p>"
ifistArt> 0then
'showprevlink
respons.write "<ahref =" "getRows.asp？start ="＆istart-ioffset＆_
"＆offset ="＆ioffset＆ "" ">前"＆ioffset＆ "</a>"
endif
ifistop <irowsthen
'shownextLink
respons.write "<ahref =" "getRows.asp？start ="＆istart+ioffset＆_
"＆offset ="＆ioffset＆ "" "> next"＆ioffset＆ "</a>"
endif
％>