セカンダリディレクトリ（ASP+JavaScript）を使用してソースコードを作成する

************************（1）レコードセットを開き、配列を作成し、レコードセットの値を配列に割り当てます。

<％

薄暗い

setrs = server.createObject（ "adodb.recordset"）

sql = "select*frombookdorderbyblassiddesc"

rs.opensql、cn、1,1％>

<ScriptLanguage = "JavaScript">

varonecount;

onecount = 0;

subcat = newArray（）;

<％count = 0

dowhileenotrs.eof％>

subcat [<％= count％>] = newArray（ "<％= trim（rs（" boardName "））％>"、 "<％= trim（rs（" classid "））％>"）;

<％count = count+1

rs.movenext

ループ

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>

************************（ii）グループ化を表示し、リストボックスのオンチェンジイベントを作成します。

<％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

ループ

endif

rs.close

setrs = Nothing％>

</select>

<SelectName = "BoardID"> <OptionsElectedValue = ""> == Subcategory == </option>を選択してください

</select>