繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 关于如何动态地在同一页面实现两个互传
- ASP
- javascript css 三级目录(简单的)
- asp下sql和access数据库随机取10条记录的代码newid()
- 新增加一个防垃圾评论的asp代码，鄙视垃圾
- asp ADO GetString函数与用GetString来提高ASP的速度
- windows2003下使用asp WScript.Shell的设置方法
- asp UTF-8 乱码问题的解决方法小结
- JavaScript面向对象的两种书写方法以及差别
- 响应对象 错误 ''ASP 0185 : 80020003'' 缺少默认属性
- ASP生成伪参数程序设计技巧
- asp中使用mysql数据库的注意实现
- 使用FSO修改文件夹的名称实现文件转移防盗链
- asp下request.querystring("id")与request("id")区别
- asp将全角的字符转变成半角字符，将半角转变成全角d的代码
- asp创建表，复制表 字段类型附录
- asp加密解密函数decrypt
- asp获取当前网页地址的代码
- asp下经常用到的代码
- asp 的中文分词
- 修改正确的asp冒泡排序
- rustysun同学ASP代码书写规范
ASP 中的 关于如何动态地在同一页面实现两个互传
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 175 ::
收藏到网摘: n/a
（jaklin )
hello! 先祝大家中秋节快乐！
我们常常会碰到这样一个问题： 如何将在同一页面上的一个<select>或<listbox>的值传到另一个<select>或<listbox>中 ？这是一个很烦人的问题。可是有时候你偏偏会遇到。 那什么办呢？
下面是我“烟酒”了一个上午， 现贴上来让大家共享。 用的方法是很笨也挺麻烦。不过总是有点成就感的。呵呵！大家看看， 指点指点.....
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<script language="vbscript">
</script>
<body bgcolor="#ffffff">
<form name="form1" action="test01.asp" target="_self">
<p><TEXTAREA id=text01 name=text01></TEXTAREA></p>
<table>
<tr>
<td>
<select name="select1" language="javascript" size=5>
<option value=11111>11111</option>
<option value=22222>22222</option>
<option value=33333>33333</option>
</select>
</td>
<td>
<label onClick=do_select()><font color=#ff00dc><u>->> </u></font> </label><br><br>
<label onClick=do_select2()><font color=#ff00dc><u><<- </u></font> </label>
</td>
<%
str="function do_select() {" & vbCrlf & _
"if (document.form1.select1.options.length > 0) {"&vbCrlf&_
"var j=0;"&vbCrlf&_
"for(var i=0;i<document.form1.select1.options.length;i++) {"&vbCrlf & _
"if(document.form1.select1.options(i).selected) {"&vbCrlf& _
"j=j+1; break" & vbCrlf & "}"&vbCrlf & "}"&vbCrlf& _
"if (j > 0) {"&vbCrlf&_ "document.form1.sel2.options[document.form1.sel2.options.length] = new Option(" & _
"document.form1.select1.options[document.form1.select1.selectedIndex].value," & _
"document.form1.select1.options[document.form1.select1.selectedIndex].value);"& vbCrlf
Response.Write "<td><SELECT id=sel2 name=sel2 size=5>"
Response.Write "</select></td>"
str=str&vbCrlf&"document.form1.select1.options[document.form1.select1.selectedIndex]
评论 (0) All
