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

weizhihui1213 2004-04-02 02:48:09
如题,下拉列表中的数据动态添加和删除,用VBScript实现,谢谢!
...全文
73 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
自己顶下!

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧