JS脚本：
<％
dimrs
DIMSQL
DIMCOUNT
DIMRS1
DIMSQL1
sql =“ select*fromrigionordorbybybyzoneidasc”
setrs = server.createobject（“ adodb.recordset”）
Rs.Opensql，Conn，1,3
％>
<ScriptLanguage =“ JavaScript”>
VaroneCount;
onecount = 0;
subcat = newarray（）;
<％
计数= 0
dowhilenotrs.eof
％>
subcat [<％= count％>] = newarray（“ <％= trim（rs（“ regionName”）％>”，“” <％= trim（rs（rs diensId'diensId'diensId'diensId''）％>“，” <％= trim（rs（res indimid'regionId'regionId'> regionId'>“））;
<％
计数=计数+1
Rs.Movenext
环形
Rs.Close
setrs =没有
％>
onecount = <％= count％>;
功能ChangeLocation（区域ID）
{
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.gregion.options [document.myform.region.length] = newoption（subcat [i] [0]，subcat [i] [2]）;
}
}
}
</script>
表单内容：
<表>
<形式>
<tr>
<td>
<spanclass =“ style1”>*</span>大区：
<selectName =“ Zone” size =“ 1” ID =“ Zone” onChange =“ ChangElocation（document.myform.zone.options [document.myform.zone.selectedIndex] .value）
<optionValue = 0selected>请选择</option>
<％
sql1 =“ select*frombigzoneorderbybyzonenameasc”
setrs1 = server.createobject（“ adodb.recordset”）
rs1.opensql1，conn，1,3
％>
<％theLeNotrs1.eof％>
<optionValue =“ <％= rs1（“ Zoneid”）％>“> <％= rs1（“ ZonEname”）％> </option>
<％rs1.movenext
温德
rs1.close
setrs1 =没有
％>
</select> </td>
<tdwidth =“ 20％”> <spanclass =“ style1”>*</span>地区：
<selectName =“ region” size =“ 1” id =“ region”>
<optionValue = 0selected>请选择</option>
</select>
</tr>
</form>
</table>