代码驿站移动版
频道导航
HTML/Xhtml
CSS
JavaScript
HTML5
PHP教程
ASP.NET
正则表达式
AJAX
ThinkPHP
Yii
MySQL
MariaDB
Oracle
MongoDB
Redis
DedeCMS
PHPCMS
帝国CMS
WordPress
Discuz
其它CMS
Zend Studio
Sublime
Notepad
Dreamweaver
Windows
Linux
Nginx
Apache
IIS
CentOS
Ubuntu
Debian
网站优化
工具资源
PHP源码
ASP.NET源码
其它源码
图标素材
按钮素材
字体素材
DedeCMS模板
帝国CMS模板
PHPCMS模板
WordPress模板
Discuz!模板
单页模板
开发软件下载
服务器软件下载
广告投放
联系我们
版权申明
软件编程
网页前端
移动开发
数据库
服务器
脚本语言
PHP代码
JAVA代码
Python代码
Android代码
当前位置:
主页
>
软件编程
>
ASP代码
>
本人常用的分页代码
时间:2021-09-18 08:13:50 | 栏目:
ASP代码
| 点击:次
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>个人会员管理</title> <link href="main.css" rel="stylesheet" type="text/css" /> <style type="text/css"> .closes { font-size:9pt; color:#333333; background-color:#f7f7f7; border:1px solid #CCCCCC;} </style> <script type="text/javascript"> function selectall() { for (var z=0;z<=document.formselect.memberid.length;z++) { var e=document.formselect.memberid[z]; e.checked=!e.checked; } } function delmember(id) { if (confirm('你确定要删除此条信息吗?')){ window.open("gr_delselect.asp?id="+id,"","width=150,height=20,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");}} function killerror(){ return true; } window.onerror=killerror; </script> </head> <body> <table width="700" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" style="border:1px solid #799AE1"> <tr> <td height="25" colspan="5" bgcolor="#799AE1" style="text-indent:2em;" class="blueback">个人会员列表</td> </tr> <tr> <td width="36" height="25" bgcolor="#ADBEEF"><div align="center">序号</div></td> <td width="244" bgcolor="#ADBEEF"><div align="center">用户名</div></td> <td width="140" bgcolor="#ADBEEF"><div align="center">加入日期</div></td> <td width="140" bgcolor="#ADBEEF"><div align="center">等级</div></td> <td width="140" bgcolor="#ADBEEF"><div align="center">操作</div></td> </tr> <form action="gr_delselect.asp" method="post" name="formselect"> <% 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<totalput then rs.move (currentpage-1)*maxperpage dim bookmark bookmark=rs.bookmark showcontent showpage totalput,maxperpage,filename else currentpage=1 showcontent showpage totalput,maxperpage,filename end if end if end if sub showcontent() i=1 do while not rs.eof %> <tr> <td height="25" bgcolor="#D6DFF7"><div align="center"> <input type="checkbox" name="memberid" value="<%=rs("id")%>"> </div></td> <td bgcolor="#D6DFF7"><div align="center"><%=rs("dxy_username")%></div></td> <td bgcolor="#D6DFF7"><div align="center"><%=rs("datetime")%></div></td> <td bgcolor="#D6DFF7"><div align="center"><%=rs("dj")%></div></td> <td bgcolor="#D6DFF7"><div align="center"><a href="member_edit.asp?id=<%=rs("id")%>">修改</a> <a href="javascript:delmember(<%=rs("id")%>)">删除</a></div></td> </tr> <% rs.movenext i=i+1 if rs.eof then exit do if i>maxperpage then exit do loop end sub %> <tr> <td height="25" colspan="5" bgcolor="#D6DFF7"><div align="center"> <input name="Submit" type="button" class="closes" value="全选" onClick="javascript:selectall()"> <input name="Submit2" type="submit" class="closes" value="删除"> </div></td> </tr> </form> <% function showpage(totalnumber,maxperpage,filename) %> <tr> <td height="30" colspan="5" align="center" bgcolor="#D6DFF7"> <% 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%> <a href="<%=filename%>"><font color="red">[首页]</font></a> <a href="<%=filename%>&page=<%=currentpage-1%>"><font color="red">[上一页]</font></a> <%end if%><% if n-currentpage<1 then%> [下一页] [尾页]<%else%><a href="<%=filename%>&page=<%=currentpage+1%>"><font color="red">[下一页] </font></a> <a href="<%=filename%>&page=<%=n%>"><font color="red">[尾页]</font></a> <%end if%> 转到:<select name="dd" class="sle" onChange="location.href=this.options[this.selectedIndex].value"> <%for j=1 to n if currentpage=j then %><option value="<%=filename%>&page=<%=j%>" selected><%=j%></option> <% else %> <option value="<%=filename%>&page=<%=j%>"><%=j%></option> <% end if next %> </select></td></tr> <% end function %> </table> <table width="700" height="28" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td> </td> </tr> </table> </body> </html>
[Ctrl+A 全选 注:
引入外部Js需再刷新一下页面才能执行
]
您可能感兴趣的文章:
asp下过滤非法的SQL字符的函数代码
网站开发防止中文乱码需要了解的codepage的重要性小结
asp程序定义变量比不定义变量速度快一倍
asp数个使用技巧
asp实现生成由数字,大写字母,小写字母指定位数的随机数
相关文章
01-04
asp下sql和access数据库随机取10条记录的代码newid()
01-11
文件的读出 编辑 管理
12-30
asp在iis7报错行号不准问题的解决方法
11-11
再发几个ASP不错的函数
10-09
asp下为什么韩文字后面显示分号?
JQuery
VUE
AngularJS
MSSql
MySQL
MongoDB
Redis
Linux
Tomcat
Nginx
网站首页
广告投放
联系我们
版权申明
联系站长