如何用jscript给页面上的listbox中增加条目？

Question

给你段vbscript的
<script language="vbscript">
sub ListBox1_onclick() 
dim ind,val,text,ele 
ind=WebForm1.ListBox1.selectedIndex 
if ind=-1 then 
exit sub
end if
val=WebForm1.ListBox1(ind).value 
text=WebForm1.ListBox1(ind).outerText 
WebForm1.ListBox1.remove (ind) 
set ele=document.createElement("OPTION") 
ele.text=text 
ele.value=val 
WebForm1.ListBox2.add(ele)
end sub 
</script>

Answer 1

<select name='TitleMain' onchange="if(this.value=='Other') hasAdd()">
    <option value='Mr'>Mr</option>
    <option value='Mrs'>Mrs</option>
    <option value='Miss'>Miss</option>
    <option value='Ms'>Ms</option>
    <option value='Other'>Other</option>
</select><SCRIPT LANGUAGE=javascript>
<!--
function hasAdd(){
var strTemp=window.prompt("添加Option");
if(strTemp!=null)
addOption(strTemp);
}
function addOption(str){
var o=document.createElement("option");
o.text=str;
o.value=str;
document.all.TitleMain.add(o);
}
//-->
</SCRIPT>

Answer 2

http://expert.csdn.net/Expert/topic/803/803360.xml?temp=.5663568

Answer 3

to hgknight(江雨.net):   代码无法通过，第二句ind=WebForm1.ListBox1.selectedIndex就显示网页有错误，是否需要其他设置？请回答thanks! to letian(你快乐，所以我快乐) :   你给出的贴子我已看过，当初你调试通过了吗，我这里不行，请指教。
thanks

Answer 4

VBscript可以吗？
<script language="vbscript">
             sub add()
             dim opt
             
set opt=document.createElement("option")
opt.text="text"
opt.value="value"
form1.addselect.add opt 
end sub
</script>

Answer 5

sorry，补充：
addselect就是listbox的name

Answer 6

to letian(你快乐，所以我快乐) :
不知为什么，现在成功了？！
thanks