JS 脚本:
<%
dimrs
Dimsql
Dimcount
dimrs1
Dimsql1
sql = "AusregionOrderByzoneidasc" auswählen "
setrs = server.createObject ("adodb.recordset")
Rs.opensql, Conn, 1,3
%>
<criptuanguage = "javaScript">
varonecount;
OneCount = 0;
subcat = newArray ();
<%
count = 0
dowhilenotrs.eof
%>
subcat [<%= count%>] = newArray ("<%= trim (rs (" RegionName ")%>", "<%= trim (rs (" zoneId ")%>", "<%= trim (rs (" RegionID ")%>");
<%
count = count+1
Rs.Movenext
Schleife
rs.close
setrs = nichts
%>
OneCount = <%= count%>;
FunktionChangelocation (ZoneId)
{
document.myform.region.length = 0;
varzoneid = zoneId;
vari;
document.myform.region.options [0] = newoption ('-地区-', '');
für (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>
表单内容::
<tabelle>
<form>
<tr>
<td>
<spancklass = "style1">*</span> 大区 ：
<selectName = "zone" size = "1" id = "zone" onchange = "changelocation (document.myform.zone.options [document.myform.zone.selectedIndex] .Value)">
<optionValue = 0Selected> 请选择 </Option>
<%
SQL1 = "SELECT*FROMBIGZONEDBYZONENAMEASC"
setRS1 = server.createObject ("adodb.recordset")
Rs1.opensql1, Conn, 1,3
%>
<%whilenotrs1.eof%>
<optionValue = "<%= rs1 (" zoneId ")%>"> <%= rs1 ("Zonename")%> </option>
<%RS1.Movenext
Wend
RS1.CLOSE
setrs1 = nichts
%>
</select> </td>
<tdwidth = "20%"> <spancklass = "style1">*</span> 地区 ：
<selectName = "Region" size = "1" id = "Region">
<optionValue = 0Selected> 请选择 </Option>
</select>
</tr>
</form>
</table>