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