asp动态级联菜单代码


            JS脚本: <% dim rs dim sql dim count dim rs1 dim sql1 sql = "select * from region order by zoneid asc" set rs = server.createobject("adodb.recordset") rs.open sql,conn,1,3 %> <script language = "JavaScript"> var onecount; onecount=0; subcat = new Array(); <% count = 0 do while not rs.eof %> subcat[<%=count%>] = new Array("<%= trim(rs("regionname"))%>","<%= trim(rs("zoneid"))%>","<%= trim(rs("regionid"))%>"); <% count = count + 1 rs.movenext loop rs.close set rs=nothing %> onecount=<%=count%>; function changelocation(zoneid) { document.myform.region.length = 0; var zoneid=zoneid; var i; document.myform.region.options[0] = new Option('--地区--',''); for (i=0;i < onecount; i++) { if (subcat[i][1] == zoneid) { document.myform.region.options[document.myform.region.length] = new Option(subcat[i][0], subcat[i][2]); } } } </script>  表单内容: <table> <form> <tr> <td> <span class="STYLE1">*</span> 大区：           <select name="zone" size="1" id="zone" onChange="changelocation(document.myform.zone.options[document.myform.zone.selectedIndex].value)"> <option value=0 selected >请选择</option> <% sql1 = "select * from bigzone order by zonename asc" set rs1 = server.createobject("adodb.recordset") rs1.open sql1,conn,1,3 %> <%while not rs1.eof%> <option value="<%=rs1("zoneid")%>"><%=rs1("zonename")%></option> <%rs1.movenext wend rs1.close set rs1 = nothing %> </select>        </td>         <td width="20%"><span class="STYLE1">*</span>地区：           <select name="region" size="1" id="region" > <option value=0 selected >请选择</option> </select>   </tr> </form> </table>