两个下拉菜单的二级联动

<form name="form1" action="search.asp" method="post" >


请选择


<select name="selBigCategory" onChange="TypeChange(this);" >


<%m_SQL="Select ID,Value From CityType order by ID"


Set rs = conn.Execute(m_SQL)


mBigArray = rs.GetRows()


for i=0 to ubound(mBigArray,2)


m_SQL2="Select * From AreaType Where CityTypeID="&mBigArray(0,i)&" order by Grade"


Set rs = conn.Execute(m_SQL2)


strSmallCategory = mBigArray(0,i)&"-"


Do While not rs.Eof


strSmallCategory = strSmallCategory & rs("ID")&"+"&rs("Value")+"-"


rs.Movenext


Loop


Response.write "<option value="&strSmallCategory&">"&mBigArray(1,i)&"</option>"


next


%>


</select>


<script language="javascript">


function TypeChange(theSelect)


{


var sTemp,sString,i,sBigTypeID;


sValue=theSelect.value;


sSubTypeArray=sValue.split("-");


sBigTypeID = sSubTypeArray[0];


sString="<select name='TypeID'>";


sString+="<option value='"+sBigTypeID+":0'>全部</option>";


for(i=1;i<sSubTypeArray.length-1;i++)


{


sTemp=sSubTypeArray[i].split("+");




sString+="<option value='"+sBigTypeID+":"+sTemp[0]+"'>"+sTemp[1]+"</option>";


}


// sString+="<option value='"+sBigTypeID+":0'>全部</option>";


sString+="</Select>"


form1.TypeID.outerHTML=sString;




}


</script>


<select name="TypeID" >


</select>


<script language="javascript">TypeChange(form1.selBigCategory);</script>


</form>