如何实现给下拉菜单赋值，通过VB脚本！
比如说我想实现下拉菜单里面有1到10个数，通过循环输出，使下拉菜单显示10条选项，服务器端脚本我会，但是我不想让代码在服务器端执行，这样会增加服务器端的压力，用客户端脚本如何使现此功能？？想了好久也没弄明白，脚本高手帮忙啊，最好是VB代码！
程序代码：<HTML>
<BODY onload="fun_window()" >
<script language="vbscript">
'下拉菜单增加选项
function fun_window()
'循环添加10个
for i=0 to 10
Set NewOpt = document.CreateElement("option")'创建一个下拉菜单选项
NewOpt.value=i'选项值
NewOpt.Text="数据"&i'选项文本
select1.Add NewOpt'将选择添加到下拉菜单
next
end function
'删除选中的下拉菜单选择
function deloption()
'remove删除选项，参数selectedIndex当前选中的是第几项
select1.remove(select1.selectedIndex)
select1.selectedIndex=0'设置为0就是设置为当前未选中任何选项
end function
</script>
<SELECT NAME="select1">
</SELECT>
<input type=button value="del" onclick=deloption()>
</BODY>
</HTML>