singer.asp

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

<%
Function Rp_Singer(s)
Dim Re
Set Re=new RegExp
Re.Global=True
Re.Pattern="[\n]"
s=Re.Replace(s,"")
Re.Pattern="<a href=""http:\/\/music.cn.yahoo.com\/lyric.html\?p=(.+?)><small>歌词</small></a>"
s=Re.Replace(s,"")
Re.Pattern="<a href=""http:\/\/music.cn.yahoo.com\/search.html\?cp=(.+?)&(.+?)>(.+?)</a>"
s=Re.Replace(s,"<a href='song.asp?song=$1'>$3</a>")
Set Re=Nothing
s=Replace(s,"<b><b>","<b>")
s=Replace(s,"</b></b>","</b>")
s=Replace(s,"> <","><")
s=Replace(s,"<h4>","<h3>")
s=Replace(s,"</h4>","</h3>")
Rp_Singer=Trim(s)
End Function%>