下拉框增加项目所引发的问题?

Question

用一个按钮来代替onchange，增加列表项
<Script Language=VbScript>
Sub ChangeEditText(TextBox,ListBox)
Dim NewOption
Set NewOption= Document.CreateElement("option")
NewOption.Value=TextBox.Value
NewOption.Text=TextBox.Value
ListBox.Options.Add NewOption
ListBox.selectedIndex =ListBox.length -1
End Sub
</Script>
<form Id=Form method="POST" action="">
<input type="text" name="T1" size="20">
<input type="button" name="ice" value="增加" onclick="VbScript:ChangeEditText Form.All.T1,Form.All.MyList"/>
<select Id=MyList size="1" name="D1"> 
</select>
</form>

Answer 1

关键就是要的这个效果阿，不能增加其他按钮