index.asp

这是一个用ASP做的三级联动菜单的源代码

<!--#include file="conn.asp"-->
<!--  三级联动菜单 开始 -->
<script>
<!--
<%

'二级数据保存到数组
Dim count2,rsClass2,sqlClass2
set rsClass2=server.createobject("adodb.recordset")
sqlClass2="select * from province" 
rsClass2.open sqlClass2,conn,1,1
%>
var subval2 = new Array();
//数组结构：一级根值,二级根值,二级显示值
<%
count2 = 0  
do while not rsClass2.eof
%>
subval2[<%=count2%>] = new Array('<%=rsClass2("country_id")%>','<%=rsClass2("ID")%>','<%=rsClass2("Name")%>')
<%
count2=count2+1
rsClass2.movenext

loop
rsClass2.close
%>
onecount=<%=count2%>
<%
'三级数据保存到数组
Dim count3,rsClass3,sqlClass3
set rsClass3=server.createobject("adodb.recordset")
sqlClass3="select * from city" 
rsClass3.open sqlClass3,conn,1,1
%>
var subval3 = new Array();
//数组结构：二级根值,三级根值,三级显示值
<%
count3 = 0
do while not rsClass3.eof
%>
subval3[<%=count3%>] = new Array('<%=rsClass3("province_id")%>','<%=rsClass3("ID")%>','<%=rsClass3("Name")%>')
<%
count3 = count3+1
rsClass3.movenext
loop
rsClass3.close
%>
twocount=<%=count3%>
function changeselect1(locationid) //字串4 
{
document.form1.s2.length = 0;
document.form1.s2.options[0] = new Option('==请选择类别==','');
document.form1.s3.length = 0;
document.form1.s3.options[0] = new Option('==请选择专题==','');
for (i=0; i<onecount; i++)
{
	if (subval2[i][0] == locationid)
	{
		document.form1.s2.options[document.form1.s2.length] = new Option(subval2[i][2],subval2[i][1]);}
	}
}

function changeselect2(locationid)
{
document.form1.s3.length = 0;
document.form1.s3.options[0] = new Option('==请选择专题==','');
for (i=0; i<twocount; i++ )
{
if (subval3[i][0] == locationid)
{document.form1.s3.options[document.form1.s3.length] = new Option(subval3[i][2],subval3[i][1]);}
}
}
//-->
</script>

<form name="form1" method="post" action="?">

三级联动： 
<%
Dim count1,rsClass1,sqlClass1
set rsClass1=server.createobject("adodb.recordset")
sqlClass1="select * from country" 
rsClass1.open sqlClass1,conn,1,1
%>
<select name="s1" onChange="changeselect1(this.value)">
<option value="" selected="selected">==请选择频道==</option>
<%
count1 = 0
do while not rsClass1.eof
response.write"<option value="&rsClass1("ID")&">"&rsClass1("Name")&"</option>"
count1 = count1 '1
rsClass1.movenext
loop
rsClass1.close
%>
</select>

<select name="s2" onChange="changeselect2(this.value)"> 
<option>==请选择类别==</option>
</select>

<select name="s3"> 
<option>==请选择专题==</option>
</select>
<input type="submit" name="Submit" value="提交"></form>

<!-- 三级联动菜单 结束 -->