如不能顯示語法效果可貼去本站語法測試板試看
<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>
