关闭

asp分页代码

428人阅读 评论(0) 收藏 举报

<%filepath=request.servervariables("path_info")%>
<%page=1 '设置变量初始值PAGE=1
page=request.querystring("page")  'page值为接受值
rs.PageSize = 20 '每页显示记录数
if Not IsEmpty(trim(Request("Page"))) then '如果PAGE已经初始化...
 Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量   
    if Page > rs.PageCount then '如果接收的页数大于总页数
        rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页       
    elseif Page <= 0 then '如果page小于等于0
        Page = 1 '设置PAGE等于第一页
    else
        rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
    end if
End if
Page = rs.AbsolutePage%>
<form action="<%=filepath%>" method="get">

  <p>第一种分页

    <%if rs.pagecount<>1 and rs.pagecount<>0 then%>
    <%if page>1 then%>
    <%if page<rs.pagecount then %>
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = 1%>">首页</a>]
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = page -1 %>">上一页</a>]
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
    <%else%>
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = 1%>">首页</a>]
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = page -1 %>">上一页</a>]
    [下一页] [尾页]
    <% end if %>
    <%else%>
[首页] [上一页]
[<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
[<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
<%end if %>
<%else%>
 [首页] [上一页] [下一页] [尾页]
 <%end if%>
  </p>
  <p>
   
    第二种分页
   
    <%if rs.pagecount<>1 and rs.pagecount<>0 then%>
    <%if page>1 then%>
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = 1%>">首页</a>]
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = page -1 %>">上一页</a>]
    <%if page<rs.pagecount then %>
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
    <%else%>
    [下一页] [尾页]
    <% end if %>
    <%else%>
    [首页] [上一页]
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
    <%end if %>
   <%else%>
    [首页] [上一页] [下一页] [尾页]
    <%end if%>
  </p>
  <p>
    第三种
   
    <%if rs.pagecount<>1 and rs.pagecount<>0 then%>
    <%if page<rs.pagecount then%>
    <%if page=1 then %>
    [首页] [上一页]
    <%else%>
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = 1%>">首页</a>]
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% =page -1 %>">上一页</a>]
    <% end if %>
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
    <%else%>
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% = 1%>">首页</a>]
    [<a href="http://blog.netbei.com/"<%=filepath%>?Page=<% =page -1 %>">上一页</a>]
    [下一页] [尾页]
    <%end if %>
   <%else%>
    [首页] [上一页] [下一页] [尾页]
  <%end if%>
   
    最后信息
   
    [页次:<font color=red><b><%=page%></b></font>/<%=rs.PageCount%>]
    [共<%=rs.RecordCount%>篇 <font color=red><b><%=rs.PageSize%></b></font>篇/页]
    转到
  <input name="page" size=5 value="<%=page%>">
    页
  <input type="submit" value="GO">
    </p>
</form>  

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:97454次
    • 积分:2063
    • 等级:
    • 排名:第18545名
    • 原创:108篇
    • 转载:22篇
    • 译文:0篇
    • 评论:27条
    最新评论