每行显示2条数据的分页

记录集名为rs，粘贴上就能用
<%
 rs.PageSize = 2 '每页显示记录数
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*(rs.PageSize-1)
rs.AbsolutePage = Page
 %>
<div ALIGN="right">
  <table width="100%">
      <tr> 
        <form ACTION="<%=Myself%>?pages=<%=pages%>" METHOD="GET"> <td>
        <p ALIGN="right"><%If Page <> 1 Then ' 如果不是位于第一页%>
        <a href="<%=Myself%>?Page=1&pages=<%=pages%>">
        第一页</a>
        <a HREF="<%=Myself%>?Page=<%=(Page-1)%>&pages=<%=pages%>">
        上一页</a>
        <%                                      
End If                                         
If Page <> rs.PageCount Then ' 如果不是位于最后一页                                         
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&pages=<%=pages%>">
        下一页</a>
        <a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&pages=<%=pages%>">
        最后一页</a> <% End If %> <font SIZE="2">输入页次:</font><input NAME="Page" SIZE="3" CLASS="s01">
        <font SIZE="2">页:</font><font COLOR="Red" SIZE="2">第<%=Page%>页/共<%=rs.PageCount%>页</font></p>
      </td>
    </form>
      </tr>
  </table>
</div>