Escreva um código -fonte com um diretório secundário (ASP+JavaScript)

************************ (1) Abra o conjunto de registros, crie uma matriz e atribua o valor do conjunto de registros à matriz.

<%

DimCount

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

SQL = "Selecione*FromBookerBerByClassIdDesc"

Rs.Opensql, CN, 1,1%>

<scriptLanguage = "javascript">

VaroneCount;

ONECOUNT = 0;

subcat = newArray ();

<%contagem = 0

Dowhilenotrs.eof%>

subcat [<%= count%>] = newArray ("<%= TRIM (rs (" nome da placa "))%>", "<%= TRIM (rs (" classid "))%>");

<%contagem = contagem+1

Rs.movenext

laço

Rs.close%>

OneCount = <%= contagem%>;

FunctionChangelocation (LocationId)

{document.form1.boardid.length = 0;

varlocationId = LocationId;

vari;

para (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) Grupo de exibição e escreva o evento OnChange da caixa de listagem.

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

SQL = "Selecione*FromBookClassOrderByClassIdDesc"

Rs.Opensql, CN, 1,1

ifrs.eofandrs.bofthen

Response.Write "Por favor, adicione a classe total primeiro".

resposta.END

else%>

<selectName = "ClassID" onchange = "Changelocation (document.form1.classid.options [document.form1.classid.lectectedIndex] .value)">

<optionselectedValue = ""> == Selecione a categoria principal == </pption>

<%Dountilrs.eof%>

<pptionValue = "<%= TRIM (RS (" Classid "))%>"> <%= Trim (RS ("ClassName"))%> </pption>

<%Rs.movenext

laço

endif

Rs.close

setrs = nada%>

</leclect>

<selectName = "BoardId"> <optionselectedValue = ""> == Por favor, selecione Subcategory == </pption>

</leclect>