求助：一个分页显示的问题

[zm_627]

我现在有一个问题，请大家帮帮我~
-------------------------------------------
我想在显示的时候进行分页。
分为2行，3列。
for i=1 to page_size（2）
for j=1 to 3
……
现在我有10条记录。我碰到了这样的问题
第一次显示6条信息：1，2，3，4，5，6
但是第2页我得到是：3，4，5，6，7，8
我应该得到的是7，8，9，10
-------------------------------------------------------
我应该怎么做呢？？

[zm_627]

dim i,j,curpage
if request("page")="" then
curpage = 1
else
curpage = cint(request("page"))
end if
Resultproduct.pagesize = 2
Resultproduct.absolutepage = curpage
for i=1 to Resultproduct.pagesize
<tr>
for j=1 to 3
<td>内容</td>
rs.movenext
next
</tr>
if Resultproduct.eof then
exit for
end if
next
----------------------------------------------
dn=page+1
up=page-1

[zm_627]

rs.movenext是Resultproduct.movenext
我是想让大家看着方便。其他的没有改过来，抱歉

[weiming28cn]

你好象没有把游标里几记录移到第一页分完的记录之后!

[zm_627]

weiming28cn：谢谢，您提醒了我~我错在我的pagesize不能约束到j。而我循环的时候是以i to pagesize来循环的
我改成
pagesize=6
for i = 1 to 2
for j = 1 to 3
这样就对了。

实在是谢谢各位了。。谢谢。

[PeterMCT]

没什么大问题的

肯定是你分页的时候不小心弄的

[avonqin]

分页代码呢？

[changechange]

我想你是搞错分页得代码了
rs.absolutepage=1 '先移动到第一页
rs.pagesize=2
dim i
for i=1 to rs.pagesize '注意,这里不是用Do Until rs.eof() 来写得
if not rs.eof() then
response.write(".......")
....
rs.movenext
end if
next

[zm_627]

不是。我移动到第二页的时候j里面的那4个记录还在存在。也就是到第2页的时候只循环到了2后面那4个就不在了。

[avonqin]

我晕，没给代码我们怎么知道错在哪里呀？

[dwzh20]

rs.pagesize=6
rs.absolutepage=1
rs.pagesize=pagesize
while not rs.eof and m<pagesize
response.write "----"
rs.movenext
m=m+1
wend