<HTML>
<BODY onload="fun_window()" >
<script language="vbscript">
function fun_window()
for i=0 to 100
Set NewOpt = document.CreateElement("option")
NewOpt.value=i
NewOpt.Text="数据"&i
select1.Add NewOpt
next
'select1.options(0).Text= "2"
end function
function deloption()
select1.remove(select1.selectedIndex)
select1.selectedIndex=0
end function
</script>
<SELECT NAME="select1">
<HTML>
<BODY onload="fun_window()" >
<script language="vbscript">
function fun_window()
for i=0 to 100
Set NewOpt = document.CreateElement("option")
NewOpt.value=i
NewOpt.Text="数据"&i
select1.Add NewOpt
next
'select1.options(0).Text= "2"
end function
</script>
<SELECT NAME="select1">