********************** (1) افتح مجموعة السجلات ، وإنشاء صفيف ، وتعيين قيمة السجل المحدد على الصفيف.
<٪
dimcount
setRs = server.createObject ("adodb.recordset")
SQL = "SELECT*FromBookboardOrderByClassidDesc"
Rs.Opensql ، CN ، 1،1 ٪>
<scriptLanguage = "JavaScript">
varonecount
OneCount = 0 ؛
subcat = newarray () ؛
<٪ العد = 0
dowhilenotrs.eof ٪>
subcat [<٪ = count ٪>] = newArray ("<٪ = trim (rs (" boorname ")) ٪>" ، "<٪ = trim (rs (" classid)) ٪> ") ؛
<٪ العد = العد+1
Rs.Movenext
حلقة
Rs.Close ٪>
OneCount = <٪ = count ٪> ؛
وظيفة changelocation (موقع)
{document.form1.boardid.length = 0 ؛
varlocationId = locationId ؛
vari
لـ (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) عرض التجميع وكتابة حدث OnChange لمربع القائمة.
<٪ setrs = server.createBject ("adodb.recordset")
SQL = "SELECT*FromBookClassOrderByClassidDesc"
Rs.Opensql ، CN ، 1،1
ifrs.eofandrs.bofthen
الرد. "الرجاء إضافة فئة المجموع أولاً."
استجابة
آخر ٪>
<selectname = "classid" onChange = "ChangeLocation (document.form1.classid.options [document.form1.classid.selectedIndex] .value)">
<PointSelectedValue = ""> == يرجى تحديد الفئة الرئيسية == </eboty>
<٪ dountilrs.eof ٪>
<PointValue = "<٪ = trim (rs (" classid ") ٪>"> <٪ = trim (rs ("className")) ٪> </portion>
<٪ Rs.Movenext
حلقة
Endif
Rs.close
setRs = لا شيء ٪>
</select>
<selectName = "boardId"> <PointSelectedValue = ""> == الرجاء تحديد الفئة الفرعية == </puint>
</select>