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>