PHP基础
PHP教程
php框架
JavaScript
asp.net
AJAX
正则表达式
ASP
输入
banner图
图片脚本
导航/分类
本人常用的分页代码
个人会员管理
个人会员列表
序号
用户名
加入日期
等级
操作
<% 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("dxy_username")%>
<%=rs("datetime")%>
<%=rs("dj")%>
">修改 )">删除
<% 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) %>
<% 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 %>
<% end function %>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]