循环代码有问题,不能循环
<%set rs=server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM menu"
rs.open sql,conn,1,1
while not rs.eof
Response.Write"OutBarFolder1=new Array(<BR>"
Response.Write"'"&rs("menuname")&"'<BR>"
set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM board where menuid='"&rs("menuid")&"'"
rs.open sql,conn,1,1
while not rs.eof
Response.Write"'"&rs("images")&"','"&rs("boardname")&"','"&rs("hrefurl")&"?boardname="&rs("boardname")&"&btype="&rs("btype")&"&fileshref="&rs("fileshref")&"','parent.frmright."&rs("win")&"',"&rs("size")&"<BR>"
rs.movenext
wend
rs.close()
Response.Write")"
rs.movenext
wend
rs.close()
%>