woff 發表於 2010-1-22 00:42:21

隨機音樂


<HEAD><SCRIPT Language="javascript">
function chaBGMAc22(foName,elName) {
if (document.all || document.getElementById || document.layers) {
var p,v,emb;
p=document.forms.elements;
v=p.options.value;
if (v!="default") {
emb='<embed src="'+v+'" width="0" height="13" loop="true" repeat="true" autostart="true">';
writeAc22("BGM",emb);
}
}
}
function writeAc22(name,mes) {
if (document.all) document.all(name).innerHTML=mes;
else if (document.getElementById) document.getElementById(name).innerHTML=mes;
else if (document.layers) {
document.layers.document.open();
document.layers.document.write(mes);
document.layers.document.close();
}
}
</SCRIPT>
<style type="text/css">
<!--
.class1Ac22 {position:absolute;
left:0px; top:0px;
width:0px; height:0px;
clip:rect(0px 0px 0px 0px)}
-->
</style></HEAD>
<BODY><span id="BGM" class="class1Ac22" style="height: 0px; width: 0px; clip: rect(0px 0px 0px 0px); left: 0px; top: 0px">
<script language="javascript">
<!--
var songFile = new Array("midi/amazing_grace.mid");
var num = Math.floor(Math.random() * songFile.length);
document.writeln('<embed src="' + songFile + '" width="0" height="14" loop="true" repeat="true" autostart="true"></embed>');
//-->
</script>
</span>
<form name="bgmFo"><select name="bgmList" style="font:9pt 'MS UI Gothic','Verdana','Arial';color:#000000;background-color:#cccccc" onChange='chaBGMAc22("bgmFo","bgmList")'>
<option value="default" selected>- BGM Jukebox -
<option value="midi/amazing_grace.mid">Amazing Grace
<option value="midi/happysong.mid">Happy Song
<option value="midi/momopi.mid">Momopi
<option value="midi/natu.mid">Natu
<option value="midi/haruka.mid">Haruka
<option value="midi/cosmos.mid">Cosmos
<option value="midi/tiisana.mid">Tiisana
<option value="midi/houyou.mid">Houyou
<option value="midi/fuchan.mid">Fuchan
<option value="midi/kasawo.mid">Kasawo
<option value="midi/syaper.mid">Syaper
<option value="midi/yasou.mid">Yasou
<option value="midi/oneday.mid">Oneday
<option value="midi/nogiku.mid">Nogiku
<option value="" style="color:gray">NO BGM
</select></form></BODY>
頁: [1]
查看完整版本: 隨機音樂