asp动态级联菜单代码

答案：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> 

上一个：ASP中经常使用的SQL语句与教程说明
下一个：FormatRemoteUrl函数之asp实现格式化成当前网站完整的URL-将相对地址转换为绝对地址的代码