//以下是VB脚本
<SCRIPT LANGUAGE="vbScript">
<!--
'以XML求取数据
function XmlPost(obj)
dim svalue
svalue = obj.value
dim webFileUrl
webFileUrl = "?brc_id=" + svalue
dim result
set xmlHttp = CreateObject("Microsoft.XMLHTTP")
call xmlHttp.open("POST", webFileUrl, false)
call xmlHttp.send("")
result = xmlHttp.responseText
set downlist = document.all("DropDownList2")
if result <> "" then
document.all("DropDownList2").length=0
dim piArray ,ary1
piArray = split(result,",")
for i=0 to piArray.length - 1
ary1 = split(piArray(i),"|")
downlist.length = downlist.length + 1
downlist.options(downlist.length-1).text = ary1(1)
downlist.options(downlist.length-1).value = ary1(0)
next
else
alert(result)
end if
end function
//-->
</SCRIPT>
function Do_Link_Change(ChangeObj,n,jsVal,jsShow)
{
if (n<0) return ;
var e = eval("document.all."+ChangeObj);
for (var i=e.options.length; i>-1; i--)
e.remove(i);
var show = eval(jsShow+"["+ n+"]"); //得到数组名
var val=eval(jsVal+"["+ n+"]");
if (val.length<1) return;
for (var i=0; i<val.length; i++)
e.options.add(new Option(show[i], val[i]));
}
然后你必须在客户端写对应的js变量,例如
var area_show = new Array();
var area_value = new Array();
var point_show = new Array();
var point_value = new Array();
area_show[0]='广东';
area_value[0]=510000;
point_show[0]=new Array();
point_value[0]=new Array();
area_show[1]='广州';
area_value[1]=510100;
point_show[1]=new Array();
point_value[1]=new Array();
point_show[1][0]='天河';
point_value[1][0]=1;
point_show[1][1]='河南';
point_value[1][1]=1;
point_show[1][2]='火车站';
point_value[1][2]=3;
area_show[2]='深圳';
area_value[2]=510200;
point_show[2]=new Array();
point_value[2]=new Array();
point_show[2][0]='南山';
point_value[2][0]=1;
point_show[2][1]='龙岗';
point_value[2][1]=1;
point_show[2][2]='盐田';
point_value[2][2]=3;