1.
<%
if Request.QueryString("CityID")="" then
session("SelectID_P")=request.QueryString("ProvinceID")
end if
SelectID_C=Request.QueryString("CityID")
Set rs_province = Server.CreateObject("ADODB.Recordset")
sql_P = "SELECT * FROM DB_Area WHERE TypeID=1 or TypeID=4 or TypeID=5"
rs_province.open sql_P,conn,1,3
%>
2.
<script language="javascript">
function ChangeItem_P(){
var ProvinceID=form1.Province.value;
window.location.href="index.asp?ProvinceID="+ProvinceID;
}
</script>
<script language="javascript">
function ChangeItem_C(){
var CityID=form1.city.value;
window.location.href="index.asp?CityID="+CityID;
}
</script>
3.
<form name="form1" method="post" action="del_area_T_OK.asp">
<table width="88%" height="142" border="1" cellpadding="-2"
cellspacing="-2" bordercolor="#669999" bordercolordark="#FFFFFF">
<tr>
<td width="32%" height="27" bgcolor="#809EA4"><div align="center" class="style1">省级名称: </div></td>
<td width="68%">
<%
if session("SelectID_P")<>"" then
sql="select* from DB_area where TypeID=2 and father="&session("SelectID_P")
sql_T="select* from DB_area where TypeID=3 and father="&session("SelectID_P")
else
sql="select* from DB_area where TypeID=2 and father="&rs_province("ID")
sql_T="select* from DB_area where TypeID=3 and father="&rs_province("ID")
end if
set rs_city=conn.execute(sql)
set rs_Town=conn.execute(sql_T)
%><div align="left">
<select name="Province" onChange="ChangeItem_P()">
<%
rs_province.movefirst
While (NOT rs_province.EOF)
%>
<option value="<%=rs_province("ID")%>" <% if rs_province("ID")=cint(session("SelectID_P")) then %>
selected<% end if%>><%=rs_province("Name")%></option>
<%
rs_province.MoveNext()
Wend
If (rs_province.CursorType > 0) Then
rs_province.MoveFirst
Else
rs_province.Requery '通过重新执行对象所基于的查询,来更新 Recordset 对象中的数据
End If
%>
</select>
</div></td>
</tr>
<tr>
<td height="27" bgcolor="#809EA4"><div align="center" class="style1">市/县名称:
</div></td>
<td><div align="left">
<% IF not rs_city.EOF then %>
<select name="city" onChange="ChangeItem_C()">
<%While (NOT rs_city.EOF)%>
<option value="<%=(rs_city.Fields.Item("ID").Value)%>" <% if rs_city("ID")=cint(SelectID_C) then %> selected <%end if%>><%=(rs_city.Fields.Item("Name").Value)%></option>
<%
rs_city.MoveNext()
Wend
If (rs_city.CursorType > 0) Then
rs_city.MoveFirst
Else
rs_city.Requery
End If%>
</select>
<% else%>
<div align="left">
<select name="city" onChange="ChangeItem_C()">
<option value="0">---</option>
</select>
</div>
<% End If %>
</div></td></tr>
<tr>
<td height="27" bgcolor="#809EA4"><div align="center" class="style1">区/镇/乡名称:</div></td>
<td><%
if SelectID_C<>"" then
sql_T="select* from DB_area where father="&SelectID_C
set rs_town=conn.execute(sql_T)
else
if rs_Town.eof then
if not rs_city.eof then
sql_T="select* from DB_area where father="&rs_city("ID")
set rs_town=conn.execute(sql_T)
else
sql_T="select* from DB_area where father=-1"
set rs_town=conn.execute(sql_T)
end if
end if
end if
%>
<% if not rs_town.eof then%>
<div align="left">
<select name="town" id="select5">
<% While (NOT rs_town.EOF)
%><option value="<%=(rs_town.Fields.Item("ID").Value)%>" <% if rs_town("ID")=SelectID_C then %> selected <%end if%>><%=(rs_town.Fields.Item("Name").Value)%></option>
<%
rs_town.MoveNext()
Wend%>
</select>
</div>
<% else %>
<div align="left">
<select name="town" id="select5">
<option value="0">---</option>
</select>
</div>
<% End If
If (rs_town.CursorType > 0) Then
rs_town.MoveFirst
Else
rs_town.Requery
End If%>
</td>
</tr>
<tr>
<td height="33" colspan="2"><div align="center">
<input name="Submit" type="submit" class="Style_button" value="删除">
<input name="Button" type="button" class="Style_button" value="关闭"
onClick="javascrip:opener.location.reload();window.close()">
</div></td>
</tr>
</table>
</form>