js 脚本 :
<%
희미한
dimsql
디미커
Dimrs1
dimsql1
sql = "select*from regionorderByzoneidasc"
setrs = server.createobject ( "adodb.recordset")
Rs.Opensql, Conn, 1,3
%>
<scriptLanguage = "JavaScript">
VaroneCount;
oneCount = 0;
subcat = newArray ();
<%
카운트 = 0
dowhilenotrs.eof
%>
서브 캣 [<%= count%>] = newArray ( "<%= trim (rs ("regionName "))%>", "<%= trim (rs ("ZoneId ")))%>", "<%= trim ("regionId "))%>");
<%
count = count+1
rs.movenext
고리
Rs.Close
setrs = 아무것도
%>
oneCount = <%= count%>;
FunctionChangelocation (ZoneID)
{
document.myform.region.length = 0;
varzoneid = Zoneid;
vari;
document.myform.region.options [0] = newOption ( '-地区-', '');
for (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]);
}
}
}
</스크립트>
表单内容 :
<테이블>
<양식>
<tr>
<td>
<spanclass = "style1">*</span> 大区 ：
<selectName = "Zone"size = "1"id = "Zone"onchange = "changelocation (document
<옵션 value = 0SELECTED> 请选择 </옵션>
<%
sql1 = "선택*FrombigzoneorderByzonenameasc"
setrs1 = server.createobject ( "adodb.recordset")
Rs1. Opensql1, Conn, 1,3
%>
<%whilenotrs1.eof%>
<OptionValue = "<%= rs1 ("ZoneId ")%>"> <%= rs1 ( "ZoneName")%> </옵션>
<%rs1.movenext
향하게 하다
rs1.close
setrs1 = 아무것도
%>
</선택> </td>
<tdwidth = "20%"> <spanclass = "style1">*</span> 地区 ：
<selectName = "region"size = "1"id = "region">
<옵션 value = 0SELECTED> 请选择 </옵션>
</선택>
</tr>
</form>
</테이블>