JS 脚本:
<٪
Dimrs
Dimsql
dimcount
DIMRS1
DimSQL1
SQL = "SELECT*FROMERERGIONORDERBYZONEIDASCE"
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 (" ZoneID ") ٪>" ، "<٪ = trim (rs (" lreadid ")))) ؛
<٪
العد = العد+1
Rs.Movenext
حلقة
Rs.close
setRs = لا شيء
٪>
OneCount = <٪ = count ٪> ؛
وظيفة CONFORTCHANGELOCATION (ZEONID)
{
document.myform.region.length = 0 ؛
varzoneid = ZoneId ؛
vari
document.myform.region.options [0] = newOption ('-地区-' ، '') ؛
لـ (i = 0 ؛ i <oneCount ؛ i ++)
{
إذا (subcat [i] [1] == ZoneID)
{
document.myform.region.options [document.myform.region.length] = newOption (subcat [i] [0] ، subcat [i] [2]) ؛
}
}
}
</script>
表单内容:
<griding>
<Porm>
<tr>
<td>
<panclass = "style1">*</span> 大区 ：
<selectName = "Zone" size = "1" id = "Zone" onChange = "changelocation (document.myform.zone.options [document.myform.zone.selectedIndex] .value)">
<PointValue = 0Selected> 请选择 </soph>
<٪
SQL1 = "SELECT*FROMBIGZONERDERBYZONENAMEASC"
setRS1 = server.createBject ("adodb.recordset")
RS1.OPENSQL1 ، CONN ، 1،3
٪>
<٪ whilenotrs1.eof ٪>
<PointValue = "<٪ = rs1 (" ZoneId ") ٪>"> <٪ = rs1 ("Zonename") ٪> </portion>
<٪ rs1.movenext
ويند
RS1.Close
setRS1 = لا شيء
٪>
</select> </td>
<tdwidth = "20 ٪"> <panclass = "style1">*</span>
<selectname = "region" size = "1" id = "region">
<PointValue = 0Selected> 请选择 </soph>
</select>
</r>
</form>
</table>