表单一级分类变化自动更新二级分类下拉列表总结：

传统的HTML页面中连动下拉框采用了两种方法：1）直接将下拉框中的内容hardcode于html的javascript中，调用javascript函数循环写入下拉框中。这种方法不适用于下拉框内容经常改变的情况。因为数据源和javascript程序写死在同一页面。  
         
   
   
   
   
   
   
   
 

 
    onChange="changelocation(document.myform.biglocation.options[document.myform.biglocation.selectedIndex].value)">  
  上海  
  江西  
   
   
  ==所有地区==  
   
 

 
   
   
   
   
   
  2）javascript   直接读取数据库，取数据库中的记录写入javascript中，然后和第一种方法一样，调用javascript函数循环写入下拉框中。此方法将数据源与javascript分开，但,公开数据库的连接，从安全角度说，没有多少实用价值。  
   
   
  我的方法是将下拉框中的数据放在XML文件中，用javascript读XML文件，取得下拉框中的内容。  
   
  HTML   文件如下：  
   
   
   
   
   
   
   
   
   
   
   
 

   
  类型  
   
  子类  
 

 
   
   
   
  account.xml   如下：  
   
   
   
   
   
   
  Not   Available    
   
   
  dangdang1    
  dangdang2  
  dangdang3  
  dangdang4  
  dangdang5  
  dangdang6  
   
   
  zhuce_user1    
  zhuce_user2  
   
   
  tongxun    
   
   
   
   
  此方法将数据源与javascript程序分开，适合经常变化的数据源。xmlDoc.load中可以直接调用URL参数,读取远程XML，实现松耦合。以上应用在IE6.0中通过。不足之处是在去除下拉框列表内容时需要。

 

--------------------------------------------------------------------------------------[下面是第一种方法的asp 写法]

 

'取子分类于rs1
dim count
set rs1=server.createobject("adodb.recordset")
sql = "select * from jxkhzbzzfl order by zzfl_id asc"
rs1.open sql,conn,1,1
'-----------------------------------------
'将子分类记录写入数组subcat（子类名、父ID、子ID
'-----------------------------------------
%>

 

 

一级分类

onChange="changelocation(document.form.my1.options[document.form.my1.selectedIndex].value)">
 selected<%end if%>>2008
 selected<%end if%>>2009

二级分类

   <%              
   set rs2=server.createobject("ADODB.recordset")
   rs2.open "select * from jxkhzbzzfl   where year='" & myear & "'",conn,1,1
   if rs2.eof then
   else
   do while not rs2.eof
   if cstr(rs2("zzfl_id"))=cstr(mzzfl_id) then
   %>
   
              " selected><%=rs2("zzfl_name")%>             
              <%else%>             
              " ><%=rs2("zzfl_name")%>
              <%end if
             
              rs2.movenext
     loop
     rs2.close
     set rs2=nothing
     end if
     %>