!--打开两个表-->

%
    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>