asp分页程序

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("mydb.mdb")
exec="select * from huiyuan"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1

page=request.querystring("page")  'page值为接受值
rs.pageSize = 10 '每页显示记录数
if Not IsEmpty(page) then '如果page已经初始化...
   
    response.write "1--------------"

    if Not IsNumeric(page) then '判断page值是否为数字
       page=1
    else
    page = cint(page) '接收page并化为数字型赋给page变量
    end if  

    if page > rs.pageCount then '如果接收的页数大于总页数
        rs.Absolutepage = rs.pageCount '设置当前显示页等于最后页       
    elseif page <= 0 then '如果page小于等于0
        rs.Absolutepage = 1 '设置当前显示页等于第一页
    else
        rs.Absolutepage = page '如果大于零,显示当前页等于接收的页数
    end if

else
    response.write "2--------------<br>"
    rs.Absolutepage=1
    response.write "rs.Absolutepage............." & rs.Absolutepage
    page=1

end if
'page = rs.Absolutepage

%>
<table width="748" border="1" cellspacing="0" cellpadding="0">
<tr>
<td>姓名</td>
<td>工作单位</td>
</tr>
<%
 For i = 1 to rs.pageSize
  if rs.EOF then
  Exit For
  end if  
%>
<tr>
<td>
<a href="huiyuandetail.asp?id=<%=rs("id")%>"><%=rs("xingming")%></a>
</td>
<td>
<%=rs("gongzuodanwei")%>
</td>
</tr>
<%
rs.MoveNext
next
%>
</table>

<%="page is "  & page%>

<form action="selecthuiyuan.asp" method="get">
<!--首先保证总页数不为1、不为0-->
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
<!--如果当前页数大于1，无论何时都应显示首页和上一页的连接-->
 <%if page>1 then%>
    [<a Href="selecthuiyuan.asp?page=<% = 1%>">首页</a>]
    [<a Href="selecthuiyuan.asp?page=<% = page -1 %>">上一页</a>]
<!--如果当前页数大于1并且小于总页面数时，显示出尾页和下一页的连接-->
    <%if page<rs.pagecount then %>
    [<a Href="selecthuiyuan.asp?page=<% = page + 1%>">下一页</a>]
    [<a Href="selecthuiyuan.asp?page=<% = rs.pageCount%>">尾页</a>]
<!--如果当前页数大于1并且仍大于或等于总页面数时，不显示出尾页和下一页的连接-->
    <%else%>
    [下一页] [尾页]
    <%end if%>
<!--否则，当前页数不大于1，则只显示尾页和下一页的连接-->
 <%else%>
 [首页] [上一页]
 [<a Href="selecthuiyuan.asp?page=<% = page + 1%>">下一页</a>]
 [<a Href="selecthuiyuan.asp?page=<% = rs.pageCount%>">尾页</a>]
 <%end if %>
<!--最终，总页数若为1、为0则没有任何连接-->
<%else%>
 [首页] [上一页] [下一页] [尾页]
<%end if%>

[页次:<font color=red><b><%=page%></b></font>/<%=rs.pageCount%>]
[共<%=rs.RecordCount%>名会员 <font color=red><b><%=rs.pageSize%></b></font>名会员/页]
转到<input name="page" size=5 value="<%=page%>">页
<input type="submit" value="Enter">
</form>

<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>