<％@語言= 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
％>