<script language="Javascript"> 
function GetResult(str) 
{ 
/* 
 *--------------- GetResult(str) ----------------- 
 * GetResult(str)  
 * 功能:通過(guò)XMLHTTP發(fā)送請(qǐng)求,返回結(jié)果. 
 * 參數(shù):str,字符串,發(fā)送條件. 
 * 實(shí)例:GetResult(document.all.userid.value); 
 * author:wanghr100(灰豆寶寶.net) 
 * update:2004-5-27 19:02 
 *--------------- GetResult(str) ----------------- 
 */ 
    var oBao = new ActiveXObject("Microsoft.XMLHTTP"); 
    oBao.open("POST","Server.asp?sel="+str,false); 
    oBao.send(); 
    //服務(wù)器端處理返回的是經(jīng)過(guò)escape編碼的字符串. 
    //通過(guò)XMLHTTP返回?cái)?shù)據(jù),開(kāi)始構(gòu)建Select. 
    BuildSel(unescape(oBao.responseText),document.all.sel2) 
} 
function BuildSel(str,sel) 
{ 
/* 
 *--------------- BuildSel(str,sel) ----------------- 
 * BuildSel(str,sel)  
 * 功能:通過(guò)str構(gòu)建Select. 
 * 參數(shù):str,字符串,由服務(wù)端返回的.有特定結(jié)構(gòu)"字符串1,字符串2,字符串3" 
 * 參數(shù):sel,要構(gòu)建的Select 
 * 實(shí)例:BuildSel(unescape(oBao.responseText),document.all.sel2) 
 * author:wanghr100(灰豆寶寶.net) 
 * update:2004-5-27 19:02 
 *--------------- BuildSel(str,sel) ----------------- 
 */ 
    //先清空原來(lái)的數(shù)據(jù). 
    sel.options.length=0; 
    var arrstr = new Array(); 
    arrstr = str.split(","); 
    //開(kāi)始構(gòu)建新的Select. 
    for(var i=0;i<arrstr.length;i++) 
    { 
        sel.options[sel.options.length]=new Option(arrstr,arrstr) 
    } 
} 
</script> 
<select name="sel" onChange="GetResult(this.value)"> 
<option value="">請(qǐng)選擇 
<option value="福建省">福建省 
<option value="湖北省">湖北省 
<option value="遼寧省">遼寧省 
<select> 
<select name="sel2"></select>

<% @Language="Javascript" %> 
<% 
function OpenDB(sdbname) 
{ 
/* 
 *--------------- OpenDB(sdbname) ----------------- 
 * OpenDB(sdbname)  
 * 功能:打開(kāi)數(shù)據(jù)庫(kù)sdbname,返回conn對(duì)象. 
 * 參數(shù):sdbname,字符串,數(shù)據(jù)庫(kù)名稱(chēng). 
 * 實(shí)例:var conn = OpenDB("database.mdb"); 
 * author:wanghr100(灰豆寶寶.net) 
 * update:2004-5-12 8:18 
 *--------------- OpenDB(sdbname) ----------------- 
 */ 
    var connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(sdbname); 
    var conn = Server.CreateObject("ADODB.Connection"); 
    conn.Open(connstr); 
    return conn; 
} 
var oConn = OpenDB("data.mdb"); 
var province = Request("sel"); 
var arrResult = new Array(); 
var sql = "select city from china where province='"+province+"'"; 
var rs = Server.CreateObject("ADODB.Recordset"); 
rs.Open(sql,oConn,1,1); 
while(!rs.EOF) 
{ 
    //遍歷所有適合的數(shù)據(jù)放入arrResult數(shù)組中. 
    arrResult[arrResult.length] = rs("city").Value; 
    rs.MoveNext(); 
} 
//escape解決了XMLHTTP。中文處理的問(wèn)題. 
//數(shù)組組合成字符串.由","字符串連接. 
Response.Write(escape(arrResult.join(","))); 
%>