求下拉框二级联动的代码

var oOption = document.createElement("option");
document.all.mulCondition.add(oOption);
oOption.innerText = condition;
oOption.name = fieldName;
可以用上述代码动态的控制
（以上为js代码）

解决方案 »

  1.   

    我的方法是在页面上建立一个隐藏的iframe:"<IFRAME id=hiddenframe src="bergkamp.htm" width=0 height=0></IFRAME>",通过js改变它的src从而触发后台程序的运行。返回的结果使用innerHTML输出整个select
      

  2.   

    http://www.tn99.com/myblog/blogview.asp?logID=149&cateID=2
      

  3.   

    <html>
    <head>
    <script language=javascript>
    var arr="浙江|江苏|安徽|江西";var arr0 = "杭州|宁波|温州|绍兴"; //这些数据可以从数据库中取得
    var arr1 = "南京|苏州|无锡|常州";
    var arr2 = "合肥|翕县|黄山|祁门";
    var arr3 = "南昌|九江|赣州|上饶"; var arr00 = "杭州A区|杭州B区"; 
    var arr01 = "宁波A区|宁波B区"; 
    var arr02 = "温州A区|温州B区"; 
    var arr03 = "绍兴A区|绍兴B区"; var arr10 = "南京A区|南京B区"; 
    var arr11 = "苏州A区|苏州B区"; 
    var arr12 = "无锡A区|无锡B区"; 
    var arr13 = "常州A区|常州B区"; var arr20 = "合肥A区|合肥B区"; 
    var arr21 = "翕县A区|翕县B区"; 
    var arr22 = "黄山A区|黄山B区"; 
    var arr23 = "祁门A区|祁门B区"; var arr30 = "南昌A区|南昌B区"; 
    var arr31 = "九江A区|九江B区"; 
    var arr32 = "赣州A区|赣州B区"; 
    var arr33 = "上饶A区|上饶B区"; //alert(eval("arr"+2+1));
    function AddOptions(dltObj,arrObj)
    {
    dltObj.innerHTML="";
    var arrLocation=arrObj.split("|");
    for(var i=0;i<arrLocation.length;i++){
    var opt=document.createElement("OPTION");
    dltObj.add(opt);
    opt.value=i;
    opt.text=arrLocation[i];
    }
    }
    function init(){
    AddOptions(dltProvince,eval('arr'));
    AddOptions(dltCity,eval('arr'+dltProvince.selectedIndex));
    AddOptions(dltArea,eval('arr'+dltProvince.selectedIndex+dltCity.selectedIndex));
    }
    </script>
    </head>
    <body onLoad="init();">
    <table width="300" cellpading="0" cellspacing="0" border="0">
    <tr>
    <td width="100"><select id="dltProvince" onchange="AddOptions(dltCity,eval('arr'+dltProvince.selectedIndex));AddOptions(dltArea,eval('arr'+dltProvince.selectedIndex+dltCity.selectedIndex));" style="width:100%"></select>
    </td>
    <td width="100"><select id="dltCity" onchange="AddOptions(dltArea,eval('arr'+dltProvince.selectedIndex+dltCity.selectedIndex));" style="width:100%"></select>
    </td>
    <td width="100"><select id="dltArea" style="width:100%"></select>
    </td>
    </tr>
    </table>
    </body>
    </html>
      

  4.   

    <%'本程序分2部分，一个用来进行提交生成新数据的，一个用来初始化的，
    '其实，这样对于理解并不是很有利，暂且这样实现，希望您能看的明白哦，放在两个文件里比较好理解啊'1,初始化部分开始，主要工作：
    'a,初始化第一个下拉列表 Dim sql,rs,cn,i
    i = 0
    set rs = server.CreateObject("adodb.recordset")
    If Request.QueryString("pid") = "" Then
    '初始化部分

    rs.Open "select * from Country",conn,1,1
    Response.Write "<script language = 'JavaScript'>" & vbCrLf
    Response.Write "var arr1 = new Array()" & vbCrLf
    Response.Write "var arr2 = new Array()" & vbCrLf While Not rs.EOF
    Response.Write "arr1[" & i & "] = '" & rs("id") & "'" & vbCrLf
    Response.Write "arr2[" & i & "] = '" & trim(rs("CCountryName")) & "'" & vbCrLf
    i = i +1
    rs.MoveNext
    Wend
    '为安全起见
    Response.Write "window.onload = new function() {" & vbCrLf
    Response.Write "select1 = document.FrmThreeCode.s1" & vbCrLf
    Response.Write "for(i = 1;i<arr1.length + 1;i++)" & vbCrLf
    Response.Write "select1.options[i] = new Option(arr2[i-1],arr1[i-1])" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
    Else
    '处理数据的提交
    strTreeId = Request.QueryString("pid")
    If strTreeId = "" Then strTreeId = 0
    If IsNumeric(strTreeId) = False Then strTreeId = 0  
    Response.Clear
    Response.Write "<script language = 'JavaScript'>" & vbCrLf
    Response.Write "select" & Request.QueryString("n") & " = window.parent.document.FrmThreeCode.s" & Request.QueryString("n") & vbCrLf
    Response.Write "select" & Request.QueryString("n") & ".innerHTML = ''" & vbCrLf
    Response.Write "select" & Request.QueryString("n") & ".options[0] = new Option(""请选择"",""0"")" & vbCrLf
    rs.Open "select * from Province where CountryID = " & Request("pid"),conn,1,1
    While Not rs.EOF
    Response.Write "select" & Request.QueryString("n") & ".options[select" & Request.QueryString("n") & ".length] = new Option('" & Trim(rs("CProvinceName")) & "','" & rs("id") & "')" & vbCrLf
    rs.MoveNext
    Wend
    Response.Write "</script>" & vbCrLf
    End If
    rs.Close
    Set rs = Nothing
    %><script language = "JavaScript">
    <!--
    //第一个select的onchange事件函数function RefreshSelect(o,n)
    {
    if(o.options[o.selectedIndex].value=="0")
    document.FrmThreeCode.elements["s"+n].innerHTML="";
    else
    window.frames['hiddenFrame'].location.href = 'ThreeCode_system.asp?pid=' + o.options[o.selectedIndex].value+"&n="+n;
    }//-->
    </script><form onsubmit="return CheckForm(this)" action="../system/save.asp" method="post" name="FrmThreeCode" ID="FrmThreeCode">
           <input type="hidden" name="actions" ID="actions" value=<%=strAction%>>
           <table width=100% border=1 cellpadding=1 cellspacing=1  bordercolor="#c0c0c0">
           <tr>
           <td align="center">国家：</td>
           <td align="center">
           <select name="s1" onchange = "RefreshSelect(this,2)"><option value="0">请选择</select>
           </td>
           <td align="center">省（州）：</td>
           <td align="center">
           <select name="s2"><option value="0">请选择</select>
           </td>
           <td align="center">城市中文名：</td>
           <td align="center"><input type="text" name="Province" class="class_type" size="10"></td>
           <td align="center">城市英文名：</td>
           <td align="center"><input type="text" name="Province" class="class_type" size="10"></td>
           <td align="center">城市代码：</td>
           <td align="center"><input type="text" name="Province" class="class_type" size="5"></td>
           <td align="center"><input type="submit" name="submit1" value="提交" class="class_type" style="cursor:hand"></td>
           </tr>
           </table>
           </form>
           <iframe name="hiddenFrame" style="display:none"></iframe>