<styletype="text/css">

<>

</style>

</head>

<bodybgcolor="#0066CC"text="#FFFFFF"link="#FFFFFF"vlink="#FF0000"alink="#FFFFFF">

<br><br>

<divalign="center">

<SCRIPTLANGUAGE="JavaScript">//window.resizeTo(350,350);</script>

<tableborder="0"width="100%"id="table1"cellspacing="0"cellpadding="0">

<tr>

<tdalign="center"colspan="3">

<objectclassid="clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA"id="qtdj_player"width="300"height="60">

<paramname="AUTOSTART"value="1">

<paramname="SHUFFLE"value="0">

<paramname="PREFETCH"value="0">

<paramname="NOLABELS"value="0">

<paramname="LOOP"value="1">

<paramname="NUMLOOP"value="0">

<paramname="CENTER"value="0">

<paramname="MAINTAINASPECT"value="0">

<paramname="BACKGROUNDCOLOR"value="#000000">

<paramname="CONTROLS"value="StatusBar,,controlpanel">

</object>

<scriptlanguage=vbscript>

'===========音乐地址自动抓取系统===========

'===========侦错自动换地址模式===========

DimAurl

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")

Dimi

i=0

qtdj_player.SetWantErrorsTrue

qtdj_player.SetAutoStartTrue

qtdj_player.Source=Aurl(i)

PrivateSubqtdj_player_OnErrorMessage(uSeverity,uRMACode,uUserCode,pUserString,pMoreInfoURL,pErrorString)

Randomize

i=Int(rnd*29)

qtdj_player.SetSourceAurl(i)

qtdj_player.DoPlay

document.all.urldown.innerHTML="<Ahref='"+Aurl(i)+"'title=点右键另存为><Fontcolor=#FFFFFF>"+Aurl(i)+"</Font></A>"

EndSub

PrivateSubUUpdate()

Randomize

i=Int(rnd*29)

qtdj_player.SetSourceAurl(i)

qtdj_player.DoPlay

document.all.urldown.innerHTML="<Ahref='"+Aurl(i)+"'title=点右键另存为><Fontcolor=#FFFFFF>"+Aurl(i)+"</Font></A>"

EndSub

PrivateSubDownU()

'window.open(Aurl(i))

document.all.urldown.innerHTML="<Ahref='"+Aurl(i)+"'title=点右键另存为><Fontcolor=#FFFFFF>"+Aurl(i)+"</Font></A>"

EndSub

</script>

</td>

</tr>

<tr>

<tdheight="49"colspan="3"onclick=vbscript:UUpdate()>[有效链接地址有:<fontcolor=red>30</font>个]<inputtype="button"value="更换链接地址"></td>

</tr>

<tr>

<tdonmouseover="vbscript:downU()">你正在试听的歌曲是：<B>心太软</B></td><tdonmouseover="vbscript:downU()"id=urldown>(鼠标放在这里显示当前播放歌曲地址)</td>

<tdwidth="35%"><ahref="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>

<tdcolspan=3>

<br>

<formaction=""method="get">

输入歌曲:<inputtype="text"name="key"size="20"value="心太软">

<inputtype="submit"value="开始听歌">

<divalign="center">

<labelfor="aM"><inputname=lmtype=radioid="aM"value=-1checked>全部音乐</label>

<labelfor="Mp3"><inputname=lmtype=radioid="Mp3"value=0>mp3</label>

<labelfor="RM"><inputname=lmtype=radioid="RM"value=1>rm</label>

<labelfor="WMA"><inputname=lmtype=radioid="WMA"value=2>wma</label>

</div>

</form>

</td>

</tr>

</table>