Tulis kode sumber dengan direktori sekunder (ASP+JavaScript)

************************ (1) Buka set rekaman, buat array, dan tetapkan nilai rekaman yang ditetapkan ke array.

<%

DiMcount

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

Sql = "pilih*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 "))%>");

<%Count = Count+1

Rs.movenext

lingkaran

Rs.close%>

Onecount = <%= Count%>;

FunctionChangelocation (LocationID)

{document.form1.boardid.length = 0;

varlocationId = locationId;

vari;

untuk (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>

************************ (II) Menampilkan pengelompokan dan tulis acara Onchange dari kotak daftar.

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

Sql = "Pilih*dari BookClassOrderByClassIddesc"

Rs.opensql, cn, 1,1

ifrs.eofandrs.bofthen

response.write "Tolong tambahkan total kelas."

respons.end

lain%>

<selectName = "classId" onchange = "changelocation (document.form1.classid.options [document.form1.classid.selectedIndex] .value)">

<optionsElectedValue = ""> == Pilih kategori utama == </pection>

<%dountilrs.eof%>

<optionValue = "<%= trim (rs (" classId "))%>"> <%= trim (rs ("classname"))%> </pection>

<%Rs.movenext

lingkaran

endif

Rs.close

setRs = tidak ada%>

</pilih>

<selectName = "boardId"> <optionsElectedValue = ""> == Pilih subkategori == </potion>

</pilih>