分页程序代码

<%
  if request("page")="" then
      page=1
   else
     page=request("page")
   end if
   page=clng(page)'把字符转换成数字
   rs.pagesize=4
   if page<1 then
      page=1
   else
    if page>rs.pagecount then
     page=rs.pagecount
  else
    page=page
  end if
   end if
 rs.absolutepage=page
for i=1 to rs.pagesize'循环显示代码
 if rs.eof then
       exit for
    end if
    
%>
<%=(page-1)*rs.pagesize+i%>'循序显示第几条记录的代码
 <% rs.movenext
 next %> ’读取下一条记录
<form action="index.asp?page=<%=page%>" method="GET">
<table width="630" height="20" border="0" align="right" cellpadding="0" cellspacing="0">
                        <tr>
                          <td><div align="center"> 共有<%=rs.RecordCount%>条留言
<% if  page<>1 then
          response.Write"<a href=index.asp?page=1>第一页</a>"&"&nbsp;"
          response.Write"<a href=index.asp?page="&(page-1)&">上一页</a>"&"&nbsp;"
      end if
   if  page<>rs.pagecount then
          response.Write"<a href=index.asp?page="&(page+1)&">下一页</a>"&"&nbsp;"
          response.Write"<a href=index.asp?page="&rs.pagecount&">最后一页</a>"
      end if
%>
                              当前页:<%=page%>/总页数:<%=rs.pagecount%> </div></td>
                          <td width="160">输入页数:
                            <input type="text" size="3" name="Page"> <input type="submit" name="Submit3" value="确定"><a href="index.asp">
                            返回</td>
                        </tr>
            </table>
 </FORM>
'循环代码
<%do while not rs.eof%>
<%rs.movenext
loop%>