点下一页时不能转到下一页不知道为什么？？
<!--#include file="conn.asp" -->
<%
set rs=server.CreateObject("adodb.recordset"
sql="select * from book order by id "
rs.open sql,conn,1,2
maxperpage=rs.pagesize
maxperpage=4
maxx=Rs.PageCount
Page=Request("Page"
if Page="" or Page<1 then
Page=1
else
if Page> Rs.PageCount then
Page=Rs.PageCount
rs.move(page-1)*maxperpage
End if
end if
Pagem=Rs.AbsolutePage
totalnumber=rs.recordcount
%>
<html>
…………
<%for i=1 to maxperpage %>
…………
<%
Rs.movenext
If Rs.EOF Then Exit For End if
next
%>
<%if request("page"
>1 then%>
<a Href="index.asp?Page=<% = 1%>">首页</a> <a Href="index.asp?Page=<%request("page"
-1 %>">上一页</a>
<%end if%>
<%if page<rs.pagecount then %>
<a Href="index.asp?Page=<%request("page"
+1 %>">下一页</a> <a Href="index.asp? Page=<% = rs.PageCount%>">尾页</a>
<% end if %>
<% rs.close
set rs=nothing
conn.close
set conn=nothing %>
