简单asp分页显示代码

<%
on error resume next
dim rs,sql,i
filePath = Server.MapPath("db.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

set rs =Server.CreateObject("adodb.recordset")
  sql="select * from info order by id"
  rs.open sql,conn,1,1

  rs.pagesize=6
  page=clng(Request("page"))
  if page<1 then page=1
  if page>rs.pagecount then page=rs.pagecount
  rs.AbsolutePage = page
%>
<table>
<% for i=1 to rs.pagesize %>
  <tr>
    <td ><% response.write rs("rec1") %></td>
    <td ><% response.write rs("rec2") %></td>
  </tr>
<% rs.movenext
    If rs.EOF Then
       Exit For
    End If
    next
%>
</table>
<script Language="JavaScript">
function ChkFields() {
    if (document.Myform.page.value=='') {
        window.alert ("请输入页数");
        Myform.page.focus();
        return false
    }
    Myform.action="aa.asp";
    Myform.submit();
    return true
}
</script>
<form mehtod="POST" name="Myform" >
输入页数:<input type="text" name="page" size="4">
<input type="button" value="确定" οnclick="ChkFields()">
<%
  if page>1 then
     Response.write("<a href=aa.asp?page=1>第一页</a>&nbsp;")
     Response.write("<a href=aa.asp?page="&(page-1)&">上一页</a>&nbsp;")
  end if
  if page <> rs.pagecount then
      Response.write("<a href=aa.asp?page="&(page+1)&">下一页</a>&nbsp;")
      Response.write("<a href=aa.asp?page="&rs.pagecount&">最后一页</a>&nbsp;")
  end if

  for i=1 to rs.pagecount
    if i <> page then
    response.write "<a href=aa.asp?page="&i&">" &i& "</a>&nbsp;"
    else
    response.write i&"&nbsp;"
    end if
   next
%>
页数:<% =page %>/<% =rs.pagecount %>
</form>