JS脚本:
<%
dimrs
dimsql
dimcount
dimrs1
dimsql1
sql="select*fromregionorderbyzoneidasc"
setrs=server.createobject("adodb.recordset")
rs.opensql,conn,1,3
%>
<scriptlanguage="JavaScript">
varonecount;
onecount=0;
subcat=newArray();
<%
count=0
dowhilenotrs.eof
%>
subcat[<%=count%>]=newArray("<%=trim(rs("regionname"))%>","<%=trim(rs("zoneid"))%>","<%=trim(rs("regionid"))%>");
<%
count=count+1
rs.movenext
loop
rs.close
setrs=nothing
%>
onecount=<%=count%>;
functionchangelocation(zoneid)
{
document.myform.region.length=0;
varzoneid=zoneid;
vari;
document.myform.region.options[0]=newOption('--地区--','');
for(i=0;i<onecount;i++)
{
if(subcat[i][1]==zoneid)
{
document.myform.region.options[document.myform.region.length]=newOption(subcat[i][0],subcat[i][2]);
}
}
}
</script>
表单内容:
<table>
<form>
<tr>
<td>
<spanclass="STYLE1">*</span>大区：
<selectname="zone"size="1"id="zone"onChange="changelocation(document.myform.zone.options[document.myform.zone.selectedIndex].value)">
<optionvalue=0selected>请选择</option>
<%
sql1="select*frombigzoneorderbyzonenameasc"
setrs1=server.createobject("adodb.recordset")
rs1.opensql1,conn,1,3
%>
<%whilenotrs1.eof%>
<optionvalue="<%=rs1("zoneid")%>"><%=rs1("zonename")%></option>
<%rs1.movenext
wend
rs1.close
setrs1=nothing
%>
</select></td>
<tdwidth="20%"><spanclass="STYLE1">*</span>地区：
<selectname="region"size="1"id="region">
<optionvalue=0selected>请选择</option>
</select>
</tr>
</form>
</table>
【asp动态级联菜单代码】相关文章：
★ ASP模板类代码
★ 数组显示菜单效果