asp分页代码
先建一个查询：
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from aaa",conn,1,1
定义一个变量，决定一页显示多少条记录：
dim page
page=0
if (not rs.eof and not rs.bof) then
page=1
if (request.QueryString("page") <> "") then
page=request.QueryString("page")
end if
rs.pagesize=5 '这里一页显示5条记录。
rs.absolutepage=page
end if
开始循环显示记录集：
<%
dim i
i=1
do while (not rs.eof and i<=rs.pagesize)
response.write(rs("id"))
i=i+1
rs.movenext
loop
%>
然后是分页：
<a href="*.asp?page=<%response.Write("1")%>">第一页</a>
<%if (page > 1) then%>
<a href="*.asp?page=<%response.Write(page-1)%>">上一页</a>
<%else%>
没有上一页
<%end if%>
<%if (cint(page) < cint(rs.pagecount) and cint(page) >= 1) then%>
<a href="*.asp?page=<%response.Write(page+1)%>">下一页</a>
<%else%>
没有下一页
<%end if%>
<a href="*.asp?page=<%response.Write(rs.pagecount)%>">最后一页</a>
当前第<%=page%>页
一共<%=rs.pagecount%>页
一共<%=rs.recordcount %>条记录
rs.pagecount、rs.movenext、rs.absolutepage等说明请参考：
