如何动态向DropDown控件加入选项?

[HeavenBen]

谢谢。Email:[e-mail]
QQ:331987472
MSN:[e-mail]

[meizz]

<form name=f>
<select name=s onchange="alert(this.value)">
<option value="aa">aa</option>
</selct>
<input type=button onclick="a()" value=add>
</form>
<script language=javascript>
var i=0
function a()
{
b=document.f.s
var opt=new Option("text"+ i,"value"+i,true,true)
b.options[b.options.length] = opt
i++
}
</script>

[HeavenBen]

有没有VB脚本的动态增加方法？谢谢了。

[HeavenBen]

怎么没人帮我啊~5555。继续顶。全天24小时在线狂等。

[HeavenBen]

谁有VBScript 增加Option 项的啊~ 多谢了~

[wanghr100]

<form name=f>
<select name=s onchange="alert(this.value)">
<option value="aa">aa</option>
</selct>
<input type=button onclick="a()" value=add>
</form>
<script language=VBScript>
Dim b
Dim i
i=0
function a()
set b=document.f.s
b.options.length = b.options.length + 1
b.options(b.options.length-1).text = "item"+Cstr(i)
b.options(b.options.length-1).value = "value"+Cstr(i)
i = i + 1
end function
</script>