怎么样把asp取到的数据库的记录放到js的组数中？

Question

给你个例子<SCRIPT LANGUAGE=vbscript > 
dim i,j,choice(2,100)
  <%
  dim i,j,choicea(2,100)  
  set rs2 = server.createObject("ADODB.RecordSet")
  sql2="select * from qymlzlxb order by id"
  rs2.open sql2,cn,1,3
  zlxs=rs2.RecordCount
  for i=0 to zlxs-1  
  choicea(1,i)=rs2("zlx")
  choicea(2,i)=rs2("lx")
  rs2.MoveNext 
  next
  rs2.Close 
  %>  

<%for i=0 to zlxs-1%>
choice(1,<%=i%>) = "<%=choicea(1,i)%>"
choice(2,<%=i%>) = "<%=choicea(2,i)%>"
<%next%>
     sub  display(obj)
document.all("flx").length =0 
for i=0 to ubound(choice,2)  
if choice(2,i)=obj then   
set opt=document.createElement("OPTION")    
opt.text=choice(1,i)
opt.value=choice(1,i)
document.all("flx").add(opt)   
end if
next
end sub
</SCRIPT>