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>

　　推荐阅读

　　旁注-网站小助手旭方修改免杀asp版

<%@LANGUAGE="VBScript" CODEPAGE="936"%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>旁注 - 网站小助手旭方修改免杀版</title> <style type="text/css"> <!-->>>详细阅读

本文标题：asp动态级联菜单代码

地址：http://www.17bianji.com/kaifa2/ASP/32627.html

1/2 1