如何使下拉列表可以写进去新值？

Question

替换
selName[selName.selectedIndex].text="sth"增加
selName[selName.length++].text="sth"
or
selName.add(new Option("sth","sth"))
etc.

Answer 1

<select id=demo></select>
<input type=button value=ok onclick=cc()>
<script language=javascript>
function cc()
{
  var option_node = document.createElement("OPTION")
  option_node.innerText="hehe";
  option_node.value="bb";
  demo.appendChild(option_node);
}
</script>

Answer 2

<script language=vbscript>
dim i
i=0
Dim a
Sub cc()
Set a=document.createElement("option")
a.innerText="a" & i
a.value="a" & i
document.f.demo.appendChild a
i=i+1
End Sub
</script>
<form name=f>
<select name=demo></select>
<input type=button value=ok onclick="vbscript:cc">
</form>