編寫一個含二級目錄的源碼(Asp+JavaScript)

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

<%

Dimcount

setRs=server.createobject("adodb.recordset")

Sql="select*fromBookBoardorderbyClassIddesc"

Rs.openSql,cn,1,1%>

<scriptlanguage="JavaScript">

varonecount;

onecount=0;

subcat=newArray();

<%count=0

dowhilenotRs.eof%>

subcat[<%=count%>]=newArray("<%=trim(Rs("BoardName"))%>","<%=trim(Rs("ClassId"))%>","<%=trim(Rs("BoardId"))%>");

<%count=count+1

Rs.movenext

loop

Rs.close%>

onecount=<%=count%>;

functionchangelocation(locationid)

{document.form1.BoardId.length=0;

varlocationid=locationid;

vari;

for(i=0;i<onecount;i++)

{if(subcat[i][1]==locationid)

{document.form1.BoardId.options[document.form1.BoardId.length]=newOption(subcat[i][0],subcat[i][2]);

}}}

</script>

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

<%setRs=server.CreateObject("adodb.recordset")

Sql="select*fromBookClassorderbyClassIddesc"

Rs.openSql,cn,1,1

ifRs.eofandRs.bofthen

response.write"請先添加總類。"

response.end

else%>

<selectname="ClassId"onChange="changelocation(document.form1.ClassId.options[document.form1.ClassId.selectedIndex].value)">

<optionselectedvalue="">==請選擇大類==</option>

<%dountilRs.eof%>

<optionvalue="<%=trim(Rs("ClassId"))%>"><%=trim(Rs("ClassName"))%></option>

<%Rs.movenext

loop

endif

Rs.close

setRs=nothing%>

</select>

<selectname="BoardId"><optionselectedvalue="">==請選擇小類==</option>

</select>