程序代码：

<script   language   =   \"JavaScript\">
     
  aaa=new   Array();   
  <%   
  Dim   i   
  i=0   
  set   rw=server.createobject(\"adodb.recordset\")
  sql=\"select   *   from   subcategory\"   
  rw.open   sql,conn,1,3
  do   while   not   rw.eof   
  %>   
  aaa[<%=i%>]=new   Array(\"<%=rw(\"subcatename\")%>\",\"<%=rw(\"categoryid\")%>\",\"<%=rw(\"itemsubcate\")%>\");   
  <%   
  i=i+1   
  rw.movenext   
  loop   
  rw.close   
  %>   
  var y=function   bbb(daid) 
    
        {   
        
              document.all.xi.length=0; 
              var   daid=daid;   
              var   i;   
              for(i=0;i   
    
     
      请选择   
  <%   
  sql=\"select   *   from   category\"   
  rw.open   sql,conn,1,3  

 
  do   while   not   rw.eof   
  %>   
              \"><%=rw(\"cateName\")%>   
  <%   
  rw.movenext   
  loop   
  rw.close   
  set   rw=nothing   
  %>   
                
        
            
              
          请选择