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

%>

请选择……

<option value="”>
<%rs1.movenext
wend%>

请选择

<!–
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=

if(cnt==x) {
temp.options=new Option(“”,””)
i=i+1}
<%
rs2.movenext
wend%>

}

//–>