asp数据分页显示技术（列出页面版）

<%
set rs=server.createobject("adodb.recordset")
sql="select * from [img] order by id DESC"
rs.open sql,conn,1,3
%>
<%
rs.pagesize=10
pagecount=rs.pagecount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.absolutepage=page
for i=1 to rs.pagesize
if rs.eof or rs.bof then
response.Write ""
exit for
end if
%>
内容。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
<%
rs.movenext
next
%>
当前第<%=page%>页，
共<%=rs.pagecount%>页，
共<%=rs.recordcount%>条记录
<%for i=1 to pagecount%>
<a href="?page=<%=i%>&class=<%=request("class")%>">[<%=i%>页]</a>
<%next%>

转载于:https://www.cnblogs.com/ince/p/9154770.html