JS 脚本:
<%
diminue
dimsql
diminue
dimrs1
dimsql1
sql = "select * fromRegionOrderByZoneidasc"
setrs = server.createObject ("adodb.recordSet")
Rs.OpenSQL, Conn, 1,3
%>
<criptLanguage = "JavaScript">
VaroNeCount;
onCount = 0;
subcat = newArray ();
<%
comte = 0
dowhilenotrs.eof
%>
subcat [<% = count%>] = newArray ("<% = TRIM (RS (" RegionName "))%>", "<% = TRIM (RS (" ZoneID "))%>", "<% = TRIM (RS (" RegionId "))%>");
<%
Count = Count + 1
Rs.MovEnext
boucle
Rs.Close
setrs = rien
%>
onCount = <% = count%>;
FunctionChangelocation (ZoneID)
{
document.myform.region.length = 0;
VarzoneId = ZoneId;
vari;
document.myform.region.options [0] = newOption ('- 地区 -', '');
pour (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]);
}
}
}
</cript>
表单内容:
<ballage>
<formulaire
<tr>
<TD>
<spanclass = "style1"> * </span> ： ：
<lectName = "Zone" size = "1" id = "zone" onchange = "ChangeLocation (document.myform.zone.options [document.myform.zone.selectedIndex] .Value)">
<optionValue = 0Selected> 请选择 </ Option>
<%
SQL1 = "SELECT * FROMBIGZONEORDERBYZONENAMEASC"
setrs1 = server.createObject ("adodb.recordSet")
RS1.OpenSQL1, Conn, 1,3
%>
<% whilenotrs1.eof%>
<optionValue = "<% = RS1 (" ZoneId ")%>"> <% = RS1 ("Zonename")%> </opopoption>
<% RS1.MoVeNext
se promener
rs1.close
setrs1 = rien
%>
</lect> </td>
<tdwidth = "20%"> <spanclass = "style1"> * </span> ：
<lectName = "région" size = "1" id = "région">
<optionValue = 0Selected> 请选择 </ Option>
</lect>
</tr>
</ form>
</ table>