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