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("&vbcrlf
Response.Write"'"&rs("menuname")&"'"&vbcrlf
rs.movenext
wend
rs.close()
set rs=nothing
我想每循环一次,上面红色的数字就自动加1

即OutBarFolder1循环一次后变OutBarFolder2

i = 1
while i < n
Response.Write"OutBarFolder"& i &" = new Array("& vbcrlf &")"
rs.movenext
wend

好象不行
请在想一想啊

Dim i
i=1
while not rs.eof
Response.Write"OutBarFolder" & i &" =new Array("&vbcrlf
Response.Write"'"&rs("menuname")&"'"&vbcrlf
i=i+1
rs.movenext
wend

谢谢,老大门