song.asp

注意本程序是小偷代码,运用到某些类,卡巴会对INC.ASP误杀,其实并非木马,请大家放心使用,不相信请勿用!

<%
Function Rp_Song(s)
Dim Re
Set Re=new RegExp
Re.Global=True
Re.Pattern="<em>(.+?).</em>"
s=Re.Replace(s,"$1.")
Re.Pattern="<td .+?>"
s=Re.Replace(s,"<td>")
Re.Pattern="<span(.+?)>(.+?)</span>"
s=Re.Replace(s,"$2")
Re.Pattern="<font (.+?)>(.+?)</font>"
s=Re.Replace(s,"$2")
s=Replace(s,"<td><b></b></td>","<td class='t0'></td>")
s=Replace(s,"<td><b>歌曲名称</b></td>","<td class='t2'><b>歌曲名称</b></td>")
s=Replace(s,"<td><b>歌手</b></td>","<td class='t3'><b>歌手</b></td>")
s=Replace(s,"<td><b>专辑</b></td>","<td class='t4'><b>专辑</b></td>")
s=Replace(s,"<td><b>链接</b></td><td><b>手机</b></td><td><b>收藏</b></td>","<td><b>下载</b></td><td><b>铃声</b></td>")
Re.Pattern="<td><b>(.+?)</b></td>"
s=Re.Replace(s,"<td class='t1'><b>$1</b></td>")
Re.Pattern="<small>(.+?)</small>"
s=Re.Replace(s,"")
Re.Pattern="<a href=""http:\/\/i.music.cn.yahoo.com\/down.php\?sid=(.+?)&(.+?)>(.+?)</a>"
s=Re.Replace(s,"<a href='song.asp?song=$3'>$3</a>")
Re.Pattern="<a href=""search.htm(.+?)&p=(.+?)&(.+?)>(.+?)</a>"
s=Re.Replace(s,"<a href='song.asp?song=$2'>$4</a>")
Re.Pattern="<a class=""picon"" href=""http:\/\/i.music.cn.yahoo.com\/listen.php\?sid=(.+?)"" (.+?)>"
s=Re.Replace(s,"<a href='play.asp?id=$1' target='_blank' onclick='return listen(this)'>")
Re.Pattern="<a onclick=(.+?) href=""http:\/\/(.+?)\/study_player.html\?(.+?)""(.+?)>"
s=Re.Replace(s,"<a href='study.asp?$3' target='_blank'>")
Re.Pattern="<a href=""http:\/\/music.cn.yahoo.com\/search_card.html\?p=(.+?)""(.+?)>送歌</a>"
s=Re.Replace(s,"<a href='"&NB_SS("song")&"$1' target='_blank'>送歌</a>")
Re.Pattern="<a href=""singer.htm(.+?)&p=(.+?)&(.+?)>(.+?)</a>"
s=Re.Replace(s,"<a href='song.asp?song=$2'>$4</a>")
Re.Pattern="<a title=""点击查看下载链接"" (.+?)\?sid=(.+?)&(.+?)>链接</a></td><td>(.+?)</td><td>(.+?)</td>"
s=Re.Replace(s,"<a href='down.asp?id=$2' target='_blank' onclick='return down(this)'>下载</a></td><td><a href='"&NB_SS("sms")&SongCode&"' target='_blank'>铃声</a></td>")
Re.Pattern="<a href=""\/lyric.html\?kid=(.+?)""(.+?)>"
s=Re.Replace(s,"<a href='lrc.asp?id=$1'>")
Re.Pattern="<a href=""\/lyricrec.html\?p=(.+?)""(.+?)>无歌词</a>"
s=Re.Replace(s,"")
Set Re=Nothing
s=Replace(s,"&nbsp;</td>","</td>")
s=Replace(s,"	","")
Rp_Song="<table>"&s&"</table>"
End Function
Function Rp_Page(s)
Dim Re
Set Re=new RegExp
Re.Global=True
Re.Pattern="<a(.+?)&start=(.+?)&(.+?)>"
s=Re.Replace(s,"<a href='song.asp?song="&SongCode&"&type="&SongType&"&page=$2'>")
Set Re=Nothing
s=Replace(s,"  "," ")
Rp_Page=Trim(s)
End Function%>