请问各位关于一个添加SELECT中的OPTION里的问题！急···！

[suhuoqiang]

请问如何在一个FORM1里的SELECT中添加多个OPTION里呀，是用VBS添加的！用哪个属性呀，比如
我按下〈A ONCLICK=“KK（）”〉ADD〈/A〉
则会在〈SELECT ID=SELECT1〉中添加一个〈OPTION VALUE=“ADD”〉ADD〈/OPTION〉之类的例子呀？
多谢！！！！

[evonne_feng]

<script language="vbscript">


Function AddItemToSelect(oSelAdd,sValue,sInnerText,isChecked)

Dim isExistItem
isExistItem = False
Dim i

For i = 0 To oSelAdd.options.length - 1

If oSelAdd.options(i).value = sValue Then
isExistItem = true
End If

Next

if Not isExistItem Then
Set oOption = document.createElement("OPTION")
oSelAdd.options.add(oOption)
oOption.innerText = sInnerText
oOption.value = sValue

If isChecked Then
oOption.selected = true
End If

Set oOption = Nothing
End If

End Function
</script>


<select id="aa"></select>

<script language="vbscript">

set oo = document.all("aa")
AddItemToSelect oo,"ff","fffff",false


</script>

[suhuoqiang]

thank you !

[suhuoqiang]

但是如果要把SELECT 里的OPTION全部删除呢？？多谢！！！！

[qiushuiwuhen]

sel1.length=0;

[suhuoqiang]

举个例子行吗？

[suhuoqiang]

得了我知道了，多谢

[richardluopeng]

var option1=new Option();
option1.value="...";
option1.text="...";

options.add(options1)