利用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(",")));

　　%>