省市区三级联动连接数据库

<table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>

<select name="P_JuZhuDi_Area" id="P_JuZhuDi_Area" onChange="changepro('P_JuZhuDi_City','P_JuZhuDi_Area');">
<option value="" selected>省/直辖市</option>
<option value='北京市' <% If P_JuZhuDi_Area = "北京市" Then Response.write "Selected" %>>北京市</option>
<option value='天津市' <% If P_JuZhuDi_Area = "天津市" Then Response.write "Selected" %>>天津市</option>
<option value='河北省' <% If P_JuZhuDi_Area = "河北省" Then Response.write "Selected" %>>河北省</option>
<option value='山西省' <% If P_JuZhuDi_Area = "山西省" Then Response.write "Selected" %>>山西省</option>
<option value='内蒙古区' <% If P_JuZhuDi_Area = "内蒙古区" Then Response.write "Selected" %>>内蒙古区</option>
<option value='辽宁省' <% If P_JuZhuDi_Area = "辽宁省" Then Response.write "Selected" %>>辽宁省</option>
<option value='吉林省' <% If P_JuZhuDi_Area = "吉林省" Then Response.write "Selected" %>>吉林省</option>
<option value='黑龙江省' <% If P_JuZhuDi_Area = "黑龙江省" Then Response.write "Selected" %>>黑龙江省</option>
<option value='上海市' <% If P_JuZhuDi_Area = "上海市" Then Response.write "Selected" %>>上海市</option>
<option value='江苏省' <% If P_JuZhuDi_Area = "江苏省" Then Response.write "Selected" %>>江苏省</option>
<option value='浙江省' <% If P_JuZhuDi_Area = "浙江省" Then Response.write "Selected" %>>浙江省</option>
<option value='安徽省' <% If P_JuZhuDi_Area = "安徽省" Then Response.write "Selected" %>>安徽省</option>
<option value='福建省' <% If P_JuZhuDi_Area = "福建省" Then Response.write "Selected" %>>福建省</option>
<option value='江西省' <% If P_JuZhuDi_Area = "江西省" Then Response.write "Selected" %>>江西省</option>
<option value='山东省' <% If P_JuZhuDi_Area = "山东省" Then Response.write "Selected" %>>山东省</option>
<option value='河南省' <% If P_JuZhuDi_Area = "河南省" Then Response.write "Selected" %>>河南省</option>
<option value='湖北省' <% If P_JuZhuDi_Area = "湖北省" Then Response.write "Selected" %>>湖北省</option>
<option value='湖南省' <% If P_JuZhuDi_Area = "湖南省" Then Response.write "Selected" %>>湖南省</option>
<option value='广东省' <% If P_JuZhuDi_Area = "广东省" Then Response.write "Selected" %>>广东省</option>
<option value='广西区' <% If P_JuZhuDi_Area = "广西区" Then Response.write "Selected" %>>广西区</option>
<option value='海南省' <% If P_JuZhuDi_Area = "海南省" Then Response.write "Selected" %>>海南省</option>
<option value='重庆市' <% If P_JuZhuDi_Area = "重庆市" Then Response.write "Selected" %>>重庆市</option>
<option value='四川省' <% If P_JuZhuDi_Area = "四川省" Then Response.write "Selected" %>>四川省</option>
<option value='贵州省' <% If P_JuZhuDi_Area = "贵州省" Then Response.write "Selected" %>>贵州省</option>
<option value='云南省' <% If P_JuZhuDi_Area = "云南省" Then Response.write "Selected" %>>云南省</option>
<option value='西藏区' <% If P_JuZhuDi_Area = "西藏区" Then Response.write "Selected" %>>西藏区</option>
<option value='陕西省' <% If P_JuZhuDi_Area = "陕西省" Then Response.write "Selected" %>>陕西省</option>
<option value='甘肃省' <% If P_JuZhuDi_Area = "甘肃省" Then Response.write "Selected" %>>甘肃省</option>
<option value='青海省' <% If P_JuZhuDi_Area = "青海省" Then Response.write "Selected" %>>青海省</option>
<option value='宁夏区' <% If P_JuZhuDi_Area = "宁夏区" Then Response.write "Selected" %>>宁夏区</option>
<option value='新疆区' <% If P_JuZhuDi_Area = "新疆区" Then Response.write "Selected" %>>新疆区</option>
<option value='台湾省' <% If P_JuZhuDi_Area = "台湾省" Then Response.write "Selected" %>>台湾省</option>
<option value='香港特区' <% If P_JuZhuDi_Area = "香港特区" Then Response.write "Selected" %>>香港特区</option>
<option value='澳门特区' <% If P_JuZhuDi_Area = "澳门特区" Then Response.write "Selected" %>>澳门特区</option>
</select></td>
<td>
<%
set rs=server.CreateObject("adodb.recordset")
sql = "select * from Ejz_User"
rs.Open sql,conn,1,1
%>
<select name="P_JuZhuDi_City" id="P_JuZhuDi_City" onChange="changecity('P_JuZhuDi_xian','P_JuZhuDi_City');">
<option value="">请选择</option>
<%do while not rs.eof%>
<option value="<%=rs("P_JuZhuDi_City")%>" <% If P_JuZhuDi_City = rs("P_JuZhuDi_City") Then Response.write "Selected" %>><%=rs("P_JuZhuDi_City")%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select></td>
<td>
<%
set rs=server.CreateObject("adodb.recordset")
sql = "select * from Ejz_User"
rs.Open sql,conn,1,1
%>
<select name="P_JuZhuDi_xian" id="P_JuZhuDi_xian" >
<option value="">请选择</option>
<%do while not rs.eof%>
<option value="<%=rs("P_JuZhuDi_xian")%>" <% If P_JuZhuDi_xian = rs("P_JuZhuDi_xian") Then Response.write "Selected" %>><%=rs("P_JuZhuDi_xian")%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select></td>
</tr>
</table>

JS文件：http://download.csdn.net/detail/liuswi/4667134