JS 脚本:
<%
Dimrs
Dimsql
DiMcount
DIMRS1
Dimsql1
SQL = "SELECT*FROMREGIONORDERBYZONEIDASC"
setRs = server.CreateObject ("adodb.recordset")
rs.opensql, Conn, 1,3
%>
<ScriptLanguage = "JavaScript">
varonecount;
Onecount = 0;
subcat = newArray ();
<%
Hitung = 0
dowhilenotrs.eof
%>
Subcat [<%= Count%>] = newArray ("<%= trim (rs (" regionName "))%>", "<%= trim (rs (" zonaid "))%>", "<%= trim (rs (" regionid "))%>");
<%
hitung = hitung+1
rs.movenext
lingkaran
rs.close
setRs = tidak ada
%>
Onecount = <%= Count%>;
functionChangelocation (zonaid)
{
document.myform.region.length = 0;
varzoneid = zonaid;
vari;
document.myform.region.options [0] = newoption ('-地区-', '');
untuk (i = 0; i <onecount; i ++)
{
if (subcat [i] [1] == zonaid)
{
document.myform.region.options [document.myform.region.length] = newoption (subcat [i] [0], subcat [i] [2]);
}
}
}
</script>
表单内容:
<able>
<sorm>
<tr>
<td>
<spanclass = "style1">*</span> 大区 :
<SelectName = "zona" size = "1" id = "zona" onchange = "changelocation (document.myform.zone.options [document.myform.zone.selectedIndex] .value)">
<OptionValue = 0Selected> 请选择 </pection>
<%
sql1 = "Pilih*FrombigZoneOrderByZoneNeMeAsc"
setrs1 = server.createObject ("adodb.recordset")
rs1.opensql1, conn, 1,3
%>
<%whilenotrs1.eof%>
<optionValue = "<%= rs1 (" zoneId ")%>"> <%= rs1 ("zonename")%> </pection>
<%rs1.movenext
pergi ke
rs1.close
setrs1 = tidak ada
%>
</pilih> </td>
<tdwidth = "20%"> <spanclass = "style1">*</span> : :
<SelectName = "region" size = "1" id = "region">
<OptionValue = 0Selected> 请选择 </pection>
</pilih>
</tr>
</form>
</boable>