複製上列語法
<form name="copy">
<textarea cols="40" name="txt" rows="4" style="BACKGROUND-COLOR:#ffffff; COLOR:#000000; FONT-SIZE:9pt">
<script>
var count=0
function dothis(){
setTimeout("document.wheel.wheel2.selectedIndex =1000",100)
setTimeout("document.wheel.wheel2.selectedIndex =count",200)
setTimeout("document.wheel.wheel2.selectedIndex =1000",300)
setTimeout("document.wheel.wheel2.selectedIndex =count",400)
setTimeout("document.wheel.wheel2.selectedIndex =1000",500)
setTimeout("document.wheel.wheel2.selectedIndex =count",600)
setTimeout("window.location=document.wheel.wheel2.options[document.wheel.wheel2.selectedIndex].value",800)
}
function animate(){
var countfinal=Math.round(Math.random()*(document.wheel.wheel2.length-1))
document.wheel.wheel2.selectedIndex =count
if (count==countfinal){
dothis()
return
}
if (count<document.wheel.wheel2.length)
count++
else
count=0
setTimeout("animate()",50)
}
</script>
<form method="POST" name="wheel">
<div align="center"><center><p><select name="wheel2" size="6">
<option value="http://bunbun000.com/">笨笨網站</option>
<option value="http://www.bunbunhk.com/BBS/Discuz/index.php">笨網論壇</option>
<option value="http://bunbun000.com/home/word/index.htm">繁簡轉換</option>
<option value="http://bunbun000.com/home/js.htm">翻譯系統</option>
<option value="http://bunbun000.com/home/travel/index.htm">笨笨遊蹤</option>
<option value="http://www.bunbunhk.com/bg.htm">免費資源</option>
</select></p>
</center></div><div align="center"><center><p><input type="button" value="按掣隨選"
name="B1" onClick="animate()"></p>
</center></div>
</form>
</textarea><br>
<input onclick="javascript:this.form.txt.focus();this.form.txt.select();" type="button" value="全選">
</form>
<BR>
<script type="text/javascript"><!--
google_ad_client = "ca-pub-4078143172638881";
/* 336X280 */
google_ad_slot = "3268225205";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>