一个很酷的程序javascript做的MID歌曲搜索播放器[IE](JS)_(转)
发表于:2007-06-30来源:作者:点击数:
标签:
一个很酷的程序 Java Script做的 MI D歌曲搜索播放器[IE](JS) http://aspage.yeah.net/------------------------ --------------------from 《彩虹细雨》----------------------- html head meta http-equiv=Content-Type content=text/html; charset=gb2312
一个很酷的程序
JavaScript做的
MID歌曲搜索播放器[IE](JS)
http://aspage.yeah.net/------------------------
--------------------from 《彩虹细雨》-----------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>MID点歌器</title>
<style>.f{font-size:9pt;width:190pt}</style>
<script>
//程序设计虹雨
path="http://card4.yinsha.com/midi/"
var stext=new Array()
stext[0]=@#angels we have heard on high@#
stext[1]=@#away in a manger@#
stext[2]=@#beginning to look a lot like christmas@#
stext[3]=@#carol bells@#
stext[4]=@#chestnuts roasting on an open fire@#
stext[5]=@#deck the halls@#
stext[6]=@#do you hear what i hear@#
stext[7]=@#frosty@#
stext[8]=@#god rest ye merry gentlemen@#
stext[9]=@#grandma got run over@#
stext[10]=@#happy christmas@#
stext[11]=@#hark the herald angels sing@#
stext[12]=@#have a holly jolly christmas@#
stext[13]=@#holy night@#
stext[14]=@#i saw mommy kissing s
anta claus@#
stext[15]=@#jingle bells@#
stext[16]=@#the first noel@#
stext[17]=@#the holly and thi iny@#
stext[18]=@#101次求婚@#
stext[19]=@#阿lam日记@#
stext[20]=@#阿尔汉布拉宫的回忆@#
stext[21]=@#阿根廷不要为我哭泣@#
stext[22]=@#阿拉伯跳舞女郎@#
stext[23]=@#阿拉伯绮想曲@#
stext[24]=@#阿拉丁@#
stext[25]=@#阿斯图利亚斯的传奇@#
stext[26]=@#爱出个未来@#
stext[27]=@#爱的很小心@#
stext[28]=@#爱的呼唤@#
stext[29]=@#爱火烧不尽@#
stext[30]=@#爱那么重@#
stext[31]=@#爱那麽重@#
stext[32]=@#爱你到永远@#
stext[33]=@#爱你一定快乐@#
stext[34]=@#爱你一万年@#
stext[35]=@#爱你这样傻@#
stext[36]=@#爱念@#
stext[37]=@#爱拼才会赢@#
stext[38]=@#爱情白皮书@#
stext[39]=@#爱情故事@#
stext[40]=@#爱情傀儡@#
stext[41]=@#爱情影画戏@#
stext[42]=@#爱人@#
stext[43]=@#爱如潮水@#
stext[44]=@#爱上一个不回家的人@#
stext[45]=@#爱是永恒@#
stext[46]=@#爱我到今生@#
stext[47]=@#爱我的人和我爱的人@#
stext[48]=@#爱我好吗@#
stext[49]=@#爱无止境@#
stext[50]=@#爱相随@#
stext[51]=@#爱相随2@#
stext[52]=@#爱与愁@#
stext[53]=@#安妮@#
stext[54]=@#八月桂花遍地开@#
stext[55]=@#八月桂花香@#
stext[56]=@#巴西华尔兹@#
stext[57]=@#拜年@#
stext[58]=@#半点心@#
stext[59]=@#半梦半醒之间@#
stext[60]=@#包青天@#
stext[61]=@#悲伤朱丽叶@#
stext[62]=@#悲伤茱丽叶@#
stext[63]=@#北方的狼@#
stext[64]=@#北国之春@#
stext[65]=@#北京@#
stext[66]=@#被动@#
stext[67]=@#彼特和狼@#
stext[68]=@#变心的翅膀@#
stext[69]=@#别爱我@#
stext[70]=@#别怕我伤心@#
stext[71]=@#别让情两难@#
stext[72]=@#别让我恨你@#
stext[73]=@#别让我最后知道@#
stext[74]=@#别问我是谁@#
stext[75]=@#别以为我懂@#
stext[76]=@#冰雨@#
stext[77]=@#勃兰登堡协奏曲@#
stext[78]=@#不会哭于你面前@#
stext[79]=@#不可能的任务@#
stext[80]=@#不老的传说@#
stext[81]=@#不了情@#
stext[82]=@#不留余情@#
stext[83]=@#不拖不@#
stext[84]=@#不要对他说@#
stext[85]=@#不要在乎我是谁@#
stext[86]=@#不知不觉想起你@#
stext[87]=@#布雷舞曲@#
stext[88]=@#步步高@#
stext[89]=@#财神到@#
stext[90]=@#采茶扑蝶@#
stext[91]=@#缠绵@#
stext[92]=@#长城@#
stext[93]=@#长流不息@#
stext[94]=@#长夜多浪漫@#
stext[95]=@#超人@#
stext[96]=@#城里的月光@#
stext[97]=@#橙路@#
stext[98]=@#赤裸裸@#
stext[99]=@#冲开一切@#
stext[100]=@#初恋@#
stext[101]=@#初恋情人@#
stext[102]=@#出场@#
stext[103]=@#出水莲@#
stext[104]=@#楚留香@#
stext[105]=@#处处留情@#
stext[106]=@#传奇@#
stext[107]=@#船歌@#
stext[108]=@#吹散为你留下的梦@#
stt=0
k=0
var otxt=new Array()
otxt[0]=@#[> ]@#
otxt[1]=@#[>> ]@#
otxt[2]=@#[ >> ]@#
otxt[3]=@#[ >> ]@#
otxt[4]=@#[ >> ]@#
otxt[5]=@#[ >> ]@#
otxt[6]=@#[ >> ]@#
otxt[7]=@#[ >>]@#
otxt[8]=@#[ >]@#
function findc(obj){
j=1
for(i=0;i<stext.length;i++){
temp=""+stext[i]
if(temp.indexOf(obj.find.value)!=-1)
{
var no = new Option()
no.value = stext[i]
no.text = stext[i]
obj.music.options[j++]=no
}
}
obj.music.options.length =j
obj.midopen.value=" "
obj.txt.value="找到歌共"+obj.music.options.length+"首"
}
function auto(obj){
if(obj.midopen.value=="停止播放"){
clearInterval(stt)
obj.midopen.value="播放歌曲"
midon=document.mid.dynsrc
document.mid.dynsrc="about:blank"
}else{
clearInterval(stt)
obj.midopen.value="停止播放"
document.mid.dynsrc=midon
obj.txt.value="第"+obj.music.selectedIndex+"首、曲名是:"+mid
stt=setInterval("atxt()",200)
}
}
function x(obj){
mid=obj.music.options[obj.music.selectedIndex].value;
if (mid!=""){
clearInterval(stt)
document.mid.dynsrc="about:blank"
obj.midopen.value="停止播放"
document.mid.dynsrc=path+mid+".mid";
obj.txt.value="第"+obj.music.selectedIndex+"首、曲名是:"+mid
stt=setInterval("atxt()",200)
}
}
function atxt(){
k++
if(k==otxt.length)k=0
document.forms[0].otx.value=otxt[k]
}
</script>
<link rel="stylesheet" href="../hy.css">
</head>
<body background="../gif/mbg.gif" bgcolor="#FFFFFF">
<form>
<div align="center">
<center>
<table border="0" bgcolor="#FCE01B" cellspacing="5">
<tr>
<
td><table border="1" bordercolorlight="#000000" cellspacing="0" bordercolordark="#FFFFFF"
background="../gif/tb.gif">
<tr>
<td><font color="#FF0000">彩虹细雨MID播放机</font></td>
</tr>
<tr>
<td>
<input type="button" value="快速搜索" onclick="findc(this.form)" style="background-image: url
(@#../gif/tb.gif@#)">
歌曲名称:<input type="text" name="find" size="20">[虹雨设计]
</td>
</tr>
<tr>
<td>
<p> <input type="button" value=" " onclick="auto(this.form)" name="midopen"
style="background-image: url(@#../gif/tb.gif@#)"><img name="mid" dynsrc="about:blank" width="1"
height="1">
<script>
document.write("<select size=1 name=music onChange=x(this.form) class=f>")
document.write("<option value=\"\">选择音乐")
for(i=0;i<stext.length;i++)document.write("<OPTION value=\""+stext[i]+"\">"+stext[i])
document.write("</select>")
</script></p>
</td>
</tr>
<tr>
<td><input type="text" name="otx" size="10" onFocus="blur()"> <input type="text" name="txt" size="40"
onFocus="blur()"></td>
</tr>
</table> </td>
</tr>
</table>
</center>
</div>
</form
</body>
</html>
原文转自:http://www.ltesting.net