给你段vbscript的
<script language="vbscript">
sub ListBox1_onclick()
dim ind,val,text,ele
ind=WebForm1.ListBox1.selectedIndex
if ind=-1 then
exit sub
end if
val=WebForm1.ListBox1(ind).value
text=WebForm1.ListBox1(ind).outerText
WebForm1.ListBox1.remove (ind)
set ele=document.createElement("OPTION")
ele.text=text
ele.value=val
WebForm1.ListBox2.add(ele)
end sub
</script>
<script language="vbscript">
sub ListBox1_onclick()
dim ind,val,text,ele
ind=WebForm1.ListBox1.selectedIndex
if ind=-1 then
exit sub
end if
val=WebForm1.ListBox1(ind).value
text=WebForm1.ListBox1(ind).outerText
WebForm1.ListBox1.remove (ind)
set ele=document.createElement("OPTION")
ele.text=text
ele.value=val
WebForm1.ListBox2.add(ele)
end sub
</script>
解决方案 »
- asp.net如何实现视频的分享功能
- sql 如果获取 指定 年份 的 天数 ??谢谢
- net1.1下定时发送邮件问题
- 如何用定时 System.Timers.Timer 触发每个月1号,0点0分0秒 执行操作?
- <INPUT id="Radio1" type="radio" >我想让它响应服务器的onclick事件,怎 样实现呢。
- 关于配合存储过程使用非连接更新数据库
- 自动绑定数据库的数列,能按需替换成其他词吗?
- DataGrid问题
- 关于禁止返回的问题
- 连接数据库的问题!![未定义类型“SQLConnection”]
- 请问.net中可否调用oracle Report开发的报表?
- 思归,和微软专家,请问这是什么问题????
<option value='Mr'>Mr</option>
<option value='Mrs'>Mrs</option>
<option value='Miss'>Miss</option>
<option value='Ms'>Ms</option>
<option value='Other'>Other</option>
</select><SCRIPT LANGUAGE=javascript>
<!--
function hasAdd(){
var strTemp=window.prompt("添加Option");
if(strTemp!=null)
addOption(strTemp);
}
function addOption(str){
var o=document.createElement("option");
o.text=str;
o.value=str;
document.all.TitleMain.add(o);
}
//-->
</SCRIPT>
thanks
<script language="vbscript">
sub add()
dim opt
set opt=document.createElement("option")
opt.text="text"
opt.value="value"
form1.addselect.add opt
end sub
</script>
addselect就是listbox的name
不知为什么,现在成功了?!
thanks