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> 

上一个：DefiniteUrl asp将相对地址转换为绝对地址的代码
下一个：从数据库中读取记录横向排列