asp分页

<!--#include file="conn.asp"-->
<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from huifu "
rs.open sql,conn,1,1
page=1     ' 设置变量PAGE=1
rs.PageSize = 5 '每页显示记录数
page=Request("Page")
if Not IsEmpty(page) then '如果PAGE已经初始化...
Page = CInt(page) '接收PAGE并化为数字型赋给PAGE变量
    
     if Page > rs.PageCount then '如果接收的页数大于总页数
         rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
        
     elseif Page <= 0 then '如果page小于等于0
         Page = 1 '设置PAGE等于第一页
     else
         rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
     end if
End if
Page = rs.AbsolutePage
%>
<%
For i = 1 to rs.PageSize
if rs.EOF then    
Exit For
end if '利用for next 循环依次读出记录
%>
<% =rs("neirong") %><br>
<%rs.MoveNext
next%>
<br><br>
<%if page>1 then%><a Href="fenye.asp?Page=<% = 1%>">首页</a> <a Href="fenye.asp?Page=<% =page -1 %>">上一页</a><%end if %><%if page<>rs.pagecount then %><a Href="fenye.asp?Page=<% =page + 1%>">下一页</a> <a Href="fenye.asp?Page=<% = rs.PageCount%>">尾页</a> <% end if %>
<form action="fenye.asp" method="get">
<%'输出页码
response.write "请选择数据页:"
for i=1 to rs.pagecount
if i=page then
response.write i&"&nbsp;"
else
response.write "<a href='fenye.asp?page="&i&"'>"&i&"</a>&nbsp;"
end if
next
%>
请输入页号:<input type="text" name="page" size=4>
<input type="submit" value="转到" >
<input type="reset" value="取消" >
　
<%
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>