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

原创 2001年02月20日 19:54:00

 

关于如何动态地在同一页面实现两个<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>

huffman数据结构书上的

#include /* INT_MAX等 */ #include /* EOF(=^Z或F6),NULL */ #include #include #define MAX 100 typ...
  • qq_39162419
  • qq_39162419
  • 2017年11月23日 08:31
  • 57

两个栈S1和S2来模拟一个队列

#include "StructSize.h" //#include /* 请利用两个栈S1和S2来模拟一个队列。 已知栈的四个运算定义如下: Init(ST): 初始化ST栈,初始化完成...
  • fan9511
  • fan9511
  • 2014年07月21日 14:14
  • 2183

编一个程序,将两个字符串s1和s2比较,返回差值,即实现strcmp函数功能

编一个程序,将两个字符串s1和s2比较,返回差值;即编一个程序,即实现strcmp函数功能...
  • wtdm_160604
  • wtdm_160604
  • 2017年04月23日 22:06
  • 1487

浙江大学PAT上机题解析之2-11. 两个有序链表序列的合并

浙江大学 PAT 有序链表合并效率问题
  • chenglechao
  • chenglechao
  • 2013年08月31日 18:02
  • 3346

浙江大学PAT上机题解析之2-13. 两个有序序列的中位数

已知有两个等长的非降序序列S1, S2, 设计函数求S1与S2并集的中位数。有序序列A0, A1…AN-1的中位数指A(N-1)/2的值,即第[(N+1)/2]个数(A0为第1个数)。 输入格式说明...
  • chenglechao
  • chenglechao
  • 2013年09月01日 01:59
  • 3035

2-13. 两个有序序列的中位数(25)

2-13. 两个有序序列的中位数(25) 时间限制 120 ms 内存限制 32000 kB 代码长度限制 8000 B ...
  • u011415955
  • u011415955
  • 2014年07月19日 22:58
  • 639

将字符串S1中任何与字符串S2中匹配的字符都删除,实现函数squeeze(s1,s2).

/* test driver */#include #include #include void squeeze2(char s1[], char s2[]); //定义buffer的原因是想输出...
  • lizhidefengzi
  • lizhidefengzi
  • 2016年11月23日 21:41
  • 647

《编程之美》- 3.1 - 字符串移位包含的问题

题目 3.1 字符串移位包含的问题 给定两个字符串s1和s2,要求判定s2是否能够被s1做循环移位(rotate)得到的字符串包含。 例如: 给定s1=AABCD和s2=CDAA,返回true 给定s...
  • fly_yr
  • fly_yr
  • 2016年05月21日 14:18
  • 447

浙江大学PAT上机题解析之2-12. 两个有序链表序列的交集

链表并集
  • chenglechao
  • chenglechao
  • 2013年08月31日 23:31
  • 2416

5-52 两个有序链表序列的交集 (20分)

5-52 两个有序链表序列的交集 (20分)已知两个非降序链表序列S1与S2,设计函数构造出S1与S2的交集新链表S3。 输入格式:输入分两行,分别在每行给出由若干个正整数构成的非降序序列,用−...
  • Changxing898
  • Changxing898
  • 2016年08月31日 11:51
  • 1222
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:关于如何动态地在同一页面实现两个 < select > 互传 (s1 <==> s2)
举报原因:
原因补充:

(最多只允许输入30个字)