用asp语句实现每个页面显示数据5条记录！然后可以翻页！

<!--#include file="资料库连接页面.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [表]"
rs.open sql,conn,1,1
if rs.eof then
response.write"<script>alert('资料库中暂无资料!')</script>"
else
rs.pagesize=5 '这裏每页显示5条记录
page=clng(request("page"))
if page<1 then page=1
rs.absolutepage=page
for i=1 to rs.pagesize
%>
'这裏显示,你要出现的数据资料
<%
rs.movenext
if rs.eof then exit for '如果资料库中资料为空就退出循环
next
%>
'开始翻页吧
<%
if page<>1 then
response.write"<a href=?page=1>第一页</a>"
response.write"<a href=?page="&(page-1)&">上一页</a>"
end if
if page<>rs.pagecount then
response.write"<a href=?page="(page+1)&&">下一页</a>"
response.write"<a href=?pa