请问:如何用VBScript向下拉列表中添加数据

weizhihui1213 2004-04-02 02:48:09
如题,下拉列表中的数据动态添加和删除,用VBScript实现,谢谢!
...全文
16 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
weizhihui1213 2004-04-02
谢谢!结帖了!
回复
jh329 2004-04-02

<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">

</SELECT>
<input type=button value="del" onclick=deloption()>
</BODY>
</HTML>
回复
ken1 2004-04-02
这样数据就存在保存问题
长期的就用文本或者数据库
短期的可以保存在ssion中,
定义 一个2维数组,1,为value, 2为 显示信息

在select中循环显示数组的值

因为值的改变,所以页面要刷新,可以采用刷新或重新跳转到当前页的方法

回复
jh329 2004-04-02
<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">

</SELECT>
</BODY>
</HTML>
回复
weizhihui1213 2004-04-02
我要用VBScript实现这个功能,只能用VBSctipt
回复
若白师妹 2004-04-02
<script language="javascript">
function removeOption(obj){
obj.options.remove(obj.selectedIndex);
}
</script>
<select name="Province" size="1" onChange="removeOption(this)">
<option value="1" selected>1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
</select>
回复
weizhihui1213 2004-04-02
自己顶下!
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告