asp动态级联菜单代码

yibin 2015-02-09 建站源码 602

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>

扫码添加微信

13013082126 扫描微信 建站咨询 优化咨询