源码天下
首页
|
最近更新
|
下载排行
|
下载分类
|
网友留言
|
源码发布
网站首页
WEB开发
数 据 库
软件开发
网页制作
操作系统
网站运营
平面设计
服 务 器
网络技术
文字广告位招租中
中文域名
双线空间
源码天下
->
技术文档
->
WEB开发
->
ASP技术
-> 文章内容
本人常用的分页代码
作者:佚名 来源:本站收集 发布时间:2008-5-15 21:38:11 发布人:wongrs
点击运行可以看到效果:
个人会员管理
个人会员列表
序号
用户名
加入日期
等级
操作
<% 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%>
[首页]
[上一页]
<%end if%><% if n-currentpage<1 then%> [下一页] [尾页]<%else%>
[下一页]
[尾页]
<%end if%> 转到:
<%for j=1 to n if currentpage=j then %>
<%=j%>
<% else %>
<%=j%>
<% end if next %>
<% end function %>
[Ctrl+A 全选 提示:你可先修改部分代码,再按运行]
[] [
返回上一页
] [
打 印
] [
收 藏
]
上一篇文章:
一句话木马连接客户端
下一篇文章:
截取实际长度字符串,并用空格替换
中国福网提供带宽支持