<styletype="text/css"><!--body,td,th{font-size:14px;}INPUT{BORDER-TOP-WIDTH:1px;BORDER-LEFT-WIDTH:1px;FONT-SIZE:12px;BORDER-BOTTOM-WIDTH:1px;
<style type="text/css">
<!--
body,td,th {
font-size: 14px;
}
INPUT {
BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 12px; BORDER-BOTTOM-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px
}
-->
</style>
</head>
<body bgcolor="#0066CC" text="#FFFFFF" link="#FFFFFF" vlink="#FF0000" alink="#FFFFFF">
<br><br>
<div align="center">
<SCRIPT LANGUAGE="JavaScript">//window.resizeTo(350 ,350);</script>
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
<tr>
<td align="center" colspan="3">
<object classid="clsid:CFCDAA03-8BE4-11CF-B84B-0020AFCFA" id="qtdj_player" width="300" height="60">
<param name="AUTOSTART" value="1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="LOOP" value="1">
<param name="NUMLOOP" value="0">
<param name="CENTER" value="0">
<param name="MAINTAINASPECT" value="0">
<param name="BACKGROUNDCOLOR" value="#000000">
<param name="CONTROLS" value="StatusBar,,controlpanel">
</object>
<script language=vbscript>
'===========音乐地址自动抓取系统===========
'=========== 侦错自动换地址模式 ===========
Dim Aurl
Aurl=Array("http://bbs.qn168.com","http://vn.chinabroadcast.cn","http://www.ezwl.cn","http://www.21ling.com:3678","http://m3.music.hytongda.cn","http://face.15150.com","http://www.tzcs.gov.cn","http://ktv.voline.net","http://user.hao3gp.com:818","http://m4.music.hytongda.cn","http://www.ezwl.cn","http://www.bll.com.cn","http://ktv.voline.net","http://m10.music.hytongda.cn","http://second.china57.com","http://bmw.duoduo.biz","http://fs8.139.com","http://1000jq.5music.org","http://61.156.33.18","http://m1.music.hytongda.cn","http://www.youngtree.net","http://pa2.astrodown.net","http://down.sjz27.net","http://www.hnbgy.net","http://www.gz61.com","http://yyrings.com","http://m6.music.hytongda.cn","http://m2.music.hytongda.cn","http://www.ezwl.cn","http://www.essesx.net")
Dim i
i=0
qtdj_player.SetWantErrors True
qtdj_player.SetAutoStart True
qtdj_player.Source = Aurl(i)
Private Sub qtdj_player_OnErrorMessage(uSeverity,uRMACode,uUserCode,pUserString,pMoreInfoURL,pErrorString)
Randomize
i=Int(rnd * 29)
qtdj_player.SetSource Aurl(i)
qtdj_player.DoPlay
document.all.urldown.innerHTML="<A href='"+Aurl(i)+"' title=点右键另存为><Font color=#FFFFFF>"+Aurl(i)+"</Font></A>"
End Sub

Private Sub UUpdate()
Randomize
i=Int(rnd * 29)
qtdj_player.SetSource Aurl(i)
qtdj_player.DoPlay
document.all.urldown.innerHTML="<A href='"+Aurl(i)+"' title=点右键另存为><Font color=#FFFFFF>"+Aurl(i)+"</Font></A>"
End Sub

Private Sub DownU()
'window.open(Aurl(i))
document.all.urldown.innerHTML="<A href='"+Aurl(i)+"' title=点右键另存为><Font color=#FFFFFF>"+Aurl(i)+"</Font></A>"
End Sub
</script>
</td>
</tr>
<tr>
<td height="49" colspan="3" onclick=vbscript:UUpdate()>[有效链接地址有:<font color=red>30</font>个]<input type="button" value="更换链接地址"></td>
</tr> 
<tr>
<td onmouseover="vbscript:downU()">你正在试听的歌曲是:<B>心太软</B></td><td onmouseover="vbscript:downU()" id=urldown>(鼠标放在这里显示当前播放歌曲地址)</td>
<td width="35%"><a href="http://mp3.baidu.com/m?tn=baidump3lyric&word=%D0%C4%CC%AB%C8%ED&ct=150994944&lm=-1&lf=3" target="_blank">查看歌词</a></td>
</tr>
<tr>
<td colspan=3>
<br>
<form action="" method="get">
输入歌曲:<input type="text" name="key" size="20" value="心太软">
<input type="submit" value="开始听歌">
<div align="center">
<label for="aM"><input name=lm type=radio id="aM" value=-1 checked>全部音乐</label>
<label for="Mp3"><input name=lm type=radio id="Mp3" value=0 >mp3</label>
<label for="RM"><input name=lm type=radio id="RM" value=1 >rm</label>
<label for="WMA"><input name=lm type=radio id="WMA" value=2 >wma</label>
</div>
</form>
</td>
</tr>
</table>
最新资讯
盒马鲜生侯毅:新零售放弃了价格战 从不参加618双11

盒马鲜生侯毅:新零售放

新零售更提倡健康消费,享受最好的商品、最好的服务,跟传
如果地球停止自转海水因惯性发生海啸 我们该怎么办

如果地球停止自转海水

来源: 问政根据刘慈欣同名小说改编的电影《流浪地球》
迄今最清晰照!嫦娥四号最新照片来了

迄今最清晰照!嫦娥四号

2月16日消息,美国航天局15日发布“月球勘测轨道飞行器
OPPO副总裁沈义人:10X混合无损变焦技术上半年量产

OPPO副总裁沈义人:10X

来源:IT之家作者:骑士IT之家2月16日消息 今天下午,似乎O
胡葆森:有信心把亚布力打造成中国的达沃斯

胡葆森:有信心把亚布力

2月16日晚间消息,2019亚布力中国企业家论坛第十九届年
从流浪地球透视影视后期产业:急需电影界蓝翔技校

从流浪地球透视影视后

来源: 湃客iEDU投资人俱乐部春节档电影《流浪地球》的
最新文章
asp.net 页面中添加普通视频的几种方式

asp.net 页面中添加普

公司需要在一个测试网页中插入视频,今天正好有时间整理
[翻译] JW Media Player 中文文档

[翻译] JW Media Play

官方网址http://www.jeroenwijering.com这篇文档包含
在线FLV播放器实现方法

在线FLV播放器实现方

者主页:http://www.jeroenwijering.com/?item=Flash_V
内嵌式RealPlayer播放器的参数含义

内嵌式RealPlayer播放

内嵌式RealPlayer播放器的参数含义内嵌式RealPlayer播
html中嵌入flv格式文件的代码

html中嵌入flv格式文

在网页中(所有网页都由html组成,所以说下面的代码,可以
flv播放器 在网页中播放flv

flv播放器 在网页中播

以前找了很久,现在的项目中用到了。需要的自己下载。现