city.asp1

适用于网络/信息企业

<%
Dim Count_City
Set RsCity = Conn.Execute("Select City,PartID,NumberID From City Order By CityOrder")
%>
<script language = "JavaScript">
var disabled_A = false
var 	OneCount;
		OneCount	= 0;
		Cat 		= new Array();
<%
   		Count_City 		= 0
		do while not RsCity.eof 
%>
		Cat[<%=Count_City%>] = new Array("<%= RsCity("City")%>","<%= RsCity("PartID")%>","<%= RsCity("NumberID")%>");
<%
        Count_City 		= Count_City + 1
		RsCity.MoveNext
        loop
        RsCity.Close
%>
		OneCount	=<%=Count_City%>;
//二级联动
function location_A(ID)
    {
	document.form.City_A.disabled = false;
	document.form.City_B.disabled = true;
	document.form.City_C.disabled = true;
    document.form.City_A.length = 0; 
	var ID	= ID;
    var i;
	var ii = 0;
	     	document.form.City_A.options[document.form.City_A.length] = new Option('选择城市', '');
    for (i=0;i < OneCount; i++)
        {
            if (Cat[i][1] == ID)
            {
            document.form.City_A.options[document.form.City_A.length] = new Option(Cat[i][0], Cat[i][2]);
			ii = ii + 1
			}        
        }
	 if (ii == 0)
	 {
	 document.form.City_A.disabled = true;
	 }
    }
//三级联动	
function location_B(ID)
    {
	document.form.City_B.disabled = false;
	document.form.City_C.disabled = true;
    document.form.City_B.length = 0; 
	var ID	= ID;
    var i;
	var ii = 0;
	     	document.form.City_B.options[document.form.City_B.length] = new Option('选择城市', '');
    for (i=0;i < OneCount; i++)
        {
            if (Cat[i][1] == ID)
            { 
             document.form.City_B.options[document.form.City_B.length] = new Option(Cat[i][0], Cat[i][2]);
			ii = ii + 1
			}        
        }
	 if (ii == 0)
	 {
	 document.form.City_B.disabled = true;
	 }
	}
//四级联动	
function location_C(ID)
    {
	document.form.City_C.disabled = false;
    document.form.City_C.length = 0; 
	var ID	= ID;
    var i;
	var ii = 0;
	     	document.form.City_C.options[document.form.City_C.length] = new Option('选择城市', '');
	for (i=0;i < OneCount; i++)
        {
            if (Cat[i][1] == ID)
            { 
             document.form.City_C.options[document.form.City_C.length] = new Option(Cat[i][0], Cat[i][2]);
			ii = ii + 1
			}        
        }
	 if (ii == 0)
	 {
	 document.form.City_C.disabled = true;
	 }
	}
</script>

		<select name="City" size="1" id="City" onChange="location_A(document.form.City.options[document.form.City.selectedIndex].value)">
		<option selected value="">选择城市</option>
<%
	Set RsCity = Conn.Execute("Select City,NumberID From City Order By CityOrder")
        While Not RsCity.Eof
		
		IF InStr(City, RsCity("NumberID")) = 1 Then
		PartID = RsCity("NumberID")
%>
        <option value="<%=RsCity("NumberID")%>"selected><%=RsCity("City")%></option>
<%		
		Else
%>
        <option value="<%=RsCity("NumberID")%>"><%=RsCity("City")%></option>
<%
		End IF
        RsCity.MoveNext
        Wend
        RsCity.Close
%>
        </select>

		<select name="City_A"  <%IF PartID = "" Then%>disabled="disabled"<%End IF%> onChange="location_B(document.form.City_A.options[document.form.City_A.selectedIndex].value)">
<%
	Set RsCity = Conn.Execute("Select City,NumberID From City Where PartID = '"& PartID &"' Order By CityOrder")
%>
		<option selected value="">选择城市</option>
<%
        While Not RsCity.Eof
		
		IF InStr(City, RsCity("NumberID")) = 1 Then
		PartID_A = RsCity("NumberID")
%>
        <option value="<%=RsCity("NumberID")%>"selected><%=RsCity("City")%></option>
<%		
		Else
%>
        <option value="<%=RsCity("NumberID")%>"><%=RsCity("City")%></option>
<%
		End IF
        RsCity.MoveNext
        Wend
        RsCity.Close
%>
        </select>

		<select name="City_B" <%IF PartID_A = "" Then%>disabled="disabled"<%End IF%> onChange="location_C(document.form.City_B.options[document.form.City_B.selectedIndex].value)">
<%
	Set RsCity = Conn.Execute("Select City,NumberID From City Where PartID = '"& PartID_A &"' Order By CityOrder")
%>
		<option selected value="">选择城市</option>
<%
        While Not RsCity.Eof
		
		IF InStr(City, RsCity("NumberID")) = 1 Then
		PartID_B = RsCity("NumberID")
%>
        <option value="<%=RsCity("NumberID")%>"selected><%=RsCity("City")%></option>
<%		
		Else
%>
        <option value="<%=RsCity("NumberID")%>"><%=RsCity("City")%></option>
<%
		End IF
        RsCity.MoveNext
        Wend
        RsCity.Close
%>
        </select>

		<select name="City_C" <%IF PartID_B = "" Then%>disabled="disabled"<%End IF%>>
<%
	Set RsCity = Conn.Execute("Select City,NumberID From City Where PartID = '"&  PartID_B &"' Order By CityOrder")
%>
		<option selected value="">选择城市</option>
<%
        While Not RsCity.Eof
		
		IF InStr(City, RsCity("NumberID")) = 1 Then
%>
        <option value="<%=RsCity("NumberID")%>"selected><%=RsCity("City")%></option>
<%		
		Else
%>
        <option value="<%=RsCity("NumberID")%>"><%=RsCity("City")%></option>
<%
		End IF
        RsCity.MoveNext
        Wend
        RsCity.Close
%>
        </select>