一个分页显示的问题

[flyinsky333]

现在我在做一个分页显示的时候，结果出现的是不分页。请各位高人帮我看看。现附上源码。谢啦！
<%
mypage=request.querystring("whichpage") '// 取显示页号
if mypage=""then
mypage=1 '//当前页号
end if
if mypage=1 then
prepage=1
else
prepage=mypage-1 '// 前一页号
end if
nextpage=mypage+1 '// 下一页号
ps=6 '// 设定每页大小
mypagesize=request.querystring("pagesize")
if mypagesize=""then
mypagesize=ps '// 每页记录个数
end if

sql="select * from Category WHERE caparent=0"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,2,1

rec_all=rs.recordcount '// 取得所有记录
rs.pagesize=mypagesize
maxcount=cint(rs.pagecount)
Total=INT(RS.recordcount/mypagesize * -1)*-1 '// 取得总页数
if not rs.eof then
rs.absolutepage=mypage '// 当前页号
end if
%>
<%
sql="select * from Category where caparent=0"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1

do while not rs.eof
%>
<%=rs("caname")%>
<% rs.movenext
loop
rs.close%>
<%
sql="select * from Category where caparent="&rs("canum")
set rs1=server.createobject("adodb.recordset")
rs1.open sql,conn,1,1
do while not rs1.eof
%>
<%=rs1("caname")%>
<% rs1.movenext
loop
rs1.close
%>
<%
rs.movenext
loop
%>
<% scriptname=request.servervariables("script_name")%>
<a href="<%=scriptname%>?whichpage=1&pagesize=<%=mypagesize%>">第一页</a> 
<a href="<%=scriptname%>?whichpage=<%=nextpage%>&pagesize=<%=mypagesize%>">下一页
</a> 
<a href="<%=scriptname%>?whichpage=<%=prepage%>&pagesize=<%=mypagesize%>">上一页
</a>  
<a href="<%=scriptname%>?whichpage=<%=maxcount%>&pagesize=<%=mypagesize%>">最后一页
</tr>
<% rs.close%>

[ChinaOk]

maxcount=cint(rs.pagecount)
Total=INT(RS.recordcount/mypagesize * -1)*-1 '// 取得总页数
total不就是maxcount吗

[flyinsky333]

这些代码我一注释了。还是一样，不分页

[zhenhao]

好像没有什么错。

[ChinaOk]

rs.open sql,conn,1,1

[flyinsky333]

Chinaok,还是不行
这是在做网上商场，我在其中定义了rs和rs1。rs来存储电视机等对象，rs1来存储电视机的种类。分页是根据rs来的

[tripofdream]

让我们来看看你都干了些什么:
sql="select * from Category WHERE caparent=0"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,2,1
.......
rs.absolutepage=mypage
......
sql="select * from Category where caparent=0"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
......
注意,你是打开了两个记录集,虽然这两个记录集的结果是一样的,但不是同一记录集,也就是说前面的rs跟后面的rs已经不是同一个对象了,你对第一个rs设的AbsolutePage对于第二个rs是没有任何用处的.对于第二个rs,你没有做任何限制,当然显示全部.

去掉第二个rs,然后再把do...while循环改为for循环(for i=1 to rs.pagesize)