************************ (1) Ouvrez l'ensemble d'enregistrements, créez un tableau et attribuez la valeur du jeu d'enregistrements au tableau.
<%
Diminue
setrs = server.createObject ("adodb.recordSet")
SQL = "SELECT * FromBookBoardOrderByClassidDesc"
Rs.OpenSQL, CN, 1,1%>
<criptLanguage = "JavaScript">
VaroNeCount;
onCount = 0;
subcat = newArray ();
<% Count = 0
dowhilenotrs.eof%>
subcat [<% = count%>] = newArray ("<% = Trim (RS (" Boardname "))%>", "<% = TRIM (RS (" Classid "))%>");
<% Count = Count + 1
Rs.MovEnext
boucle
Rs.Close%>
onCount = <% = count%>;
FunctionChangelocation (locationID)
{document.form1.boardId.length = 0;
varLocationId = locationId;
vari;
pour (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]);
}}}
</cript>
************************ (II) Affichage du regroupement et écrivez l'événement Onchange de la zone de liste.
<% setrs = server.createObject ("adodb.recordSet")
SQL = "SELECT * FROMBOWNCLASSORDERBYCLASSIDDESC"
Rs.OpenSQL, CN, 1,1
ifrs.eofandrs.bofthen
Response.Write "Veuillez d'abord ajouter la classe totale."
réponse.
else%>
<lectName = "Classid" onChange = "ChangeLocation (document.form1.classid.options [document.form1.classid.selectedIndex] .Value)">
<optionSelectedValue = ""> == Veuillez sélectionner la catégorie principale == </ Option>
<% dounilrs.eof%>
<optionValue = "<% = Trim (RS (" Classid "))%>"> <% = TRIM (RS ("ClassName"))%> </ Option>
<% Rs.Movenext
boucle
endire
Rs.Close
setrs = rien%>
</lect>
<lectName = "BoardId"> <OptionSelectedValue = ""> == Veuillez sélectionner Subcategory == </ Option>
</lect>