冰火魔厨神漫画:谁对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
response.write"<a href='网页URL.asp?page=1'>第一页</a>  "
response.write"<a href='网页URL.asp?page="&(page-1)&'>上一页</a>  "
end if
if page<> rs.pagecount then
response.write"<a href='网页URL.asp?page="&(page+1)&'>下一页</a>  "
response.write""<a href='网页URL.asp?page="&rs.pagecount &'>最后一页</a>  "
endf if
%>
</p><p align="center">页数：<%=page%>/<%=rs.pagecount%></p>
<%
rs.close
conn.close
set rs = nothing
set conn =nothing
%>

群体2318126