ASP菜鸟提问关于分页技术的问题，详细请看代码

Howis 2008-04-23 05:24:22

<%
sql="select * from people order by id"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
%>
.......
<%
dim maxpage '显示页数最大值
dim page
dim maxgood '每页最大显示数
dim i,j,k
maxgood=5
set rs=server.createobject("adodb.recordset")
sql="select * from people order by id"
rs.open sql,conn,1,3
if not rs.eof then
k=rs.recordcount

if k/maxgood>int(k/maxgood) then
maxpage=int(k/maxgood)+1
end if
if k/maxgood=int(k/maxgood) then
maxpage=k/maxgood
end if
page = int(request("page"))
'response.write page&maxpage
if page>maxpage then
page=maxpage
response.write "5"
end if
if page<1 then
page=1
end if
if page="" then
page=1
end if
j=page

rs.move=(j-1)*maxgood
end if
i=0
do while not rs.eof
rs.absolutepage=page
%>
.......
<%
rs2.movenext
i=i+1
if i>=maxgood then exit do end if
else
response.write " "
end if
%>
......
<% loop %>
......
<a href="people.asp?page=<%=page-1%>">上一页</a> <a href="people?page=<%=page+1%>">下一页</a>
......
<% rs.close
set rs=nothing
rs2.close
set rs2=nothing%>

提问：请问为什么我点击下一页的时候，显示的内容仍旧是第一页的内容？（或者说是people.asp的内容），我以上的代码哪里出了问题吗？谢谢各位大侠了！

...全文