程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> 本人常用的分頁代碼

本人常用的分頁代碼

編輯：關於ASP編程

<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> 
 
<meta name="viewport" content="width=device-width, initial-scale=1.0"></head>

<body> 
 
   
    個人會員列表 
   
   
    序號 
    用戶名 
    加入日期 
    等級 
    操作 
   
<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 
%> 
   
     
      <input type="checkbox" name="memberid" value="<%=rs("id")%>"> 
     
    <%=rs("dxy_username")%> 
    <%=rs("datetime")%> 
    <%=rs("dj")%> 
    ">修改 )">刪除 
   
  <% 
  rs.movenext 
  i=i+1 
  if rs.eof then exit do 
  if i>maxperpage then exit do 
  loop 
  end sub 
  %> 
       
     
      <input name="Submit" type="button" class="closes" value="全選" onClick="javascript:selectall()"> 
        
      <input name="Submit2" type="submit" class="closes" value="刪除"> 
        
     
  </form> 
  <% 
function showpage(totalnumber,maxperpage,filename) 
%> 
 
     
<% 
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%> 
        "><font color="red">[首頁]</font> &page=<%=currentpage-1%>"><font color="red">[上一頁]</font> 
        <%end if%><% if n-currentpage<1 then%> 
        [下一頁] [尾頁]<%else%>&page=<%=currentpage+1%>"><font color="red">[下一頁]

</font> &page=<%=n%>"><font color="red">[尾頁]</font> 
        <%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> 
    <% 
end function 
%> 
 
 
   
      
   
 
</body> 
</html>

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

關於ASP編程