随机midi播放器(auto)2

作者：佚名来源：不详发布时间：2006-10-28 23:57:04 发布人：admin

// Jason Aunkst;   jra@dtx.net   
// URL:  <a target="_blank" href=http://www.angelfire.com/biz/11eleven11/>http://www.angelfire.com/biz/11eleven11/</a>
// this is my random midi picker (v1.0).

var nummidi = 2
day = new Date()
seed = day.getTime()
ran = parseInt(((seed - (parseInt(seed/1000,10) * 1000))/10)/100*nummidi + 1,10)

if (ran == (1)){
midi=("anarchy.mid") 
title=("Anarchy in the UK")
leng=162
}

if (ran == (2)){
midi=("everlong.mid") 
title=("Everlong")
leng=308
}

// -->
</Script></P>

if (ran == (18)){
midi=("http://www.cris.com/~temc/lump.mid") 
title=("LUMP")
leng=197
}

</Script></P>

if (ran == (19)){
midi=("http://users.loa.com/~tracyk/wannabe.mid") 
title=("WANNABE")
leng=191
}

</Script></P>

if (ran == (20)){
midi=("http://users.loa.com/~tracyk/whatislove.mid") 
title=("WHAT IS LOVE")
leng=243
}

</Script></P>

if (ran == (21)){
midi=("http://www.cris.com/~temc/dazed.mid") 
title=("DAZED")
leng=279
}

</Script></P>

if (ran == (22)){
midi=("http://www.dcom-lao.com/speak.mid") 
title=("DONT SPEAK")
leng=162
}

</Script></P>

document.write('<FONT SIZE=2>' + title + '</Font><BR>')

</Script></A></TD></TR></TABLE></CENTER>
<CENTER><TABLE BORDER=4 CELLSPACING=4 CELLPADDING=4 WIDTH="100" HEIGHT="80" >
<TR ALIGN=CENTER VALIGN=CENTER><TD ALIGN=CENTER VALIGN=CENTER NOWRAP><p align="center">
<Script LANGUAGE="JavaScript">

document.write('<EMBED SRC="'+ midi +'" WIDTH=140 HEIGHT=60 AUTOSTART="true" LOOP="false">')

</Script>

特别说明：如网页特效代码中有引用图片文件等，请自己下载到本地调试！

[] [返回] [打印] [收藏] [评论]

上一篇代码：midi选择器

下一篇代码：背景音乐随机播放，并带控制界面。

随机midi播放器(auto)2

精品推荐

代码分类

阅读排行

相关代码