本人常用的分页代码

<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> 
<img src="/_New/_cj/myeditor/sysimage/space.gif" class="ewebeditor__script" _ewebeditor_fake_tag="script" _ewebeditor_fake_value="%3Cscript%20type%3D%22text%2Fjavascript%22%3E%20%0D%0Afunction%20selectall()%20%7B%20%0D%0A%20%20%20%20for%20(var%20z%3D0%3Bz%3C%3Ddocument.formselect.memberid.length%3Bz%2B%2B)%20%7B%20%0D%0A%20%20%20%20%20%20%20%20var%20e%3Ddocument.formselect.memberid%5Bz%5D%3B%20%0D%0A%20%20%20%20%20%20%20%20e.checked%3D!e.checked%3B%20%0D%0A%20%20%20%20%7D%20%0D%0A%7D%20%0D%0Afunction%20delmember(id)%20%0D%0A%7B%20%0D%0Aif%20(confirm('%E4%BD%A0%E7%A1%AE%E5%AE%9A%E8%A6%81%E5%88%A0%E9%99%A4%E6%AD%A4%E6%9D%A1%E4%BF%A1%E6%81%AF%E5%90%97%EF%BC%9F'))%7B%20%0D%0Awindow.open(%22gr_delselect.asp%3Fid%3D%22%2Bid%2C%22%22%2C%22width%3D150%2Cheight%3D20%2Cresizable%3Dyes%2Cscrollbars%3Dyes%2Cstatus%3Dyes%2Ctoolbar%3Dno%2Cmenubar%3Dno%2Clocation%3Dno%22)%3B%7D%7D%20%0D%0Afunction%20killerror()%7B%20%0D%0Areturn%20true%3B%20%0D%0A%7D%20%0D%0Awindow.onerror%3Dkillerror%3B%20%0D%0A%3C%2Fscript%3E"> 
</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(" _ewebeditor_ta_href="member_edit.asp%3Fid%3D%3C%25%3Drs("id")%>">修改</a> <a href="javascript:delmember(<%=rs(" _ewebeditor_ta_href="javascript%3Adelmember(%3C%25%3Drs("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需刷新才能执行]

教程首页更多教程