【IT168 服务器学院】研究了半个下午，终于搞定，可能对很多asp高手来说这只是小菜，让大家见笑了，毕竟由于时间紧张，才刚开始学，大家多多指教。

　　代码如下：

<script language = "JavaScript">
 subcat=new Array();
 var onecount;
 onecount=0;
 <%
  dim count
  count=0
  do while not rsbranch2.eof
 %>
 subcat[<%=count%>]=new Array("<%=rsbranch2("branch_name")%>","<%=rsbranch2("prio_branch_no")%>","<%=   rsbranch2("branch_no")%>");
        <%
 count = count + 1
        rsbranch2.movenext
        loop
    
 %>
 
        onecount=<%=count%>;
 function ChangeSelect(BranchOne)
     {
        document.report_date.branch2.length = 0;
     var BranchOne=BranchOne;
     var i;
 document.report_date.branch2.options[0] = new Option(''请选择'','''');
     for(i=0;i<subcat.length;i++)
 {
      if(subcat[i][1]==BranchOne)
        {
    document.report_date.branch2.options[document.report_date.branch2.length] = new Option(subcat[i][0], subcat[i][2]);
  }
 }
 }
</script>

<form name="report_date" method = "post"  action = "test7.asp" >
        <table>
                               
                                  <tr bgcolor="#FFFFFF">
                                  <tr>
                                    <td height="25" bgcolor="#FFFFFF">
                                      <div align="right">统计机构:</div>
                                    </td>
                                    <td height="25" bgcolor="#FFFFFF">
                                      <select  name="branch" onChange="ChangeSelect(document.report_date.branch.options[document.report_date.branch.selectedIndex].value)" size="1">
                                        <option value="620000">全省全部分公司</option>
                                        <%
            Do Until rsbranch1.EOF
           %>
                                       <option  value="<% response.write(rsbranch1("branch_no")) %>"
                                         >
                                        <% response.write(rsbranch1("branch_name")) %>
                                       
                                        </option>
                                        <%
     rsbranch1.MoveNext
            Loop
            %>
                                      </select>
       </td>
     </tr>
    <tr>
     <td>下属基层机构</td>
     <td>
     <select name="branch2" >
      <option value="">请指定</option>
     </select>
                                        </td>
    </tr>