📄 music.htm

📁 聊天功能的实现
💻 HTM
📖 第 1 页 / 共 2 页
字号:
12 下一页
<HTML>
<HEAD>
<TITLE>歌曲列表</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
/** 系统用脚本定义开始，普通用户不建议修改 **/
function Song(a, b)
{
	this.Name = a ;
	this.URL = b ;
}
function Music()
{
	this.m_pMusic = new Array() ;
	this.GetCount = function(){return this.m_pMusic.length;}
	this.Add = function(a, b)
	{	var obj = new Song(a, b) ;
		this.m_pMusic[this.GetCount()] = obj ;
	}
	this.GetMusic = function(n){return this.m_pMusic[n];}
	this.SortOnName = function(a, b)
	{	var n1 = a.Name.length ;
		var n2 = b.Name.length ;
		if(n1 == n2)	return 0; 
		if(n1 < n2)		return -1; 
		if(n1 > n2)		return 1;
	}
	this.Sort = function() {this.m_pMusic.sort(this.SortOnName);}
}


function GoMusic(n)
{	if(document.form1.rd1.checked)
	{
		var strUser = top.document.f1.ToWho.value ;
		if( strUser != '大家')
		{
			if(confirm("你决定送这首歌给 [" + strUser + "] 吗？"))
			{
				top.document.f1.SAYS.value = "##music " + MusicBox.GetMusic(n).Name + MusicBox.GetMusic(n).URL ;
				top.document.f1.submit() ; // 自动提交

			}
			return ;
		}else
		{
			alert("不能给 大家 送歌！")
			
		}
	}else
	{
		if(confirm("你给自己点了一首歌曲，立即播放吗？"))
		{
			top.Play(MusicBox.GetMusic(n).URL);
		}
		top.setFocus();
		return ;
	}
}

function Loop(n)
	{	if(n != 0)
		{	top.MLoop = n ;
		}else
		{	top.music.document.open();
			top.music.document.writeln("<HTML><BODY></BODY></HTML>") ;
			top.music.document.close(); return ;
		}
}

function OnControl(n)
{
	switch(n)
	{
		case "0":
			break ;
		case "100":
			Loop(0);
			break;
		case "99":
			Loop(-1);
			break;
		case "101":
			var loop = prompt("请设定音乐播放的次数，1至99为有效值，-1表示不限次数!",top.MLoop) ;
			if(loop != null && loop < 100)	Loop(loop);
			break;
		default:
			top.Play(n) ;
			break;
	}
	document.form1.SELECT1.value = '0' ;
}
/** 系统用脚本定义结束 **/
var MusicBox = new Music() ;
MusicBox.Add("玫瑰香","http://www.ichat.net.cn/music/142.mid");
MusicBox.Add("一言难尽","http://www.ichat.net.cn/music/105.mid");
MusicBox.Add("我是真的","http://www.ichat.net.cn/music/97.mid");
MusicBox.Add("其实不想走","http://www.ichat.net.cn/music/64.mid");
MusicBox.Add("浪人情歌","http://www.ichat.net.cn/music/48.mid");
MusicBox.Add("你爱谁","http://www.ichat.net.cn/music/44.mid");
MusicBox.Add("甜蜜蜜","http://www.ichat.net.cn/music/16.mid");
MusicBox.Add("无言花","http://www.ichat.net.cn/music/163.mid");
MusicBox.Add("日以继夜的想你","http://www.ichat.net.cn/music/162.mid");
MusicBox.Add("今天夜里总下雨","http://www.ichat.net.cn/music/110.mid");
MusicBox.Add("其实你心里有没有我","http://www.ichat.net.cn/music/54.mid");
MusicBox.Add("回家","http://www.ichat.net.cn/music/36.mid");
MusicBox.Add("短发","http://www.ichat.net.cn/music/156.mid");
MusicBox.Add("爱从我心飞向你","http://www.ichat.net.cn/music/152.mid");
MusicBox.Add("伤痕","http://www.ichat.net.cn/music/141.mid");
MusicBox.Add("真情流露","http://www.ichat.net.cn/music/112.mid");
MusicBox.Add("爱如潮水","http://www.ichat.net.cn/music/93.mid");
MusicBox.Add("三天两夜","http://www.ichat.net.cn/music/88.mid");
MusicBox.Add("那一场风花雪月的事","http://www.ichat.net.cn/music/70.mid");
MusicBox.Add("爱那麽重","http://www.ichat.net.cn/music/38.mid");
MusicBox.Add("耶里亚","http://www.ichat.net.cn/music/34.mid");
MusicBox.Add("萍聚","http://www.ichat.net.cn/music/148.mid");
MusicBox.Add("魔力esp","http://www.ichat.net.cn/music/122.mid");
MusicBox.Add("别让情两难","http://www.ichat.net.cn/music/101.mid");
MusicBox.Add("别怕我伤心","http://www.ichat.net.cn/music/100.mid");
MusicBox.Add("拒绝再玩","http://www.ichat.net.cn/music/91.mid");
MusicBox.Add("追","http://www.ichat.net.cn/music/90.mid");
MusicBox.Add("留住这时光","http://www.ichat.net.cn/music/83.mid");
MusicBox.Add("海阔天空","http://www.ichat.net.cn/music/5.mid");
MusicBox.Add("似水年华","http://www.ichat.net.cn/music/164.mid");
MusicBox.Add("爱你一定快乐","http://www.ichat.net.cn/music/139.mid");
MusicBox.Add("自言自语","http://www.ichat.net.cn/music/123.mid");
MusicBox.Add("真爱宣言","http://www.ichat.net.cn/music/119.mid");
MusicBox.Add("千千阕歌","http://www.ichat.net.cn/music/109.mid");
MusicBox.Add("曲终人散","http://www.ichat.net.cn/music/104.mid");
MusicBox.Add("等你等到我心痛","http://www.ichat.net.cn/music/85.mid");
MusicBox.Add("让我欢喜让我忧","http://www.ichat.net.cn/music/65.mid");
MusicBox.Add("风雨无阻","http://www.ichat.net.cn/music/62.mid");
MusicBox.Add("花心","http://www.ichat.net.cn/music/60.mid");
MusicBox.Add("北方的狼","http://www.ichat.net.cn/music/25.mid");
MusicBox.Add("爱你到永远","http://www.ichat.net.cn/music/12.mid");
MusicBox.Add("情人","http://www.ichat.net.cn/music/3.mid");
MusicBox.Add("真的爱你","http://www.ichat.net.cn/music/1.mid");
MusicBox.Add("诺言","http://www.ichat.net.cn/music/150.mid");
MusicBox.Add("一见钟情","http://www.ichat.net.cn/music/146.mid");
MusicBox.Add("爱上个不回家的人","http://www.ichat.net.cn/music/143.mid");
MusicBox.Add("月亮代表我的心","http://www.ichat.net.cn/music/118.mid");
MusicBox.Add("永远爱你","http://www.ichat.net.cn/music/103.mid");
MusicBox.Add("回头太难","http://www.ichat.net.cn/music/87.mid");
MusicBox.Add("相思风雨中","http://www.ichat.net.cn/music/86.mid");
MusicBox.Add("喜欢你是你","http://www.ichat.net.cn/music/53.mid");
MusicBox.Add("戏梦","http://www.ichat.net.cn/music/41.mid");
MusicBox.Add("明天你是否爱我","http://www.ichat.net.cn/music/35.mid");
MusicBox.Add("because i love you","http://www.ichat.net.cn/music/9.mid");
MusicBox.Add("旧梦","http://www.ichat.net.cn/music/167.mid");
MusicBox.Add("谢谢你爱过我","http://www.ichat.net.cn/music/155.mid");
MusicBox.Add("还记得我吗","http://www.ichat.net.cn/music/102.mid");
MusicBox.Add("太想爱你","http://www.ichat.net.cn/music/94.mid");
MusicBox.Add("吻别","http://www.ichat.net.cn/music/75.mid");
MusicBox.Add("再爱我吧","http://www.ichat.net.cn/music/61.mid");
MusicBox.Add("青苹果乐园","http://www.ichat.net.cn/music/50.mid");
MusicBox.Add("难道真的我能忘记你","http://www.ichat.net.cn/music/46.mid");
MusicBox.Add("恋曲2000","http://www.ichat.net.cn/music/19.mid");
MusicBox.Add("长城","http://www.ichat.net.cn/music/2.mid");
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -