本人常用的分页代码


            
 
 
 
个人会员管理 
 
 
.closes 
{ 
font-size:9pt; 
color:#333333; 
background-color:#f7f7f7; 
border:1px solid #CCCCCC;} 
 
 
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; 
 
 

 
 
   
    个人会员列表 
   
   
    序号 
    用户名 
    加入日期 
    等级 
    操作 
   
 
<% 
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 
%> 
   
     
      "> 
     
     
     
     
    ">修改 )">删除 
   
  <% 
  rs.movenext 
  i=i+1 
  if rs.eof then exit do 
  if i>maxperpage then exit do 
  loop 
  end sub 
  %> 
       
     
       
        
       
        
     
   
  <% 
function showpage(totalnumber,maxperpage,filename) 
%> 
 
     
<% 
dim n 
if totalnumber mod maxperpage=0 then 
n=totalnumber\maxperpage 
else 
n=totalnumber\maxperpage+1 
end if 
%> 
共有/条， 

当前页/  
         
        [首页] [上一页] 
         
        ">[首页] &page=">[上一页] 
         
        [下一页] [尾页]&page=">[下一页] 

 &page=">[尾页] 
         
        转到：<select name="dd" class="sle"  

onChange="location.href=this.options[this.selectedIndex].value"> 
     <%for j=1 to n 
     if currentpage=j then 
     %>&page=" selected> 
     <% 
     else 
     %> 
     &page="> 
     <% 
     end if 
     next 
     %> 
     
    <% 
end function 
%> 
 
 
   
      
   
 
 
 
  [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]