<％@语言= vbscript％>
<％选项分解％>
<％
rem在asp中通过getrows实现数据库记录分页的一段代码
Dimistart，Ioffset
istart =请求（“ start”）
ioffset =请求（“ offset”）
ifnotisnumeric（istart）orlen（istart）= 0
ISTART = 0
别的
istart = cint（istart）
Endif
ifnotisnumeric（iOffset）orlen（iOffset）= 0
iOffset = 30
别的
iOffset = Cint（iOffset）
Endif
wrest.write“查看”和ioffset＆“ records -startingatRecord”＆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
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
wress.writeareSults（icolloop，irowloop）和“”
下一个
响应。写入“ <br>”
下一个
响应。写入“ <p>”
ifistart> 0
'showprevlink
response.write“ <ahref =”“ getrows.asp？start =”＆istart-ioffset＆_
“＆offset =”＆ioffset＆“”“>上一个”＆ioffset＆“ </a>”
Endif
ifistop <irowsthen
'showingextlink
response.write“ <ahref =”“ getrows.asp？start =”＆istart+ioffset＆_
”＆offset =“＆ioffset＆”“> next”＆ioffset＆“ </a>”
Endif
％>