目录分页功能

 

淘宝网精品女装 :http://www.3netgo.com

原创博客 ：http://www.3netgo.com/blog

 

page=clng(request("page"))
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From [news] order by id desc",Conn,1,1
if rs.eof and rs.bof then
response.Write("<div align='center' class='bg'>没哦!</div>")
else
rs.PageSize=10
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page

<div align="center">
            当前第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp;
            跳转到第
            <%for i=1 to rs.pagecount%>
            <a href="index.asp?page=<%=i%>"><%=i%></a>
            <%
            next
            rs.close
            set rs=nothing
            %> 
            页     
          </div>