郁闷：：：：简单的循环，怎么循环不下去？ 在线……

[Anajian]

源码：
<%

Set rs= Server.CreateObject("ADODB.Recordset")
Set rsArticle= Server.CreateObject("ADODB.Recordset")
rs.Open "Select max(ArticleID) as a From product where elite=true and passed=true and BigClassName='数码相机' group by SmallClassName",conn,3
if not rs.eof then
rs.movefirst

%〉
<table width="112" cellpadding="1" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#999999" align=center frame=void>

<%
do while not rs.eof
%>
<tr>
<%
for i=1 to 4
rsArticle.Open "Select ArticleID, BigClassName,SmallClassName,Title,ZengSong,DefaultPicUrl From product where ArticleID="&rs("a"),conn,3
%>
<td width="108">
<table width="108" border="0" cellpadding="0" cellspacing="0">
<tr >
<td width="108" height=105 colspan=2 align="center" valign="middle"><a href="product.asp?BigClassName=<%=rsArticle("BigClassName")%>&SmallClassName=<%=rsArticle("SmallClassName")%>" target=_blank><img border=0 src="<%=rsArticle("DefaultPicUrl")%>" width=100 height=100></a></td>
</tr>
<tr>
<td valign="middle" height=15 align="center"><a href="product.asp?ArticleID=<%=rsArticle("articleid")%>" target=_blank class="bluzi"><%=rsArticle("Title")%></a></td>
</tr>
<tr>
<td height=15 align="center" valign="middle" class="zitired2">送</td>
</tr>
<tr>
<td height=15 align="center" valign="middle"><span class="zitired3"><%=rsArticle("ZengSong")%></span></td>
</tr>
</table>
</td>
<%
rs.movenext
next
%>
</tr>
<%
loop
%>
</table>
<%
end if
rsArticle.close
rs.close
%>

查处来的结果只是第一条记录的，但是单独打印rs("a"),结果是循环的且正确。怎么用它再作为rsArticle的查询条件结果就不循环了呢？

[hailang3275]

loop前面缺少一个了rs.movenext吧

[xiaosaye]

<%
rs.movenext
next
%>

你的rs.movenext不应该写在FOR。。。NEXT中吧，会出错的

[xiaosaye]

而且你的rsArticle.close应该在下一次rsArticle.Open只前，
FOR
rsArticle.Open
。。。
rsArticle.close
NEXT

[danis_cn]

整个循环嵌套错误

do while not rs.eof

for i=0 to 4
next

rs.movenext
loop


循环套循环，不要交错！

[winlmh]

do while not rs.eof

for i=0 to 4
next

rs.movenext
loop

对就这样，不过看楼主的代码也太乱了，看得我头痛啊

[Anajian]

哈哈，解决了，xiaosaye() 正解， rsArticle.open完后，就要close。