求两个下拉框 二级 联动 的代码 ！！！！？？？？？？？

Question

利用XMLHTTP实现的二级连动Select.这是继 "利用XMLHTTP无刷新获取数据" 的另一篇关于XMLHTTP的应用.
关于XMLHTTP.可以说,是一个很好的接合剂.把客户端和服务端的距离拉近了.
利用XMLHTTP.我们可以实现很多好的想法.这文章.实现了二级连动Select.
传统二级连动是把所有的数据都传到有客户端..
利用XMLHTTP.我们可以实时地返回我们所需要的数据.
select.htm程序代码： 
<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[i],arrstr[i])
    }
}
</script>
<select name="sel" onChange="GetResult(this.value)">
<option value="">请选择
<option value="福建省">福建省
<option value="湖北省">湖北省
<option value="辽宁省">辽宁省
<select>
<select name="sel2"></select>  
 server.asp  服务器端处理.
程序代码： 
<% @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(",")));
%> 
 数据库设计
data.mdb
表china.
字段
id  自动编号
province 文本
city  文本表:china 数据: 
id province city
1 福建省  福州市
2 福建省  厦门市
3 福建省  泉州市
4 湖北省  武汉市
5 湖北省  荆州市
6 湖北省  宜昌市
7 辽宁省  沈阳市
8 辽宁省  大连市
9 辽宁省  盘锦市

Answer 1

http://www.mattkruse.com/javascript/dynamicoptionlist/里面的东西很好用，我有几个项目都用了它

Answer 2

看看我的原创：）//colCls----大类集合
//数据排列方式：大类ID-大类名
var colCls = new Array();
//colSubCls----所有的子类集合
//数据排列方式：大类ID-子类ID-子类名
var colSubCls = new Array();
<%
Set rsClass = SelectQuery(conn,"select * from t_industrycls",True)
nCount = rsClass.RecordCount
For i=0 To nCount
%>
colCls[<%=i%>] = new Array("<%=rsClass("id")%>","<%=trim(rsClass("name"))%>");
<%
rsClass.MoveNext 
If rsClass.Eof Then Exit For
Next
CloseObject rsClass
%>//subclass
<%
Set rsClass = SelectQuery(conn,"t_industrysubcls",True)
nCount = rsClass.RecordCount
For i=0 To nCount
%>
colSubCls[<%=i%>] = new Array("<%=rsClass("clsid")%>","<%=rsClass("id")%>","<%=trim(rsClass("name"))%>");
<%
rsClass.MoveNext 
If rsClass.Eof Then Exit For
Next
CloseObject rsClass
%>
/*
函数名：InitClsCtrl
功能说明：
1、用大类ID填充id为sName的列表框
2、并选中大类列表框中value为nSelId的选项
参数说明：
sName------大类列表框的名字
nSelId-----要选中的大类ID
*/
function InitClsCtrl(sName,nSelId)
{
var oClass;
oClass = document.getElementById(sName);
var nLen = colCls.length;
while (oClass.options.length>0)
{
oClass.options.remove(0);
} for (var i = 0; i<nLen; i++)
{
var oOption = new Option(colCls[i][1],colCls[i][0]);
oClass.add(oOption);
}
if (arguments.length<2)
{
try
{
oClass.options[0].selected = true;
}
catch(e)
{
}
}
else
{
nLen = oClass.length;
for (var i = 0; i<nLen; i++)
{
if (oClass.options[i].value==nSelId)
{
oClass.options[i].selected = true;
break;
}
}
}
}/*
函数名：InitSubClsCtrl
功能说明：
1、用属于大类ID的子类填充id为sName的列表框
2、并选中子类列表框中value为nSelId的选项
参数说明：
sName------子类列表框的名字
nClsId-----大类ID
nSelId-----要选中的子类ID
*/
function InitSubClsCtrl(sName,nClsId,nSelId)
{
var oSub;
oSub = document.getElementById(sName);
//将大类ID为nClsId的子类加入列表框
var nLenCls = colCls.length;
var nLenSub = colSubCls.length;
if (arguments.length<2)
nClsId = colCls[0][0];
while (oSub.options.length>0)
{
oSub.options.remove(0);
} for (var i=0; i<nLenCls; i++)
{
for (var j=0; j<nLenSub; j++)
{
if (nClsId == colCls[i][0]&&colCls[i][0]==colSubCls[j][0])
{
var oOption = new Option(colSubCls[j][2],colSubCls[j][1]);
oSub.add(oOption);
}
}
}
if (arguments.length<3)
{
try
{
oSub.options[0].selected = true;
}
catch(e)
{
}
}
else
{
nLen = oSub.length;
//将ID为nSelId的子类选中
for (var j=0; j<nLen; j++)
{
if (nSelId == oSub.options[j].value)
{
oSub.options[j].selected=true;
return;
}
}
}
}
用法如下：
<select name="clsid" size="10" id="clsid" onChange="InitSubClsCtrl('subclsid',this.value)"></select>
<select name="subclsid" size="10" id="subclsid"></select>
<script>
InitClsCtrl("clsid");
InitClsCtrl("classid");
InitSubClsCtrl("subclsid");
</script>

Answer 3

说明：
t_industrycls----大类表
t_industrysubcls-----子类表
CloseObject----关闭对象函数

Answer 4

简单实用的。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>省市两级连动</title>
<script defer>
var ar =[[["安徽省"],["安庆市","蚌埠市","巢湖市","池州市","滁州市","阜阳市",
"毫州市","合肥市","淮北市","淮南市","黄山市","六安市","马鞍山市","宿州市",
"铜陵市","芜湖市","宣州市"]],[["福建省"],["福州市","龙岩市","南平市","宁德市","莆田市","泉州市",
"三明市","厦门市","漳州市"]]];for (var i=0;i<ar.length;i++)
prov.options.add(new Option(ar[i][0],ar[i][0]))function provChanged(i)
{
city.innerHTML=""
for (var j=0;j<ar[i][1].length;j++)
city.options.add(new Option(ar[i][1][j],ar[i][1][j]))
}provChanged(0);function show()
{
alert(prov.value+city.value)
}
</script>
</head>
<body>
<select id=prov style="width:100" onchange="provChanged(selectedIndex)"></select>
<select id=city style="width:100"></select> 
<button onclick="show()">test</button> 
</body>
</html>

Answer 5

我写的
懒得复制了
http://www.programfan.com/club/showbbs.asp?id=44284