asp 实现分页效果

<table width="577"  border="0" cellspacing="0" cellpadding="0" >
   <tr>
     <td>
    <hr align="center" color="#CCCCCC" noshade width="100%">
   </td>
    </tr>
    <tr>
   <td align=right>
    <div align="left">
    <%
       set conn=Server.CreateObject("ADODB.Connection")
       conn.open mycnstr
       set rs6=Server.CreateObject("ADODB.Recordset")
       sql="select * from contact where pid=14 and content2<>'' order by id desc"
       rs6.open sql,conn,1,1
    %>
    <%
     rs6.pagesize=5
     pagenum=rs6.pagecount
     page=int(request("page"))
     if page<=0 then page=1
     if request("page")="" then page=1
     if not(rs6.EOF OR rs6.BOF) then
      rs6.Absolutepage=page
     end if
    %>
    <%
     if rs6.EOF then
     response.Write("目前还没有留言")
     else
     for i=1 to rs6.pagesize
     if rs6.eof then
     exit for
     end if
     %>
      <table width="577" border="0" cellspacing="0" cellpadding="0">
        <tr>
       <td align="right"><div align="left"><%=i+(page-1)*5%>.条由<font color="#990000"><%=rs6("name")%></font>：在[<%=rs6("creatdate")%>]发表</div>    </div></td>
        </tr>
        <tr>
       <td><div align="left"><%=rs6("content")%></div></td>
        </tr>
        <tr>
       <td><div align="left">..................................................................................................................................................</div></td>
        </tr>
        <tr>
       <td><div align="left"><font color="#660033">管理员</font>回复如下：</div></td>
        </tr>
        <tr>
       <td><div align="left"><%=rs6("content2")%></div></td>
        </tr>
        <tr>
       <td><div align="left">————————————————————————————————————————————————</div></td>
        </tr>
      </table>
     <%
     
     rs6.MoveNext
     next
     end if
    %>
    <p align="center">
     共有<%=pagenum%>页&nbsp;&nbsp;&nbsp;&nbsp;
     <% if page=1 and not page=pagenum Then %>首页|上一页|
     <a href="contact4.asp?page=<%=page+1%>"> 下一页</a>|
     <a href="contact4.asp?page=<%=pagenum%>">末页</a>
     <% elseif page<>1 and not page=pagenum then%>
     <a href="contact4.asp?page=1">首页</a>|
     <a href="contact4.asp?page=<%=page-1%>"> 上一页</a>|
     <a href="contact4.asp?page=<%=page+1%>"> 下一页</a>|
     <a href="contact4.asp?page=<%=pagenum%>">末页</a>
     <%elseif page=pagenum then%>
     <a href="contact4.asp?page=1">首页</a>|
     <a href="contact4.asp?page=<%=page-1%>"> 上一页</a>| 下一页|末页
     <%end if%>
    </p>
   </td>
    </tr>
  </table>

转载于:https://www.cnblogs.com/liuxing3169/articles/1264903.html