本人常用的分页代码

<table align="center" bgcolor="#FFFFFF" border="0" cellpadding="0" cellspacing="1" style="border:1px solid #799AE1" width="700"> 
  <tr> 
    <td bgcolor="#799AE1" class="blueback" colspan="5" height="25" style="text-indent:2em;">个人会员列表</td> 
  </tr> 
  <tr> 
    <td bgcolor="#ADBEEF" height="25" width="36"><div align="center">序号</div></td> 
    <td bgcolor="#ADBEEF" width="244"><div align="center">用户名</div></td> 
    <td bgcolor="#ADBEEF" width="140"><div align="center">加入日期</div></td> 
    <td bgcolor="#ADBEEF" width="140"><div align="center">等级</div></td> 
    <td bgcolor="#ADBEEF" width="140"><div align="center">操作</div></td> 
  </tr> 
<form action="gr_delselect.asp" method="post" name="formselect"> 
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 bookmark="" currentpage="1" dim="" do="" else="" end="" i="1" if="" not="" rs.eof="" rs.move="" showcontent="" showpage="" sub="" then="" totalput="" while=""> 
  <tr> 
    <td bgcolor="#D6DFF7" height="25"><div align="center"> 
      <input id="" name="memberid" type="checkbox" value="<%=rs("/>"> 
    </div></td> 
    <td bgcolor="#D6DFF7"><div align="center"></div></td> 
    <td bgcolor="#D6DFF7"><div align="center"></div></td> 
    <td bgcolor="#D6DFF7"><div align="center"></div></td> 
    <td bgcolor="#D6DFF7"><div align="center"><a href="#" id="">">修改</a> <a href="#" id="">)">删除</a></div></td> 
  </tr> 
  maxperpage then exit do 
  loop 
  end sub 
  %> 
      <tr> 
    <td bgcolor="#D6DFF7" colspan="5" height="25"><div align="center"> 
      <input class="closes" name="Submit" onclick="javascript:selectall()" type="button" value="全选"/> 
        
      <input class="closes" name="Submit2" type="submit" value="删除"/> 
       </div></td> 
    </tr> 
  </totalput></form> 
   
<tr> 
    <td align="center" bgcolor="#D6DFF7" colspan="5" height="30"> 
 
共有/条，

当前页/  
         
        [首页] [上一页] 
         
        <a href="#"><font color="red">[首页]</font></a> <a href="#"><font color="red">[上一页]</font></a> 
         
        [下一页] [尾页]<a href="#"><font color="red">[下一页]

</font></a> <a href="#"><font color="red">[尾页]</font></a> 
         
        转到：<select class="sle" name="dd" onchange="location.href=this.options[this.selectedIndex].value"> 
     <option selected="" value="<%=filename%>&page=<%=j%>"></option> 
      
     <option value="<%=filename%>&page=<%=j%>"></option> 
      
    </select></td></tr> 
     
</table> 
<table align="center" border="0" cellpadding="0" cellspacing="0" height="28" width="700"> 
  <tr> 
    <td> </td> 
  </tr> 
</table>

[Ctrl+A 全选注:如需引入外部Js需刷新才能执行]