本人常用的分页代码

<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">序号</td> <td width="244" bgcolor="#ADBEEF">用户名</td> <td width="140" bgcolor="#ADBEEF">加入日期</td> <td width="140" bgcolor="#ADBEEF">等级</td> <td width="140" bgcolor="#ADBEEF">操作</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"> <input type="checkbox" name="memberid" value="<%=rs("id")%>"> </td> <td bgcolor="#D6DFF7"><%=rs("dxy_username")%></td> <td bgcolor="#D6DFF7"><%=rs("datetime")%></td> <td bgcolor="#D6DFF7"><%=rs("dj")%></td> <td bgcolor="#D6DFF7"><a href="member_edit.asp?id=<%=rs("id")%>">修改</a> <a href="javascript:delmember(<%=rs("id")%>)">删除</a></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"> <input name="Submit" type="button" class="closes" value="全选" onClick="javascript:selectall()"> <input name="Submit2" type="submit" class="closes" value="删除"> </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需刷新才能执行]

时间： 2024-10-09 08:24:05

本人常用的分页代码

本人常用的分页代码的相关文章

本人常用的分页代码_ASP基础

本人常用的asp代码[原创]_应用技巧

本人常用的asp代码原创

THINKPHP内容分页代码分享

关于ASP分页代码的问题

Angular.js与Bootstrap相结合实现表格分页代码_AngularJS

sqlserver 通用存储过程分页代码

PHP中常用的分页类总结

关于PHP的分页代码