<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      對于怎么動態地在同一頁面完成2個<select>互傳 
                
                  發表時間：2023-07-31             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]關于如何動態地在同一頁面實現兩個<select>互傳  (s1 <==> s2)                          （jaklin )        hell...
      關于如何動態地在同一頁面實現兩個<select>互傳  (s1 <==> s2)
           
                           （jaklin )
          

          hello! 先祝大家中秋節快樂！

          我們常常會碰到這樣一個問題： 如何將在同一頁面上的一個<select>或<listbox>的值傳到另一個<select>或<listbox>中 ？這是一個很煩人的問題�？墒怯袝r候你偏偏會遇到。 那什么辦呢？

           下面是我“煙酒”了一個上午， 現貼上來讓大家共享。 用的方法是很笨也挺麻煩。不過總是有點成就感的。呵呵！大家看看， 指點指點..... 

      <%@ 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





              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清