论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > asp教程
Tag:入门,文摘,实例,技巧,iis,表单,对象,上传,数据库,记录集,session,cookies,存储过程,注入,分页,安全,优化,xmlhttp,fso,jmail,application,防盗链,stream,组件,md5,乱码,缓存,加密,验证码,算法,ubb,正则表达式,水印,,日志,压缩,url重写,控件,函数,破解,触发器,socket,ADO,初学,聊天室,留言本,视频教程

关于如何动态地在同一页面实现两个<select>互传 

文章类别:asp | 发表日期:2008-10-5 20:52:42

关于如何动态地在同一页面实现两个<select>互传  (s1 <==> s2)
     
                     (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]=null;"&vbCrlf & _
    "if (document.form1.select1.options.length > 1) {"&vbCrlf   '&_
    str=str&vbCrlf & "}" & vbCrlf & "}" & vbCrlf& "}" & vbCrlf& "}" & vbCrlf
    Response.Write "<SCR"& "IPT LANGUAGE=""JavaScript"">" & vbCrlf
    Response.Write str & vbCrlf & "</SCR"&"IPT>"& vbCrlf
              
        %>
      
    <%
    str=""
    str="function do_select2() {" & vbCrlf & _
    "if (document.form1.sel2.options.length > 0) {"&vbCrlf&_
    "var j=0;"&vbCrlf&_
    "for(var i=0;i<document.form1.sel2.options.length;i++) {"&vbCrlf & _
    "if(document.form1.sel2.options(i).selected) {"&vbCrlf& _
    "j=j+1; break" & vbCrlf & "}"&vbCrlf & "}"&vbCrlf& _
    "if (j > 0) {"&vbCrlf&_
               "document.form1.select1.options[document.form1.select1.options.length] = new Option(" &  _
              "document.form1.sel2.options[document.form1.sel2.selectedIndex].value,"  & _
              "document.form1.sel2.options[document.form1.sel2.selectedIndex].value);"& vbCrlf
           str=str&"document.form1.sel2.options[document.form1.sel2.selectedIndex] =null;" & vbCrlf &"}"& vbCrlf &"}"& vbCrlf &"}"
    Response.Write "<SCR"& "IPT LANGUAGE=""JavaScript"">" & vbCrlf
    Response.Write str & vbCrlf & "</SCR"&"IPT>"& vbCrlf
    %>
       
     </tr>
  </table>
</form>
</body>
</HTML>

      很笨吧, 哈哈!
      若那位大虾有更好的方法, 可别忘了给我寄上一份哦。
      E_Mail: fz_chenjl@163.net


视频教程列表
文章教程搜索
 
Asp推荐教程
Asp热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058