搞了半天了，还是没搞定!

<Script>
var adoRS=[
<%
html = ""
while not rs.eof
  html = html & rs(m).name & ","
  rs.moveNext
loop
response.write left(html,len(html)-1)
%>] 
</Script>

解决方案 »

  1.   

    <Script>
    var adoRS=[
    <%
    html = ""
    while not rs.eof
    html = html & rs("name") & ","
    rs.moveNext
    loop
    response.write left(html,len(html)-1)
    %>]
    </Script>
      

  2.   

    <Script>
         var adoRS=new Array();
    <%
      for i<rs.fields.count
        response.wirte("adoRS(" + CStr(i) +")='" + rs(i).name + "';") 
      next       
    %>         
    </Script>不知这样行不行,我好久没写VBscript了,不过,你稍仔细看,会明白我的意思的
      

  3.   

      var xx=
      '<% 
        dim i 
        dim str
        i=0
        str=""
        for i=0 to rs.Fields.count-1
          if i=0 then 
        str=rs(0).name
      else
            str=str + "," + cstr(rs(i).name)   
                    end if
        next
        response.write str
      %>';
      

  4.   

    ice_berg16(寻梦的稻草人) 正解