<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">//(350 ,350);</script>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td align="center" colspan="3">
<object class 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>
'================ Automatic music address crawling system============
'================= Automatic address change mode for error detection ============
Dim Aurl
Aurl=Array("http://bbs.","","","http://:3678","","http://face.","","","http://user.:818","","","","","","http://second.","","http://fs8.","http://1000jq.","http://61.156.33.18","","","","http://down.","","http://","","","","","")
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
="<A href='"+Aurl(i)+"' title=right click to save as ><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
="<A href='"+Aurl(i)+"' title=right click to save as ><Font color=#FFFFFF>"+Aurl(i)+"</Font></A>"
End Sub
Private Sub DownU()
'(Aurl(i))
="<A href='"+Aurl(i)+"' title=right click to save as ><Font color=#FFFFFF>"+Aurl(i)+"</Font></A>"
End Sub
</script>
</td>
</tr>
<tr>
<td height="49" colspan="3" onclick=vbscript:UUpdate()>[Valid link addresses are: <font color=red>30</font>]<input type="button" value="Replace link address"></td>
</tr>
<tr>
<td onmouseover="vbscript:downU()">The song you are listening to is: <B>Heart is too soft</B></td><td onmouseover="vbscript:downU()" id=urldown>(The mouse is placed here to display the address of the currently played song)</td>
<td width="35%"><a href="/m?tn=baidump3lyric&word=%D0%C4%CC%AB%C8%ED&ct=150994944&lm=-1&lf=3" target="_blank">View lyrics</a></td>
</tr>
<tr>
<td colspan=3>
<br>
<form action="" method="get">
Enter the song:<input type="text" name="key" size="20" value="too soft">
<input type="submit" value="Start Listening to Songs">
<div align="center">
<label for="aM"><input name=lm type=radio value=-1 checked>All music</label>
<label for="Mp3"><input name=lm type=radio value=0 >mp3</label>
<label for="RM"><input name=lm type=radio value=1 >rm</label>
<label for="WMA"><input name=lm type=radio value=2 >wma</label>
</div>
</form>
</td>
</tr>
</table>
<!--
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">//(350 ,350);</script>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td align="center" colspan="3">
<object class 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>
'================ Automatic music address crawling system============
'================= Automatic address change mode for error detection ============
Dim Aurl
Aurl=Array("http://bbs.","","","http://:3678","","http://face.","","","http://user.:818","","","","","","http://second.","","http://fs8.","http://1000jq.","http://61.156.33.18","","","","http://down.","","http://","","","","","")
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
="<A href='"+Aurl(i)+"' title=right click to save as ><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
="<A href='"+Aurl(i)+"' title=right click to save as ><Font color=#FFFFFF>"+Aurl(i)+"</Font></A>"
End Sub
Private Sub DownU()
'(Aurl(i))
="<A href='"+Aurl(i)+"' title=right click to save as ><Font color=#FFFFFF>"+Aurl(i)+"</Font></A>"
End Sub
</script>
</td>
</tr>
<tr>
<td height="49" colspan="3" onclick=vbscript:UUpdate()>[Valid link addresses are: <font color=red>30</font>]<input type="button" value="Replace link address"></td>
</tr>
<tr>
<td onmouseover="vbscript:downU()">The song you are listening to is: <B>Heart is too soft</B></td><td onmouseover="vbscript:downU()" id=urldown>(The mouse is placed here to display the address of the currently played song)</td>
<td width="35%"><a href="/m?tn=baidump3lyric&word=%D0%C4%CC%AB%C8%ED&ct=150994944&lm=-1&lf=3" target="_blank">View lyrics</a></td>
</tr>
<tr>
<td colspan=3>
<br>
<form action="" method="get">
Enter the song:<input type="text" name="key" size="20" value="too soft">
<input type="submit" value="Start Listening to Songs">
<div align="center">
<label for="aM"><input name=lm type=radio value=-1 checked>All music</label>
<label for="Mp3"><input name=lm type=radio value=0 >mp3</label>
<label for="RM"><input name=lm type=radio value=1 >rm</label>
<label for="WMA"><input name=lm type=radio value=2 >wma</label>
</div>
</form>
</td>
</tr>
</table>