利用XMLHTTP实现的二级连动Select

<script language="Javascript"> 
function GetResult(str) 
{ 
/* 
 *--------------- GetResult(str) ----------------- 
 * GetResult(str)  
 * 功能:通过XMLHTTP发送请求,返回结果. 
 * 参数:str,字符串,发送条件. 
 * 实例: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(); 
    //服务器端处理返回的是经过escape编码的字符串. 
    //通过XMLHTTP返回数据,开始构建Select. 
    BuildSel(unescape(oBao.responseText),document.all.sel2) 
} 
function BuildSel(str,sel) 
{ 
/* 
 *--------------- BuildSel(str,sel) ----------------- 
 * BuildSel(str,sel)  
 * 功能:通过str构建Select. 
 * 参数:str,字符串,由服务端返回的.有特定结构"字符串1,字符串2,字符串3" 
 * 参数:sel,要构建的Select 
 * 实例:BuildSel(unescape(oBao.responseText),document.all.sel2) 
 * author:wanghr100(灰豆宝宝.net) 
 * update:2004-5-27 19:02 
 *--------------- BuildSel(str,sel) ----------------- 
 */ 
    //先清空原来的数据. 
    sel.options.length=0; 
    var arrstr = new Array(); 
    arrstr = str.split(","); 
    //开始构建新的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="">请选择 
<option value="福建省">福建省 
<option value="湖北省">湖北省 
<option value="辽宁省">辽宁省 
<select> 
<select name="sel2"></select>

<% @Language="Javascript" %> 
<% 
function OpenDB(sdbname) 
{ 
/* 
 *--------------- OpenDB(sdbname) ----------------- 
 * OpenDB(sdbname)  
 * 功能:打开数据库sdbname,返回conn对象. 
 * 参数:sdbname,字符串,数据库名称. 
 * 实例: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) 
{ 
    //遍历所有适合的数据放入arrResult数组中. 
    arrResult[arrResult.length] = rs("city").Value; 
    rs.MoveNext(); 
} 
//escape解决了XMLHTTP。中文处理的问题. 
//数组组合成字符串.由","字符串连接. 
Response.Write(escape(arrResult.join(","))); 
%>