兄弟们帮忙把这个用js给实现一下。多谢了。

 
  Sub   changeselect1(str1)  
  M188_AcDb="../m188data/#   m188zoushi.mdb"  
  OpenDb()      
  Rs=Server.CreateObject("ADODB.RECORDSET")  
  sql   =   "select   cityboradid   from   zscity   where   cityid   =   "&str1&""  
  rs.open   sql,conn,1,1  
  If   Not   rs.eof   Then    
  sql1   =   "select   zsclassname,zsclassid,zsclasssize   from   zsclass   where   zclassid   in   ("&rs("cityboradid")&")   order   by   zsclassid   desc"  
  Set   Rs1=Server.CreateObject("ADODB.RECORDSET")  
  rs1.open   sql1,conn,1,1  
  If   Not   rs1.eof   Then    
  Do   While   Not   rs1.eof    
  echo   rs1("zsclassname")  
  rs1.movenext  
  Loop    
  End   If    
  End   If    
  End   Sub    
   
  我是想这样调用他的。  
  select   name='fadmin'   onChange='changeselect1(this.value)'>"

---

什么意思

---

示例：  
  <script>  
  var   rs=new   ActiveXObject("ADODB.Recordset");  
  var   sSQL1  
  sConn=   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=d:\\data.mdb";  
  sSQL1="select   *   from     baobao";  
  rs.Open(sSQL1,   sConn);  
  while(!rs.EOF){  
  document.write(rs(0));  
  document.write(rs(1));  
  rs.movenext();  
  }  
  </script>

---

分到是不少。你想干什么啊？  
  当它变了就把它的值的关联输出出来啊？  
  用AJAX。  
  当变了，发送请求，然后返回请求串。  
  你处理下。

---

<%  
    M188_AcDb="../m188data/#   m188zoushi.mdb"  
    OpenDb()  
    Set   Rs=Server.CreateObject("ADODB.RECORDSET")  
  sql   =   "select   cityname,cityid   from   zscity   order   by   cityid   desc"  
  rs.open   sql,conn,1,1  
  If   Not   rs.eof   Then    
  Dim   arrcity  
  arrcity   =   rs.getrows(-1)  
  Closers()  

论坛热门帖子:	[lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18)
TAG标签:	实现 这个 帮忙 兄弟 If End select Not name from Then