Escriba un código fuente con un directorio secundario (ASP+JavaScript)

************************ (1) Abra el conjunto de registros, cree una matriz y asigne el valor del registro establecido en la matriz.

<%

Dimcount

setrs = server.createObject ("ADODB.Recordset")

Sql = "Seleccionar*debookboarderLorByClassidDesc"

Rs.opensql, CN, 1,1%>

<scriptLanguage = "javaScript">

varonecount;

Onecount = 0;

subcat = newArray ();

<%cuenta = 0

dowhilenotrs.eof%>

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

<%Count = Count+1

Rs.Movenext

bucle

Rs.Close%>

oneCount = <%= count%>;

FunctionChangeLocation (ubicación)

{document.form1.boardid.length = 0;

varLocationId = UbocationId;

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) Mostrar agrupación y escribir el evento Onchange del cuadro de lista.

<%setrs = server.createObject ("ADODB.Recordset")

SQL = "SELECT*de BookClassOrderByClassidDesc"

Rs.Opensql, CN, 1,1

ifrs.eofandrs.bofthen

Response.swrit "Primero agregue la clase total".

respuesta.

else%>

<selectName = "classid" onChange = "ChangeLocation (document.form1.classid.options [document.form1.classid.selectedIndex] .Value)">

<optionsElectedValue = ""> == Seleccione la categoría principal == </ppection>

<%dountilrs.eof%>

<optionValue = "<%= trim (rs (" classid "))%>"> <%= trim (rs ("classname"))%> </opción>

<%Rs.Movenext

bucle

endif

Rs.

setrs = nada%>

</select>

<selectName = "BoardId"> <optionsElectedValue = ""> == Seleccione Subcategoría == </opción>

</select>