ASP问题-定义显示数量，分页时出错，高手请进！ 20分

Question

问题：以前分页正常，现在读取数量乘了几倍重复显示 如这里设定最大连接数=20 MaxShangpinList=20 每页分两列五行共10个，
现在却显示每页20*两列五行200个 郁闷啊 请高手帮写！！！

<table width="98%"></table>
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_snsn where kucun=1 order by shopid desc",conn,1,1
if rs.recordcount=0 then %>
<table width="100%"><tr><td align=center>暂无新闻动态</td></tr></table>
<%else
hang=flsl '显示的行数
l=fll '显示的列数
rs.PageSize =hang*l '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
'应该是这里出了问题
rs.AbsolutePage=Page
response.write "<table>"
for ii=1 to hang
response.write "<tr>"
for jj=1 to l
response.write "<td>"
if not rs.eof then
%>
<%
set rs=server.createobject("adodb.recordset")
i=0
MaxShangpinList=2
rs.open "select * from shop_snsn where newsshop=1 order by shopid desc",conn,1,1 %>
<% do while not rs.eof
i=i+1 %>
'调入商品集
<!--#include file="shangping_j.asp"-->

<% if (i mod (MaxShangpinList/2)=0) and i>=(MaxShangpinList/2) then %>
<% end if
if i>=MaxShangpinList then exit do
rs.movenext
loop %>
<%rs.movenext
else
response.write " "
end if
response.write "</td>"
next
response.write "</tr>"
next
response.write "</table>"

'应该是以上字段出了问题
hang=flsl '显示的行数
l=fll '显示的列数

行列设置的是多少？ 是5行 2列

MaxShangpinList=20

设成9重复显示（比如设成最大连接9个、分2列5行，结果显示2页第一页1列9行，第二页1列9行重复了第一页），设成20就报错

错误类型：
ADODB.Recordset (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/zzzZZZ.asp, 第 93 行 就是这里93 行 <%rs.movenext
else
response.write " "
end if
response.write "</td>"
next
response.write "</tr>"
next
response.write "</table>"

是不是DO...LOOP循环出问题了
怎摸搞啊 我可是菜鸟 用的是个模版 拜托了

Answer 1

看了半天才看明白你所说的问题

我不清楚你这里
hang=flsl '显示的行数
l=fll '显示的列数

行列设置的是多少？

还有一个地方
MaxShangpinList=2

你就设置为2？

恩你设置成那样有没有什么变化？