Lc_KiT : 個人主頁 - 相簿 - 訂閱  [ QOOZA - 論壇 - 登入 ]
406 - Not Acceptable
 
2010 年 7 月 11 日  星期日 2010-07-11 04:45 AM


自製音樂盒{-_-}

CSS :

table.accompaniment{
 width: 100%;
 border: 2px dashed #505050;
 }
 

HTML :

<!--Music Box-->
<table class="accompaniment">
<tr><td style="padding: 5px;text-align: center;"><b>☆水晶音樂盒☆</b></td></tr>
<tr><div class="BGSa">
<td style="padding: 5px;">
<div style="border: 1px solid #909090; height: 20px; overflow: hidden; position: relative;" onmouseover="BGSIn()">
<marquee id="mq1" direction="left" behavior="scroll" scrollAmount=1 height=25px>
<span id="sp1" style="display: block ; padding: 5px;">現正播放</span>
</marquee>
<select id="SelectBGS" onchange="chSong(this)" style="display: none;width=100%">
<option value="0">停止音樂</option>
<option value="Link">歌名</option>
</select>
</div>
<script language="javascript"><!--
function mrnd(mlimit){
var RndNum=Math.floor(Math.random()*mlimit+1);
return RndNum;
}
function BGSIn(){
document.getElementById('mq1').style.display = "none";
document.getElementById('sp1').style.display = "none";
document.getElementById('SelectBGS').style.display = "";
}
function chSong(v){
if(v == -1){
var rOLng = mrnd(document.getElementById('SelectBGS').options.length);
document.all.bgs.src=document.getElementById('SelectBGS').options[rOLng].value;
document.getElementById('sp1').innerHTML=document.getElementById('SelectBGS').options[rOLng].innerHTML;
}else if(document.all) {
if(v.options[v.selectedIndex].value == 0){
document.all.bgs.src="";
document.getElementById('mq1').scrollAmount=0
}else{
document.all.bgs.src=v.options[v.selectedIndex].value;
document.getElementById('mq1').scrollAmount=1
}
}
if(v != -1){
document.getElementById('sp1').innerHTML=v.options[v.selectedIndex].innerHTML;
}
document.getElementById('mq1').style.display = "";
document.getElementById('sp1').style.display = "";
document.getElementById('SelectBGS').style.display= "none";
}
chSong('-1')
//--></script>
</td></div></tr>
</table>
<!--Music Box End-->


★Kit↘..

 [ 訪客留言(6) ] [ 編輯日誌 ] [ 分享至FACEBOOK ]
MySelf
暱稱: Tikwal
性別: 男
國家: 香港
地區: 元朗區
++水晶音樂盒++
Mariage D'Amour
最近訪客
最近沒有訪客
訪客留言
最近三個月尚無任何留言
最新文章
贏到請飲野 lol
[VB.Net] 中國象棋
[.Net] Classes / Imp...
[轉][API]4個keybd 模...
[VB2010]常玩的, 接水...
文章分類
全部 (32)
API (5)
雜談 (2)
DataBase (2)
M$ (9)
php (1)
VB.Net (5)
純粹搞笑 (4)
網頁 (5)
未分類 (1)
日誌統計
文章總數: 32
留言總數: 28
今日人氣: 15
累積人氣: 1855