级联菜单

来源：互联网发布：linux赋权限命令编辑：程序博客网时间：2024/05/11 15:34

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>