- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 3Adobe Illustrator CS5 序列號大全
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 7Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 8最新的Adobe Illustrator CS4序列號大全
- 9Intel i7-9700K性能跑分曝光：同代提升約12%
- 10XP系統怎么清除緩存？
- 11Intel Z390主板有望10月8日公布：8核9代酷睿隨后登場
- 12XP系統安裝chrome無法找到入口怎么處理？
[摘要]關于如何動態地在同一頁面實現兩個<select>互傳 (s1 <==> s2) （jaklin ) hell...
關于如何動態地在同一頁面實現兩個<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: [email protected]
推薦資訊 總人氣榜
最新教程 本月人氣
- 1oppo r7怎么 oppo r7上手體驗評測視頻
- 2oppo r7plus正式公布:價格、設置參數
- 3oppo r7怎么 oppo r7設置參數
- 4lg escape2多少錢 lg escape2價格
- 53星note5 edge概念機圖片 3星note5 edge概念機視頻
- 6紅米2a多少錢 紅米2a最新報價
- 7oppo r7公布會視頻直播地址 oppo r7新品公布會直播網址
- 8錘子手機smartisan t1一周年紀念版公布:價格、購買地址
- 9魅族mx4、mx4pro多少錢 魅族mx4、mx4pro最新報價
- 10lg g4國行版怎么 lg g4國行版上手體驗視頻
- 11華為p8怎么 華為p8上手體驗評測視頻
- 12云狐a7多少錢 戶外手機云狐a7價格
