编写一个含二级目录的源码(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>