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

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;（jaklin&nbsp;&nbsp;&nbsp;2000.9.12)
&nbsp;&nbsp;&nbsp;&nbsp;

&nbsp;&nbsp;&nbsp;&nbsp;hello! 先祝大家中秋节快乐！

&nbsp;&nbsp;&nbsp;&nbsp;我们常常会碰到这样一个问题： 如何将在同一页面上的一个&lt;select&gt;或&lt;listbox&gt;的值传到另一个&lt;select&gt;或&lt;listbox&gt;中 ？这是一个很烦人的问题。可是有时候你偏偏会遇到。 那什么办呢？

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;下面是我“烟酒”了一个上午， 现贴上来让大家共享。 用的方法是很笨也挺麻烦。不过总是有点成就感的。呵呵！大家看看， 指点指点.....

&lt;%@ Language=VBscript %&gt;
&lt;HTML&gt;
&lt;HEAD&gt;
&lt;META NAME=&quot;GENERATOR&quot; Content=&quot;Microsoft Visual Studio 6.0&quot;&gt;
&lt;/HEAD&gt;
&lt;script language=&quot;vbscript&quot;&gt;

&lt;/script&gt;
&lt;body bgcolor=&quot;#ffffff&quot;&gt;
&lt;form name=&quot;form1&quot;&nbsp;&nbsp;action=&quot;test01.asp&quot; target=&quot;_self&quot;&gt;
&lt;p&gt;&lt;TEXTAREA id=text01 name=text01&gt;&lt;/TEXTAREA&gt;&lt;/p&gt;
&lt;table&gt;
&nbsp;&nbsp;&nbsp;&lt;tr&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;td&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;select name=&quot;select1&quot; language=&quot;javascript&quot; size=5&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&lt;option value=11111&gt;11111&lt;/option&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&lt;option value=22222&gt;22222&lt;/option&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&lt;option value=33333&gt;33333&lt;/option&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;/select&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;/td&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;td&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&lt;label onClick=do_select()&gt;&lt;font color=#ff00dc&gt;&lt;u&gt;-&gt;&gt; &lt;/u&gt;&lt;/font&gt; &lt;/label&gt;&lt;br&gt;&lt;br&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&lt;label onClick=do_select2()&gt;&lt;font color=#ff00dc&gt;&lt;u&gt;&lt;&lt;- &lt;/u&gt;&lt;/font&gt; &lt;/label&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;/td&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&lt;%&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;str=&quot;function do_select() {&quot; &amp; vbCrlf &amp; _
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;if (document.form1.select1.options.length &gt; 0) {&quot;&amp;vbCrlf&amp;_
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;var j=0;&quot;&amp;vbCrlf&amp;_
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;for(var i=0;i&lt;document.form1.select1.options.length;i++) {&quot;&amp;vbCrlf &amp; _
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;if(document.form1.select1.options(i).selected) {&quot;&amp;vbCrlf&amp; _
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;j=j+1; break&quot; &amp; vbCrlf &amp; &quot;}&quot;&amp;vbCrlf &amp; &quot;}&quot;&amp;vbCrlf&amp; _
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;if (j &gt; 0) {&quot;&amp;vbCrlf&amp;_&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;document.form1.sel2.options[document.form1.sel2.options.length] = new Option(&quot; &amp;&nbsp;&nbsp;_
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;document.form1.select1.options[document.form1.select1.selectedIndex].value,&quot;&nbsp;&nbsp;&amp; _
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;document.form1.select1.options[document.form1.select1.selectedIndex].value);&quot;&amp; vbCrlf
&nbsp;&nbsp;&nbsp;&nbsp;Response.Write &quot;&lt;td&gt;&lt;SELECT id=sel2&nbsp;&nbsp;name=sel2 size=5&gt;&quot;
&nbsp;&nbsp;&nbsp;&nbsp;Response.Write &quot;&lt;/select&gt;&lt;/td&gt;&quot;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;str=str&amp;vbCrlf&amp;&quot;document.form1.select1.options[document.form1.select1.selectedIndex]=null;&quot;&amp;vbCrlf &amp; _
&nbsp;&nbsp;&nbsp;&nbsp;&quot;if (document.form1.select1.options.length &gt; 1) {&quot;&amp;vbCrlf&nbsp;&nbsp;&nbsp;'&amp;_
&nbsp;&nbsp;&nbsp;&nbsp;str=str&amp;vbCrlf &amp; &quot;}&quot; &amp; vbCrlf &amp; &quot;}&quot; &amp; vbCrlf&amp; &quot;}&quot; &amp; vbCrlf&amp; &quot;}&quot; &amp; vbCrlf
&nbsp;&nbsp;&nbsp;&nbsp;Response.Write &quot;&lt;SCR&quot;&amp; &quot;IPT LANGUAGE=&quot;&quot;Javascript&quot;&quot;&gt;&quot; &amp; vbCrlf
&nbsp;&nbsp;&nbsp;&nbsp;Response.Write str &amp; vbCrlf &amp; &quot;&lt;/SCR&quot;&amp;&quot;IPT&gt;&quot;&amp; vbCrlf
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;%&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&lt;%
&nbsp;&nbsp;&nbsp;&nbsp;str=&quot;&quot;
&nbsp;&nbsp;&nbsp;&nbsp;str=&quot;function do_select2() {&quot; &amp; vbCrlf &amp; _
&nbsp;&nbsp;&nbsp;&nbsp;&quot;if (document.form1.sel2.options.length &gt; 0) {&quot;&amp;vbCrlf&amp;_
&nbsp;&nbsp;&nbsp;&nbsp;&quot;var j=0;&quot;&amp;vbCrlf&amp;_
&nbsp;&nbsp;&nbsp;&nbsp;&quot;for(var i=0;i&lt;document.form1.sel2.options.length;i++) {&quot;&amp;vbCrlf &amp; _
&nbsp;&nbsp;&nbsp;&nbsp;&quot;if(document.form1.sel2.options(i).selected) {&quot;&amp;vbCrlf&amp; _
&nbsp;&nbsp;&nbsp;&nbsp;&quot;j=j+1; break&quot; &amp; vbCrlf &amp; &quot;}&quot;&amp;vbCrlf &amp; &quot;}&quot;&amp;vbCrlf&amp; _
&nbsp;&nbsp;&nbsp;&nbsp;&quot;if (j &gt; 0) {&quot;&amp;vbCrlf&amp;_
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;document.form1.select1.options[document.form1.select1.options.length] = new Option(&quot; &amp;&nbsp;&nbsp;_
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;document.form1.sel2.options[document.form1.sel2.selectedIndex].value,&quot;&nbsp;&nbsp;&amp; _
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;document.form1.sel2.options[document.form1.sel2.selectedIndex].value);&quot;&amp; vbCrlf
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;str=str&amp;&quot;document.form1.sel2.options[document.form1.sel2.selectedIndex] =null;&quot; &amp; vbCrlf &amp;&quot;}&quot;&amp; vbCrlf &amp;&quot;}&quot;&amp; vbCrlf &amp;&quot;}&quot;
&nbsp;&nbsp;&nbsp;&nbsp;Response.Write &quot;&lt;SCR&quot;&amp; &quot;IPT LANGUAGE=&quot;&quot;Javascript&quot;&quot;&gt;&quot; &amp; vbCrlf
&nbsp;&nbsp;&nbsp;&nbsp;Response.Write str &amp; vbCrlf &amp; &quot;&lt;/SCR&quot;&amp;&quot;IPT&gt;&quot;&amp; vbCrlf
&nbsp;&nbsp;&nbsp;&nbsp;%&gt;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;/tr&gt;
&nbsp;&nbsp;&lt;/table&gt;
&lt;/form&gt;
&lt;/body&gt;
&lt;/HTML&gt;

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