music.htm

聊天功能的实现

MusicBox.Add("手语","http://www.ichat.net.cn/music/159.mid");
MusicBox.Add("似水流年","http://www.ichat.net.cn/music/158.mid");
MusicBox.Add("淑女","http://www.ichat.net.cn/music/157.mid");
MusicBox.Add("别让我最後知道","http://www.ichat.net.cn/music/153.mid");
MusicBox.Add("留不住","http://www.ichat.net.cn/music/135.mid");
MusicBox.Add("哭砂","http://www.ichat.net.cn/music/129.mid");
MusicBox.Add("吹散为你留下的梦","http://www.ichat.net.cn/music/120.mid");
MusicBox.Add("用心良苦","http://www.ichat.net.cn/music/106.mid");
MusicBox.Add("一路上有你","http://www.ichat.net.cn/music/81.mid");
MusicBox.Add("我心中有你","http://www.ichat.net.cn/music/52.mid");
MusicBox.Add("蓦然回首","http://www.ichat.net.cn/music/40.mid");
MusicBox.Add("千纸鹤","http://www.ichat.net.cn/music/31.mid");
MusicBox.Add("无情的雨无情的你","http://www.ichat.net.cn/music/27.mid");
MusicBox.Add("来生缘","http://www.ichat.net.cn/music/23.mid");
MusicBox.Add("阿拉伯跳舞女郎","http://www.ichat.net.cn/music/4.mid");
MusicBox.Add("一人有一个梦想","http://www.ichat.net.cn/music/140.mid");
MusicBox.Add("雨季不再来","http://www.ichat.net.cn/music/136.mid");
MusicBox.Add("如龙共舞","http://www.ichat.net.cn/music/132.mid");
MusicBox.Add("容易受伤的女人","http://www.ichat.net.cn/music/131.mid");
MusicBox.Add("伤心","http://www.ichat.net.cn/music/116.mid");
MusicBox.Add("可曾记起我","http://www.ichat.net.cn/music/111.mid");
MusicBox.Add("左右为难","http://www.ichat.net.cn/music/78.mid");
MusicBox.Add("失去了你","http://www.ichat.net.cn/music/45.mid");
MusicBox.Add("往事随风","http://www.ichat.net.cn/music/26.mid");
MusicBox.Add("长夜多浪漫","http://www.ichat.net.cn/music/24.mid");
MusicBox.Add("初恋情人","http://www.ichat.net.cn/music/154.mid");
MusicBox.Add("不知不觉想起你","http://www.ichat.net.cn/music/137.mid");
MusicBox.Add("多情","http://www.ichat.net.cn/music/133.mid");
MusicBox.Add("摘下满天星","http://www.ichat.net.cn/music/108.mid");
MusicBox.Add("不要对他说","http://www.ichat.net.cn/music/98.mid");
MusicBox.Add("亲亲我的宝贝","http://www.ichat.net.cn/music/66.mid");
MusicBox.Add("我很丑可是我很温柔","http://www.ichat.net.cn/music/58.mid");
MusicBox.Add("don‘t say goodbye","http://www.ichat.net.cn/music/30.mid");
MusicBox.Add("爱相随","http://www.ichat.net.cn/music/15.mid");
MusicBox.Add("风中有朵雨做的云","http://www.ichat.net.cn/music/160.mid");
MusicBox.Add("爱你这样傻","http://www.ichat.net.cn/music/134.mid");
MusicBox.Add("梦醒时分","http://www.ichat.net.cn/music/113.mid");
MusicBox.Add("忘不了你","http://www.ichat.net.cn/music/95.mid");
MusicBox.Add("情网","http://www.ichat.net.cn/music/74.mid");
MusicBox.Add("梁祝","http://www.ichat.net.cn/music/39.mid");
MusicBox.Add("谢谢你的爱","http://www.ichat.net.cn/music/22.mid");
MusicBox.Add("忘情桑巴舞","http://www.ichat.net.cn/music/7.mid");
MusicBox.Add("唇印","http://www.ichat.net.cn/music/130.mid");
MusicBox.Add("一切也愿意","http://www.ichat.net.cn/music/126.mid");
MusicBox.Add("稍息立正站好","http://www.ichat.net.cn/music/124.mid");
MusicBox.Add("健康歌","http://www.ichat.net.cn/music/121.mid");
MusicBox.Add("浪迹天涯","http://www.ichat.net.cn/music/114.mid");
MusicBox.Add("由零开始","http://www.ichat.net.cn/music/92.mid");
MusicBox.Add("真心英雄","http://www.ichat.net.cn/music/68.mid");
MusicBox.Add("同舟共济","http://www.ichat.net.cn/music/49.mid");
MusicBox.Add("愿你今夜别离去","http://www.ichat.net.cn/music/18.mid");
MusicBox.Add("人在黎明","http://www.ichat.net.cn/music/17.mid");
MusicBox.Add("你是我一辈子的爱","http://www.ichat.net.cn/music/165.mid");
MusicBox.Add("难得有情人","http://www.ichat.net.cn/music/127.mid");
MusicBox.Add("一生爱你一个","http://www.ichat.net.cn/music/107.mid");
MusicBox.Add("每天爱你多一些","http://www.ichat.net.cn/music/84.mid");
MusicBox.Add("999朵玫瑰","http://www.ichat.net.cn/music/33.mid");
MusicBox.Add("失恋阵线连盟","http://www.ichat.net.cn/music/6.mid");
MusicBox.Add("偏心","http://www.ichat.net.cn/music/161.mid");
MusicBox.Add("我是真的爱你","http://www.ichat.net.cn/music/99.mid");
MusicBox.Add("饿狼传说","http://www.ichat.net.cn/music/80.mid");
MusicBox.Add("祝福","http://www.ichat.net.cn/music/73.mid");
MusicBox.Add("青梅竹马","http://www.ichat.net.cn/music/69.mid");
MusicBox.Add("老实情歌","http://www.ichat.net.cn/music/57.mid");
MusicBox.Add("特别的爱给特别的你","http://www.ichat.net.cn/music/43.mid");
MusicBox.Add("一千零一夜","http://www.ichat.net.cn/music/32.mid");
MusicBox.Add("新鸳鸯蝴蝶梦","http://www.ichat.net.cn/music/11.mid");
MusicBox.Add("明天你是否依然爱我","http://www.ichat.net.cn/music/128.mid");
MusicBox.Add("别让我恨你","http://www.ichat.net.cn/music/117.mid");
MusicBox.Add("只想一生跟你走","http://www.ichat.net.cn/music/82.mid");
MusicBox.Add("舍不得","http://www.ichat.net.cn/music/59.mid");
MusicBox.Add("认错","http://www.ichat.net.cn/music/55.mid");
MusicBox.Add("爱与愁","http://www.ichat.net.cn/music/42.mid");
MusicBox.Add("雾之恋","http://www.ichat.net.cn/music/29.mid");
MusicBox.Add("再回首","http://www.ichat.net.cn/music/13.mid");
MusicBox.Add("一个哭起来还笑的人","http://www.ichat.net.cn/music/149.mid");
MusicBox.Add("倾斜","http://www.ichat.net.cn/music/145.mid");
MusicBox.Add("早晨","http://www.ichat.net.cn/music/144.mid");
MusicBox.Add("阳光路上","http://www.ichat.net.cn/music/138.mid");
MusicBox.Add("雪人","http://www.ichat.net.cn/music/125.mid");
MusicBox.Add("喜欢你","http://www.ichat.net.cn/music/115.mid");
MusicBox.Add("深情相拥","http://www.ichat.net.cn/music/89.mid");
MusicBox.Add("一千个伤心的理由","http://www.ichat.net.cn/music/79.mid");
MusicBox.Add("情书","http://www.ichat.net.cn/music/72.mid");
MusicBox.Add("旧情人","http://www.ichat.net.cn/music/71.mid");
MusicBox.Add("让我一次爱个够","http://www.ichat.net.cn/music/56.mid");
MusicBox.Add("水中花","http://www.ichat.net.cn/music/28.mid");
MusicBox.Add("为情所困","http://www.ichat.net.cn/music/21.mid");
MusicBox.Add("一天一点爱恋","http://www.ichat.net.cn/music/20.mid");
MusicBox.Add("与往事干杯","http://www.ichat.net.cn/music/14.mid");
MusicBox.Add("痴情不是一种罪过","http://www.ichat.net.cn/music/166.mid");
MusicBox.Add("我没有醉","http://www.ichat.net.cn/music/151.mid");
MusicBox.Add("爱我到今生","http://www.ichat.net.cn/music/147.mid");
MusicBox.Add("有一点动心","http://www.ichat.net.cn/music/96.mid");
MusicBox.Add("真爱","http://www.ichat.net.cn/music/77.mid");
MusicBox.Add("偷心","http://www.ichat.net.cn/music/76.mid");
MusicBox.Add("明天你会嫁给我吗","http://www.ichat.net.cn/music/67.mid");
MusicBox.Add("孤枕难眠","http://www.ichat.net.cn/music/63.mid");
MusicBox.Add("红蜻蜓","http://www.ichat.net.cn/music/51.mid");
MusicBox.Add("没有你之后","http://www.ichat.net.cn/music/47.mid");
MusicBox.Add("太傻","http://www.ichat.net.cn/music/37.mid");
MusicBox.Add("救姻缘","http://www.ichat.net.cn/music/10.mid");
MusicBox.Add("天真","http://www.ichat.net.cn/music/8.mid");

</script>
<style type="text/css">
<!--
body {  font-family: "宋体"; font-size: 9pt; line-height: 13pt}
table{  font-family: "宋体"; font-size: 9pt; }
select { BACKGROUND-COLOR: #efefef; COLOR: black; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; Border-width: 1px;}
a:visited {  color: #0000FF; text-decoration: none}
a:link {  color: #CCFFCC; text-decoration: none}
a:hover {  color: #FF0000}
.music { color: #191970 }
-->
</style>
</HEAD>
<body oncontextmenu=self.event.returnValue=false bgcolor="#88A0D7" topmargin="0" leftmargin="0">
<table height="100%" border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td width="1" bgcolor=black>
</td><td>
<table height="100%" border="0" width="100%" cellspacing="2" cellpadding="3">
<tr><td height="2"></td>
<tr><td valign=top>
<form name=form1>
<Div align=center>

<SELECT name="SELECT1" onchange="OnControl(this.value)">
<OPTION value="0">==音乐控制==</OPTION>
<OPTION value="100">停止播放音乐</OPTION>
<OPTION value="101">设定播放次数</OPTION>
<OPTION value="99">无限循环播放</OPTION>
<OPTION value="0" style="BACKGROUND:darkblue; COLOR:white;">==播放列表==</OPTION>
</SELECT>
<BR>
</DIV>
[共: <font color=#ff5555><script>document.write(MusicBox.GetCount())</script></font> 首歌曲]
<HR color="#FFFF00" size="1">
<INPUT type="radio" id=rd1 name=rd>送人
<INPUT type="radio" id=rd2 name=rd checked>欣赏
<HR color="#FFFF00" size="1">

<script language="JavaScript">
for(var i = 0; i < MusicBox.GetCount(); i++)
{	obj = MusicBox.GetMusic(i) ;
	document.write("<a href='javascript:GoMusic(" + i + ")'>");
	document.write(obj.Name);
	document.write("</a><br>");
}
</script>

<HR color="#FFFF00" size="1">
</form>
</td></tr></table></td></tr></table>
</BODY>
</HTML>