JS 脚本:
<%
dimrs
dimsql
dimcount
dimrs1
dimsql1
sql = "Seleccionar*FromregionOrderByzoneidasc"
setrs = server.createObject ("ADODB.Recordset")
Rs.opensql, Conn, 1,3
%>
<scriptLanguage = "javaScript">
varonecount;
Onecount = 0;
subcat = newArray ();
<%
recuento = 0
dowhilenotrs.eof
%>
subcat [<%= count%>] = newArray ("<%= trim (rs (" regionName ")%>", "<%= trim (rs (" zoneId "))%>", "<%= trim (rs (" regionId "))%>");
<%
recuento = recuento+1
Rs.Movenext
bucle
rs.
SETRS = nada
%>
oneCount = <%= count%>;
functionChangeLocation (ZoneId)
{
document.myform.region.length = 0;
varzoneid = zoneId;
vari;
document.myform.region.options [0] = NewOption ('-地区-', '');
para (i = 0; i <oneCount; i ++)
{
if (subcat [i] [1] == ZoneId)
{
document.myform.region.options [document.myform.region.length] = newOption (subcat [i] [0], subcat [i] [2]);
}
}
}
</script>
表单内容:
<Table>
<form>
<tr>
<TD>
<spanclass = "style1">*</span> 大区 ：
<selectName = "Zone" size = "1" id = "Zone" onChange = "ChangeLocation (document.myform.zone.options [document.myform.zone.selectedIndex] .Value)">
<optionValue = 0Selected> 请选择 </opción>
<%
sql1 = "Seleccionar*FromBigZoneOrderByzonenameSc"
setRS1 = server.createObject ("ADODB.Recordset")
rs1.opensql1, Conn, 1,3
%>
<%whileNotrs1.EOF%>
<optionValue = "<%= rs1 (" zoneId ")%>"> <%= rs1 ("zonename")%> </opción>
<%rs1.movenext
encaminarse a
rs1.lose
SETRS1 = nada
%>
</elect> </td>
<tdwidth = "20%"> <spanclass = "style1">*</span> 地区 ：
<selectName = "región" size = "1" id = "región">
<optionValue = 0Selected> 请选择 </opción>
</select>
</tr>
</form>
</table>