ASP动态级联菜单实现代码

　　<!--打开两个表-->

　　<%

　　set rs1=server.CreateObject("adodb.recordset")

　　sql1="select * from type1"

　　rs1.open sql1,conn,1,3

　　set rs2=server.CreateObject("adodb.recordset")

　　sql2="select * from type2"

　　rs2.open sql2,conn,1,3

　　%>

　　<form name="form1">

　　<!--建立菜单一-->

　　<select name="type" size="1" onChange="redirect(this.options.value)">

　　<option value=0>请选择……</option>

　　<%while not rs1.eof%>

　　<option value="<%=rs1("news_type_1_id")%>"><%=rs1("news_type_1_type")%></option>

　　<%rs1.movenext

　　wend%>

　　</select>

　　<!--建立菜单二-->

　　<select name="type2" size="1">

　　<option value=0>请选择</option>

　　</select>

　　</div>

　　</form>

　　<!--下面为具体实现的script语句-->

　　<script>

　　<!--

　　var temp=document.form1.type2

　　function redirect(x){

　　var i

　　i=0

　　for (var m=temp.options.length-1;m>0;m--)

　　temp.options[m]=null

　　<%while not rs2.eof

　　%>

　　cnt=<%=rs2("news_type_1_id")%>

　　if(cnt==x) {

　　temp.options=new Option("<%=rs2("news_type_2_type")%>","<%=rs2("news_type_2_id")%>")

　　i=i+1}

　　<%

　　rs2.movenext

　　wend%>

　　}

　　//-->

　　</script>