ASP动态级联菜单实现代码

1. <!--打开两个表-->  
2.  
3. <%  
4.     set rs1=server.CreateObject("adodb.recordset")  
5.     sql1="select * from type1"  
6.     rs1.open sql1,conn,1,3  
7.     set rs2=server.CreateObject("adodb.recordset")  
8.     sql2="select * from type2"  
9.     rs2.open sql2,conn,1,3  
10.  
11. %>  
12. <form name="form1">  
13.  
14. <!--建立菜单一-->  
15.  
16. <select name="type" size="1" onChange="redirect(this.options.value)">  
17. <option value=0>请选择……</option>  
18. <%while not rs1.eof%>  
19. <option value="<%=rs1("news_type_1_id")%>"><%=rs1("news_type_1_type")%></option>  
20. <%rs1.movenext  
21. wend%>  
22. </select>  
23.  
24. <!--建立菜单二-->  
25.  
26. <select name="type2" size="1">  
27. <option value=0>请选择</option>  
28. </select>  
29. </div>  
30. </form>  
31.  
32. <!--下面为具体实现的script语句-->  
33.  
34. <script>  
35. <!--  
36. var temp=document.form1.type2  
37. function redirect(x){  
38.  
39. var i  
40. i=0  
41. for (var m=temp.options.length-1;m>0;m--)  
42. temp.options[m]=null  
43.  
44. <%while not rs2.eof  
45. %>  
46. cnt=<%=rs2("news_type_1_id")%>  
47.  
48. if(cnt==x) {  
49. temp.options=new Option("<%=rs2("news_type_2_type")%>","<%=rs2("news_type_2_id")%>")  
50. i=i+1}  
51. <%  
52. rs2.movenext  
53. wend%>  
54.  
55. }  
56.  
57. //-->  
58. </script>