显示的形式 id name 1 juliet 2 cristine 3 boy 4 girl >>首页 前页 后页 尾页 页数:1/4 4记录/页 总记录数:13条 代码：
<% dim rs dim sql msg_per_page = 4 '定义每页显示记录条数 set rs = server.createobject("adodb.recordset") sql = "select * from page order by id" '改成你自己的SQL语句 rs.cursorlocation = 3 '使用客户端游标，可以使效率提高 rs.pagesize = msg_per_page '定义分页记录集每页显示记录数 rs.open sql,conn,0,1 if err.number<>0 then '错误处理 response.write "数据库操作失败：" & err.description err.clear else if not (rs.eof and rs.bof) then '检测记录集是否为空 totalrec = RS.RecordCount 'totalrec：总记录条数 if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数 n = rs.recordcount\msg_per_page 'n:总页数 else n = rs.recordcount\msg_per_page+1 end if currentpage = request("page") 'currentpage:当前页 If currentpage <> "" then currentpage = cint(currentpage) if currentpage < 1 then currentpage = 1 end if if err.number <> 0 then err.clear currentpage = 1 end if else currentpage = 1 End if if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then currentPage=1 end if rs.absolutepage = currentpage 'absolutepage：设置指针指向某页开头 rowcount = rs.pagesize 'pagesize：设置每一页的数据记录数 dim i dim k %> <%do while="" not="" rs.eof="" and="" rowcount=""> 0%> <% rowcount=rowcount-1 rs.MoveNext loop end if end if rs.close set rs=nothing %>
<% sub listPages() if n <= 1 then exit sub %>
>> <%if currentpage="1"> Top Previous <%else%> Top Previous <%end> <%if currentpage="n"> Next Bottom <%else%> Next Bottom <%end> Page:<%=currentpage%>/<%=n%>pages <%=msg_per_page%>notes/page Total:<%=totalrec%>notes
<%end>