用asp 的分页显示功能:
<%
set rec=server.createobject("adodb.recordset")
……
rec.pagesize=16
dim sn,url,jj,row
rec.absolutepage=1
if request.querystring("page")<>"" then rec.absolutepage=request.querystring("page")
row=rec.pagesize
do while not rec.eof and row>0
………
rec.movenext
row=row-1
loop%>
共 [<%=rec.pagecount%>] 页<%
if rec.pagecount>1 then
response.write "|分页："
for i = 1 to rec.pagecount
response.write "
"&i&""
response.write " "
next
end if
%>
