**********************(一)打開記錄集,創建數組,把記錄集的值賦給數組.

1. <%   
2. Dim count  
3. set Rs=server.createobject("adodb.recordset")  
4. Sql = "select * from BookBoard order by ClassId desc"  
5. Rs.open Sql,cn,1,1%>  
6. <script language = "JavaScript">  
7. var onecount;  
8. onecount=0;  
9. subcat = new Array();  
10. <%count = 0  
11. do while not Rs.eof %>  
12. subcat[<%=count%>] = new Array("<%= trim(Rs("BoardName"))%>","<%= trim(Rs("ClassId"))%>","<%= trim(Rs("BoardId"))%>");  
13. <%count = count + 1  
14. Rs.movenext  
15. loop  
16. Rs.close%>  
17. onecount=<%=count%>;  
18. function changelocation(locationid)  
19. {document.form1.BoardId.length = 0;   
20.  var locationid=locationid;  
21.  var i;  
22.  for (i=0;i < onecount; i++)  
23. {if (subcat[i][1] == locationid)  
24. {document.form1.BoardId.options[document.form1.BoardId.length] = new Option(subcat[i][0], subcat[i][2]);  
25. }}}      
26. </script>  

**********************(二)顯示分組,并編寫列表框的OnChange事件.

1. <%set Rs=server.CreateObject("adodb.recordset")  
2.     Sql="select * from BookClass order by ClassId desc"  
3.     Rs.open Sql,cn,1,1  
4.     if Rs.eof and Rs.bof then  
5.     response.write "請先添加總類。"  
6.     response.end  
7.     else%>  
8.     <select name="ClassId" onChange="changelocation(document.form1.ClassId.options[document.form1.ClassId.selectedIndex].value)">  
9.     <option selected value="">==請選擇大類==</option>  
10.     <% do until Rs.eof%>  
11.     <option value="<%=trim(Rs("ClassId"))%>"><%=trim(Rs("ClassName"))%></option>  
12.      <%Rs.movenext  
13.        loop  
14.        end if  
15.        Rs.close  
16.        set Rs = nothing%>  
17.     </select>  
18.     <select name="BoardId"><option selected value="">==請選擇小類==</option>  
19.     </select>