我经常使用的分页代码

我经常使用的分页代码，供大家参考

<%
   set rs=server.CreateObject("adodb.recordset")
   sql=" select * from book order by id desc"
   rs.open sql ,conn,1,1
               
    if rs.eof and rs.bof then
                response.Write("没有记录")
    else
        num=15
        rs.PageSize=num
        pages=rs.PageCount
        if curpage="" or not isNumeric(curpage) then
        curpage=1
        end if
        if curpage<1 then
        curpage=1
        end if

        rs.absolutepage=curpage
    end if
%>
                  


        <%if pages>0 then%>
        <a href="http://www.首页</a>|<%end if%>
        <%if curpage>=2 then%>
        <a href="http://www.上页</a>|<%end if%>
        <%if curpage+1<pages then%>
        <a href="http://www.下页</a> |<%end if%>
        <%if pages>=1 then%>
        <a href="http://www.尾页</a><%end if%>
    &nbsp;页数：<%response.write curpage&"/"&pages%>

         <%
         rs.close
         set rs=nothing
         %>