author:flynetcn
-------------------------------------------------------------
|
<!--#includefile="../conn.asp"-->
<html>
<head>
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★ ★
'☆tab_addr_sort为无限级分类地址表,表中有三个字段,分别为☆
'★ ★
'☆addr_sort_id(地址id)、addr_sort(地址名称)、 ☆
'★ ★
'☆bigsort_id(所属id)☆
'★ ★
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'把表中数据写入数组
sql = "select *from tab_addr_sort order by addr_sort_id desc"
setrs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<scripttype="text/javascript">
varonecount1;
onecount1=0;
subcat1 = newArray();
<%
count = 0
dowhilenotrs.eof
%>
subcat1[<%=count%>]= newArray("<%=trim(rs("addr_sort"))%>","<%=trim(rs("bigsort_id"))%>","<%=trim(rs("addr_sort_id"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount1=<%=count%>;
//选择第一级列表时触发此函数
functionchangelocation1(addrone)
{
document.myform.addrtwo_id.length = 0;
vari;
document.myform.addrtwo_id.options[0]= newOption('请选择市','');
for(i=0;i < onecount1; i++)
{
if(subcat1[i][1]== addrone)
{
document.myform.addrtwo_id.options[document.myform.addrtwo_id.length]= newOption(subcat1[i][0], subcat1[i][2]);
}
}
}
</script>
</head>
<body>
<table>
<tr>
<tdalign="right"> 选择地区:</td>
<td>
<selectname="addrone_id"
onChange="changelocation1( document.myform.addrone_id.options[document.myform.addrone_id.selectedIndex].value)">
<optionvalue=""selected>请选择省</option>
<!--生成一级列表-->
<%
sql="select *from tab_addr_sort where bigsort_id=0 order by addr_sort_id desc"
rs.open sql,conn,1,1
whilenotrs.eof
%>
<optionvalue="<%=rs("addr_sort_id")%>"><%=rs("addr_sort")%></option>
<%
rs.movenext
wend
rs.Close()
setrs=nothing
setconn=nothing
%>
</select>
<selectname="addrtwo_id">
<optionselectedvalue="">请选择市</option>
</select>
</td>
</tr>
</table>
</body>
</html>