我以前写的部分代码,你自已看着改吧
<script LANGUAGE="javascript">
/*****************************************************************
SiteManagerV4 data autoload scripts
last modified 2002-9-20 written by jaron@jdinfo.net
usage: OnChange="JavaScript:getdata('HuKou','HuKouCity','city')
comment: parameter1: current option , parameter2 destination option
parameter3: SYSTEM DICT pattern
//<iframe width=0 height=0 src="" id="hiddenframe"></iframe>
//if you do like this interface please write to us
*****************************************************************/
function getdata(ObjName,DesName,skind){
document.frames["hiddenframe"].location.replace('loaddata.asp?svalue='+document.forms[0].elements[ObjName].value+'&ObjName='+ObjName+'&DesName='+DesName+'&skind='+skind);
}
</script>
<form>
<iframe width=0 height=0 src="" id="hiddenframe"></iframe>
<select name="Province" OnChange="JavaScript:getdata('Province','City','city');">
....
</select> <select name="City" style="width:100px"></select>
</form>
<SCRIPT LANGUAGE=javascript>
/*****************************************************************
jiangdu.net data autoload scripts
last modified 2002-9-20
written by jaron@jdinfo.net
//if you do like this interface please write to us
*****************************************************************/
<!--
if( self == top ){
location = "/error.asp?id=10003";
}
function GetObjID(ObjName)
{ for (var ObjID=0; ObjID < parent.document.forms[0].elements.length; ObjID++)
if (parent.document.forms[0].elements[ObjID].name == ObjName )
{ return(ObjID);
break;
}
return(-1);
}
function ActiveChangeOption(ObjName,DesName,ActiveData){
ObjID = GetObjID(ObjName);
DesObjID = GetObjID(DesName);
if ( ObjID != -1 && DesObjID != -1 )
{
CatValue = parent.document.forms[0].elements[ObjID].value.substring(0, 2);
if ( CatValue == "0" )
parent.document.forms[0].elements[DesObjID].length=0;
else
{ //PARSING
parent.document.forms[0].elements[DesObjID].length=0;
var tt = ActiveData;
var SubCategory = tt.split(";");
//GENERATE OPTIONS
j=0;
parent.document.forms[0].elements[DesObjID].options[j]= new Option( "---请选择---", "0000");
j=1;
for (var i=0; i< SubCategory.length; i++ )
{
pp = SubCategory[i].split(",");
if ( pp[0].substring(0,2) == CatValue && pp[0].substring(2,4) != "00" ){
parent.document.forms[0].elements[DesObjID].options[j]= new Option( pp[1], pp[0]);
j++;
}//if
}//for
}//if
}//if
}
//-->
</SCRIPT>
<%
svalue=request("svalue")
skind=request("skind")
Set rs_ = Server.CreateObject("ADODB.Recordset")
Query = "Select * From sysdict WHERE (name NOT LIKE '%不限%') AND (kind = '"&skind&"' and left(code,2)='"&left(svalue,2)&"') order by code"
rs_.Open Query,MyConn,1,1
Do While Not rs_.EOF
CityCity=rs_("code")&","&rs_("name")&";"&CityCity
rs_.MoveNext
loop
rs_.Close
Set rs_ = Nothing
Response.Write "<script>"&chr(13)
'response.write "parent.loadremind.innerHTML='<font color=FF0000>正在加载数据,请稍候...</font> <img src=/images/loadgraphic.gif width=94 height=17>';"
Response.write "ActiveChangeOption('"&request("ObjName")&"','"&request("DesName")&"','"&CityCity&"');"&chr(13)
'response.write "parent.loadremind.innerHTML='';"
Response.Write "</script>"
%>
</div>