اكتب رمز مصدر مع دليل ثانوي (ASP+JavaScript)

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