柠檬铺

JS脚本:　　<%
　　dim rs
　　dim sql
　　dim count
　　dim rs1
　　dim sql1
　　sql = "select * from region order by zoneid asc"
　　set rs = server.createobject("adodb.recordset")
　　rs.open sql,conn,1,3
　　%>
　　<script language = "JavaScript">
　　var onecount;
　　onecount=0;
　　subcat = new Array();
　　<%
　　count = 0
　　do while not rs.eof
　　%>
　　subcat[<%=count%>] = new Array("<%= trim(rs("regionname"))%>","<%= trim(rs("zoneid"))%>","<%= trim(rs("regionid"))%>");
　　<%
　　count = count + 1
　　rs.movenext
　　loop
　　rs.close
　　set rs=nothing
　　%>
　　onecount=<%=count%>;
　　function changelocation(zoneid)
　　{
　　document.myform.region.length = 0;
　　var zoneid=zoneid;
　　var i;
　　document.myform.region.options[0] = new Option('--地区--','');
　　for (i=0;i < onecount; i++)
　　{
　　if (subcat[i][1] == zoneid)
　　{
　　document.myform.region.options[document.myform.region.length] = new Option(subcat[i][0], subcat[i][2]);
　　}
　　}
　　}
　　</script>
　　表单内容:
　　<table>
　　<form>
　　<tr>
　　<td>
　　<span class="STYLE1">*</span> 大区：
　　<select name="zone" size="1" id="zone" onChange="changelocation(document.myform.zone.options[document.myform.zone.selectedIndex].value)">
　　<option value=0 selected >请选择</option>
　　<%
　　sql1 = "select * from bigzone order by zonename asc"
　　set rs1 = server.createobject("adodb.recordset")
　　rs1.open sql1,conn,1,3
　　%>
　　<%while not rs1.eof%>
　　<option value="<%=rs1("zoneid")%>"><%=rs1("zonename")%></option>
　　<%rs1.movenext
　　wend
　　rs1.close
　　set rs1 = nothing
　　%>
　　</select> </td>
　　<td width="20%"><span class="STYLE1">*</span>地区：
　　<select name="region" size="1" id="region" >
　　<option value=0 selected >请选择</option>
　　</select>
　　</tr>
　　</form>
　　</table>