倒闭，没分了，等明天。

Question

<script language="VBScript">
Function doChange(objText,objDrop)
Dim str, arr, i, tmpOpt
If Not IsObject(objDrop) Then Exit Function
str = objText.value
arr = Split(str, "|")
For i = 1 To Len(str)
Set tmpOpt = document.createElement("OPTION")
tmpOpt.value = arr(i-1)
tmpOpt.text = arr(i-1)
objDrop.options.add tmpOpt
NextEnd Function
</script>

Answer 1

上面那个有点问题,这个是好的:
<script language="VBScript">
Function doChange(objText,objDrop)
Dim str, arr, i, tmpOpt
If Not IsObject(objDrop) Then Exit Function
str = objText.value
arr = Split(str, "|")
while objDrop.options.length
objDrop.options.remove 0
wend
Set tmpOpt = document.createElement("OPTION")
tmpOpt.value = ""
tmpOpt.text = ""
objDrop.options.add tmpOpt
For i = 0 To UBound(arr)
Set tmpOpt = document.createElement("OPTION")
tmpOpt.value = arr(i)
tmpOpt.text = arr(i)
objDrop.options.add tmpOpt
NextEnd Function
</script>

Answer 2

hbzyduwu(鞋带又松了~)  你个鸟人~~ :->