Question

asp中For Next循环嵌套 Do while循环，for next循环不起作用，求高手解答！

Set rscla=server.CreateObject("adodb.recordset")
sqlcla="select * from [pclass] order by id asc"
rscla.open sqlcla,conn,1,1
For k=1 To rscla.recordcount

Do while Not prors.eof

。。。。。。（省略，此循环正常）
Loop

rscla.movenext
Next
response.write(k)
rscla.close
Set rscla=Nothing

For next循环只能显示1个，rscla.recordcount 记录数为2，k计数显示3，不知道哪里出的问题？
'首页商品
Set rscla=server.CreateObject("adodb.recordset")
sqlcla="select * from [pclass] order by id desc"
rscla.open sqlcla,conn,1,1
’j=rscla.recordcount
For k=1 To rscla.recordcount
If rscla.eof Then Exit for
classname=rscla("pname")
classid=rscla("id")
'循环显示分类
prolist="<div class='pbanner'><h2>"&classname&"</h2></div><div class='prlist'>"& vbcrlf
Set prors=server.CreateObject("adodb.recordset")
sqlpro="select * from product where rmp=1 and classid="&classid&" order by xiao desc"
prors.open sqlpro,conn,1,1
'prolist="lanmu"
dim pm,topclass
pm=0
Do while Not prors.eof
。。。这里省略，放不下了！
prors.movenext
Loop
prors.close
Set prors=Nothing
prolist=prolist&"<div style='clear:both'></div>"& vbcrlf
prolist=prolist&"</div><!--prlist end -->"& vbcrlf
rscla.movenext
Next
‘prolist=prolist&k&j
rscla.close
Set rscla=Nothing

Answer 1

prors.eof 应该是rscla.eof吧

追问

这个不重要，我找到问题了

Answer 2

输出rscla.recordcount看看值对不对。。。

追问

rscla.recordcount输出为2，正确。

追答

说真的，没看出，你两个循环是什么作用。。
你直说实现什么功能吧。

追问

循环显示栏目，及栏目内文章

追答

你要的效果是不是栏目标题，下面再显示这个栏目下的文章。如果是的话，那你的DO LOOP所属SQL语句也应该在FOR循环里面才会取得到栏目ID数据。

Set rscla=server.CreateObject("adodb.recordset")
sqlcla="select * from [pclass] order by id asc"
rscla.open sqlcla,conn,1,1
For k=1 To rscla.recordcount

Set prors=server.CreateObject("adodb.recordset")
sql="select * from [文章] where 栏目ID="&rscla("id")
prors.open sql,conn,1,1
Do while Not prors.eof'再循环文章

不过这种做法效率会很低哦。。。