<!--打开两个表--> <%     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>