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