如何选中列表菜单？

来源：百度知道 编辑：UC知道 时间：2024/07/07 03:57:39
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<script language=vbScript>
<!--
public x(33)
x( 0 )="请选择..."
x( 1 )="黄浦,卢湾,徐汇,长宁,静安,普陀,闸北,虹口,杨浦,闵行,宝山,嘉定,浦东,金山,松江,青浦,南汇,奉贤,崇明"
x( 2 )="和平,东丽,河东,西青,河西,津南,南开,北辰,河北,武清,红挢,塘沽,汉沽,大港,宁河,静海,宝坻,蓟县"
x( 3 )="万州,涪陵,渝中,大渡口,江北,沙坪坝,九龙坡,南岸,北碚,万盛,双挢,渝北,巴南,黔江,长寿,綦江,潼南,铜梁,大足,荣昌,壁山,梁平,城口,丰都,垫江,武隆,忠县,开县,云阳,奉节,巫山,巫溪,石柱,秀山,酉阳,彭水,江津,合川,永川,南川"

function test(a,b)
dim num,x1,i
num =a.selectedIndex
x1=split(x(num),",")
b.options.length=ubound(x1)+1
For i = 0 to ubound(x1)
b.options(i).text =x1(i)
b.options(i).value = x1(i)
next
end function
-->
</script>
<body>
<select name="a" size=1 onChange="vbscript:test a,b">
<option value= 0 selected >请选择...</option>
<option value= 1 >上海</option>

加上一句代码就OK.如下：

function test(a,b)
dim num,x1,i
num =a.selectedIndex
x1=split(x(num),",")
b.options.length=ubound(x1)+1
For i = 0 to ubound(x1)
b.options(i).text =x1(i)
b.options(i).value = x1(i)
next
b.selectedIndex=1 '－－－加这一句。
end function

把它们的selected 属性设置为true 就可以了，
如果是select 的话
应该是一个数组中每一个的属性都为true;
var sel;
sel=document.getElementsByTagName("select");
for(var i=0;i<sel.length;i++){
sel[i].selected=true;
}