play.asp

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

<!--#include file="config.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/lrc.asp"-->
<%Dim SongName,TheUrl,TheThie
TheUrl=request.querystring
If Len(TheUrl) < 4 Then response.redirect "http://www.3qyy.com"
TheUrl="http://i.music.cn.yahoo.com/listen.php?s"&TheUrl
TheThie=NB_GetPage(TheUrl)
SongName=Rp_SongName(NB_GetContent(TheThie,"<span id=""mylist_songinfo_songname"">","</span>",0))
TheThie=Rp_Play(NB_GetContent(TheThie,"<!DOCTYPE","</html>",1))
Response.Write TheThie
Function Rp_Play(s)
s=Replace(s,"<a id=""mylist_switch"" href="""" class=""bn_open""></a>","")
s=Replace(s,"http://music.cn.yahoo.com/printlyric.html","lrcdown.asp")
s=Replace(s,"	","")
Dim Re
Set Re=new RegExp
Re.Global=True
Re.Pattern="([\n\r])\s+?"
s=Re.Replace(s,"$1")
Re.Pattern="<title>(.+?)</title>"
s=Re.Replace(s,"<title>"&SongName&"试听,歌词同步显示,"&SongName&"LRC歌词下载</title>")
Re.Pattern="<img (.+?)>"
s=Re.Replace(s,"")
Re.Pattern="<!--mylist content-->[\s\S]+?<!--\/\/mylist content-->"
s=Re.Replace(s,"")
Re.Pattern="<div class=""col1"">[\s\S]+?</div>"
s=Re.Replace(s,"")
Re.Pattern="<div id=""mylist_mob"">[\s\S]+?</div>"
s=Re.Replace(s,"")
Re.Pattern="<div id=""mylist_songhandle"">[\s\S]+?</div>"
s=Re.Replace(s,"<div style='margin:5px 0;'><img src='http://cn.yimg.com/i/music/mymusic/icon_w.gif' border='0'> <a href='"&NB_SS("song")&server.urlencode(SongName)&"' target='_blank'>免费点播此歌送朋友</a>　<img src='http://cn.yimg.com/i/music/mymusic/icon_m.gif' border='0'> <a href='"&NB_SS("sms")&server.urlencode(SongName)&"' target='_blank'>下载此歌做铃声</a></div>")
Re.Pattern="\/\*honglei Edit\*\/[\s\S]+?</script>"
s=Re.Replace(s,"</script>")
Re.Pattern="http:\/\/music.cn.yahoo.com\/search\?(.+?)p="
s=Re.Replace(s,"song.asp?song=")
Set Re=Nothing
If NB_Play="" Then NB_Play="<iframe name='town' src='http://www.7town.com/TnSend/P3701.htm?uid=19589&mn="&SongName&"&a=&b=&c=&d=&e=&f=' width='370' height='30' border='0' frameborder='0' scrolling='no'></iframe>"
s=Replace(s,"<span id=""img_post""></span>",NB_Play&"<u style='display:none;'>"&NB_Count&"</u>")
Rp_Play=Trim(By_Lrc(s))
End Function
Function Rp_SongName(s)
Dim Re
Set Re=new RegExp
Re.Global=True
Re.Pattern="<[Aa] (.+?)>(.+?)</[Aa]>"
Rp_SongName=Re.Replace(s,"$2")
Set Re=Nothing
End Function%>