谁对asp编程比较熟阿,能提供各翻页代码么

<!--#include virtual="/ADOVBS.INC"-->
<!--#include file="conn.asp"-->
<%
sql="select * from 表名"
set rs=server.createobject("ADODB.Recordset")
rs.cursortype=adopenstatic
rs.Open sql,conn
rs.pagesize=10 '每页显示10条记录
page=clng(request.querystring("page"))
if page<1 then
pabe = 1
if page >rs.pagecount then
page = rs.pagecount
rs.absolutepage = page
%>
<table border=1>
<tr>
<%
for i=0 to rs.fields.count-1

%>
<td><%=rs.fields(i).values%></td>
<%next%>
</tr>
<%
rs.movenext
'如果到了记录末尾，提前跳出循环
if rs.eof then
exit for
end if
next
%>
</table>
<p align="center">
<%
'显示第一页和上一页，下一页，最后一页的信息及链接
if page<>1 then