本人常用的分页代码

<% dim maxperpage maxperpage=20 if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if filename="gr_member.asp" dim rs set rs=server.CreateObject("adodb.recordset") sql="select id,dxy_username,datetime,dj from "&gr_membertable&" order by id desc" rs.open sql,conn,1,1 if rs.eof then response.write "没有相关信息" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*maxperpage>totalput then if (totalput mod maxperpage)=0 then currentpage=totalput\maxperpage else currentpage=totalput\maxperpage+1 end if end if if currentpage=1 then showcontent() showpage totalput,maxperpage,filename else if (currentpage-1)*maxperpage <% rs.movenext i=i+1 if rs.eof then exit do if i>maxperpage then exit do loop end sub %> <% function showpage(totalnumber,maxperpage,filename) %> <% end function %>

个人会员列表
"> </div>
</div>
<% dim n if totalnumber mod maxperpage=0 then n=totalnumber\maxperpage else n=totalnumber\maxperpage+1 end if %> 共有<%=totalnumber%>/<%=maxperpage%>条， 当前页<%=currentpage%>/<%=n%>  <%if currentpage<2 then%> [首页] [上一页] <%else%> ">[首页] &page=<%=currentpage-1%>">[上一页] <%end if%><% if n-currentpage<1 then%> [下一页] [尾页]<%else%>&page=<%=currentpage+1%>">[下一页]  &page=<%=n%>">[尾页] <%end if%> 转到： <%for j=1 to n if currentpage=j then %><%=j%> <% else %> <%=j%> <% end if next %>

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]</div> </div>