asp分页代码

最新推荐文章于 2016-06-02 12:51:41 发布

lhf0301

最新推荐文章于 2016-06-02 12:51:41 发布

阅读量470

点赞数

分类专栏： asp 学习文章标签： asp 数据库 sql

asp 学习专栏收录该内容

2 篇文章 0 订阅

订阅专栏

dim page
page=request("page")
PageSize = 5

读取数据库

rs.open sql,conn,1,1

rs.PageSize = PageSize    '分页处理
   totalfilm=rs.recordcount
   pgnum=rs.Pagecount
   if page="" then page=1
   if clng(page)<1 then page=1
   if clng(page) > pgnum then page=pgnum
   if pgnum>0 then rs.AbsolutePage=page
   count1=0
   t=3

do while not rs.eof and count1<rs.PageSize

‘循环

rs.movenext
     count1=count1+1
     t=t+1
           loop

翻页程序

[共<b><%=rs.pagecount%></b>页] [第<%=page%>页] [<%=pagesize%>条/页] [共<%=totalfilm%>条]
      <%if page=1 then%>
[首页] [上一页]
                    <% else %>
[<a href="?page=1&smsort=<%=request("smsort")%>&bigsort=<%=request("bigsort")%>&title=<%= request("title") %>">首
                    页</a>] [<a href="?page=<%=page-1%>&smsort=<%=request("smsort")%>&bigclass=<%=request("bigsort")%>&title=<%= request("title") %>">上一页</a>]
                    <%end if%>
                    <%if rs.pagecount-page<1 then%>
                    [下一页] [尾页]
                    <%else%>
[<a href="?page=<%=page+1%>&smsort=<%=request("smsort")%>&bigsort=<%=request("bigsort")%>&title=<%= request("title") %>">下一页</a>]
                    [<a href="?page=<%=rs.pagecount%>&smsort=<%=request("smsort")%>&bigsort=<%=request("bigsort")%>&title=<%= request("title") %>">尾
                    页</a>]