本人常用的分页代码

更新时间：2006年06月21日 00:00:00 作者：

<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()">       &nbsp;       <input name="Submit2" type="submit" class="closes" value="删除">       &nbsp;</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%>&nbsp;         <%if currentpage<2 then%>         [首页]&nbsp;[上一页]         <%else%>         <a href="<%=filename%>"><font color="red">[首页]</font></a>&nbsp;<a href="<%=filename%>&page=<%=currentpage-1%>"><font color="red">[上一页]</font></a>         <%end if%><% if n-currentpage<1 then%>         [下一页]&nbsp;[尾页]<%else%><a href="<%=filename%>&page=<%=currentpage+1%>"><font color="red">[下一页] </font></a>&nbsp;<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>&nbsp;</td>   </tr> </table> </body> </html>

[Ctrl+A 全选注:引入外部Js需再刷新一下页面才能执行]

纯编码实现Access数据库的建立或压缩
纯编码实现Access数据库的建立或压缩...
2006-06-06
一段几乎可以让你死机的JS代码
一段几乎可以让你死机的JS代码...
2006-06-06
RESPONSE.WRITE和<%=%的区别
RESPONSE.WRITE和<%=%的区别...
2007-04-04
ASP常见的保留字整理(变量与表名注意不能用)
许多人在编写程序的时候因为贪图方便或不小心使用到程式的保留字，有时明明程序没有错，就是无法正确执行。您知道有哪些常见的保留字吗
2012-10-10
asp数组使用(2)
asp数组使用(2)...
2006-11-11
asp添加数据实现代码
数据代码程序，接受用户提交过来的数据，再保存到数据库教程中很方便等的哦，下面来看个详细的说明实例吧。
2010-09-09
HTTP_HOST 和 SERVER_NAME 的区别详解
HTTP_HOST 和 SERVER_NAME 的区别详解...
2007-02-02
ASP中Split分割字符串函数的实例用法小结
本文介绍了ASP中Split函数的用法,包括语法、参数和示例,Split函数用于将字符串分割成子字符串,并返回一个基于0的一维数组,示例展示了如何使用Split函数分割字符串并截取所需的部分,感兴趣的朋友跟随小编一起学习吧
2013-03-03
vbs(asp)下的Function 语句
vbs(asp)下的Function 语句...
2007-03-03
ASP 常见的连接字符串写法(access2007)
ASP中常见的连接字符串写法,包括了access2007等
2009-11-11

本人常用的分页代码

相关文章

最新评论

大家感兴趣的内容

最近更新的内容

常用在线小工具