Напишите исходный код с помощью вторичного каталога (ASP+JavaScript)

***************** •

<%

Dimcount

setrs = server.createObject ("adodb.recordset")

Sql = "select*fromBookboardBordByClassIddesc"

Rs.opensql, CN, 1,1%>

<scriptlanguage = "javascript">

varonecount;

OneCount = 0;

subcat = newarray ();

<%count = 0

dowhilenotrs.eof%>

subcat [<%= count%>] = newarray ("<%= trim (rs (" bardname "))%>", "<%= trim (rs (" classid "))%>");

<%count = count+1

Rs.movenext

петля

Rs.close%>

OneCount = <%= count%>;

functionChangeLocation (locationId)

{document.form1.bodeId.length = 0;

varlocationId = locationId;

vari;

для (i = 0; i <onecount; i ++)

{if (subcat [i] [1] == locationId)

{document.form1.bodeId.Options [document.form1.bodeId.length] = newOption (subcat [i] [0], subcat [i] [2]);

}}}

</script>

***************** •

<%setrs = server.createObject ("adodb.recordset")

Sql = "select*frombookclassorderbyclassiddesc"

Rs.opensql, CN, 1,1

ifrs.eofandrs.bofthen

response.write «Пожалуйста, добавьте общий класс сначала».

response.end

иначе%>

<selectname = "classid" onchange = "Changelocation (document.form1.classid.options [document.form1.classid.selectedIndex] .value)">

<optionselectedValue = ""> == Пожалуйста, выберите основную категорию == </option>

<%dountilr.eof%>

<optionvalue = "<%= trim (rs (" classid "))%>"> <%= trim (rs ("classname"))%> </option>

<%Rs.movenext

петля

эндиф

Rs.close

setrs = ничего%>

</select>

<selectName = "BODID"> <OPTIONSELECTEDVALUE = ""> == Выберите Subcategory == </option>

</select>