二级联动 <form action="" method="post" name="form1" > <script> <!-- <% '二级数据保存到数组 Dim count1,cityRS,citySQL set cityRS=server.createobject("adodb.recordset") citySQL="select * from city order by shiorder" cityRS.open citySQL,conn,1,1 %> var subval2 = new Array(); //数组结构:一级根值,二级根值,二级显示值 <% count1 = 0 do while not cityRS.eof %> subval2[<%=count1%>] = new Array('<%=cityRS("Shengid")%>','<%=cityRS("id")%>','<%=cityRS("shiname")%>') <% count1 = count1 + 1 cityRS.movenext loop cityRS.close %> function changeselect1(locationid) { document.form1.city.length = 0; document.form1.city.options[0] = new Option('请选择城市',''); for (i=0; i<subval2.length; i++) { if (subval2[i][0] == locationid) {document.form1.city.options[document.form1.city.length] = new Option(subval2[i][2],subval2[i][1]);} } } //--> </script> <select name="province" class="buttonmain" id="province" onChange="changeselect1(this.value)"> <option value="">请选择省份</option> <% dim provinceRS,provinceSQL set provinceRS = server.createobject("adodb.recordset") provinceSQL = "select * from province order by shengorder" provinceRS.open provinceSQL,conn,1,1 do while not provinceRS.eof if provinceRS("id") = province then response.Write "<option value="&provinceRS("id")&" selected>"&provinceRS("shengname")&"</option>" else response.Write "<option value="&provinceRS("id")&">"&provinceRS("shengname")&"</option>" end if
<form action="" method="post" name="form1" >
<script>
<!--
<%
'二级数据保存到数组
Dim count1,cityRS,citySQL
set cityRS=server.createobject("adodb.recordset")
citySQL="select * from city order by shiorder"
cityRS.open citySQL,conn,1,1
%>
var subval2 = new Array();
//数组结构:一级根值,二级根值,二级显示值
<%
count1 = 0
do while not cityRS.eof
%>
subval2[<%=count1%>] = new Array('<%=cityRS("Shengid")%>','<%=cityRS("id")%>','<%=cityRS("shiname")%>')
<%
count1 = count1 + 1
cityRS.movenext
loop
cityRS.close
%>
function changeselect1(locationid)
{
document.form1.city.length = 0;
document.form1.city.options[0] = new Option('请选择城市','');
for (i=0; i<subval2.length; i++)
{
if (subval2[i][0] == locationid)
{document.form1.city.options[document.form1.city.length] = new Option(subval2[i][2],subval2[i][1]);}
}
}
//-->
</script>
<select name="province" class="buttonmain" id="province" onChange="changeselect1(this.value)">
<option value="">请选择省份</option>
<%
dim provinceRS,provinceSQL
set provinceRS = server.createobject("adodb.recordset")
provinceSQL = "select * from province order by shengorder"
provinceRS.open provinceSQL,conn,1,1
do while not provinceRS.eof
if provinceRS("id") = province then
response.Write "<option value="&provinceRS("id")&" selected>"&provinceRS("shengname")&"</option>"
else
response.Write "<option value="&provinceRS("id")&">"&provinceRS("shengname")&"</option>"
end if
provinceRS.movenext
loop
provinceRS.close
set provinceRS = nothing
%>
</select>
<select name="city" class="buttonmain" id="city">
<option value="">请选择城市</option>
</select>
</form>