TShopping

 找回密碼
 註冊
搜索
查看: 2103|回復: 2
打印 上一主題 下一主題

[教學] 隨機音樂

[複製鏈接]
跳轉到指定樓層
1#
發表於 2010-1-22 00:42:21 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
 
Push to Facebook

  1. <HEAD><SCRIPT Language="javascript">
  2. function chaBGMAc22(foName,elName) {
  3. if (document.all || document.getElementById || document.layers) {
  4. var p,v,emb;
  5. p=document.forms[foName].elements[elName];
  6. v=p.options[p.selectedIndex].value;
  7. if (v!="default") {
  8. emb='<embed src="'+v+'" width="0" height="13" loop="true" repeat="true" autostart="true">';
  9. writeAc22("BGM",emb);
  10. }
  11. }
  12. }
  13. function writeAc22(name,mes) {
  14. if (document.all) document.all(name).innerHTML=mes;
  15. else if (document.getElementById) document.getElementById(name).innerHTML=mes;
  16. else if (document.layers) {
  17. document.layers[name].document.open();
  18. document.layers[name].document.write(mes);
  19. document.layers[name].document.close();
  20. }
  21. }
  22. </SCRIPT>
  23. <style type="text/css">
  24. <!--
  25. .class1Ac22 {position:absolute;
  26. left:0px; top:0px;
  27. width:0px; height:0px;
  28. clip:rect(0px 0px 0px 0px)}
  29. -->
  30. </style></HEAD>
  31. <BODY><span id="BGM" class="class1Ac22" style="height: 0px; width: 0px; clip: rect(0px 0px 0px 0px); left: 0px; top: 0px">
  32. <script language="javascript">
  33. <!--
  34. var songFile = new Array("midi/amazing_grace.mid");
  35. var num = Math.floor(Math.random() * songFile.length);
  36. document.writeln('<embed src="' + songFile[num] + '" width="0" height="14" loop="true" repeat="true" autostart="true"></embed>');
  37. //-->
  38. </script>
  39. </span>
  40. <form name="bgmFo"><select name="bgmList" style="font:9pt 'MS UI Gothic','Verdana','Arial';color:#000000;background-color:#cccccc" onChange='chaBGMAc22("bgmFo","bgmList")'>
  41. <option value="default" selected>- BGM Jukebox -
  42. <option value="midi/amazing_grace.mid">Amazing Grace
  43. <option value="midi/happysong.mid">Happy Song
  44. <option value="midi/momopi.mid">Momopi
  45. <option value="midi/natu.mid">Natu
  46. <option value="midi/haruka.mid">Haruka
  47. <option value="midi/cosmos.mid">Cosmos
  48. <option value="midi/tiisana.mid">Tiisana
  49. <option value="midi/houyou.mid">Houyou
  50. <option value="midi/fuchan.mid">Fuchan
  51. <option value="midi/kasawo.mid">Kasawo
  52. <option value="midi/syaper.mid">Syaper
  53. <option value="midi/yasou.mid">Yasou
  54. <option value="midi/oneday.mid">Oneday
  55. <option value="midi/nogiku.mid">Nogiku
  56. <option value="" style="color:gray">NO BGM
  57. </select></form></BODY>
複製代碼

 

臉書網友討論
*滑块验证:
您需要登錄後才可以回帖 登錄 | 註冊 |

本版積分規則



Archiver|手機版|小黑屋|免責聲明|TShopping

GMT+8, 2024-5-3 08:05 , Processed in 0.042370 second(s), 18 queries .

本論壇言論純屬發表者個人意見,與 TShopping綜合論壇 立場無關 如有意見侵犯了您的權益 請寫信聯絡我們。

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表