study.asp

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

<!--#include file="config.asp"-->
<!--#include file="inc/inc.asp"-->
<%Dim TheUrl,TheThie
TheUrl=request.querystring
If Len(TheUrl) < 4 Then response.redirect "http://www.3qyy.com"
TheUrl="http://music.cn.yahoo.com/music_learn/study_player.html?"&TheUrl
TheThie=NB_GetPage(TheUrl)
TheThie=Rp_Play(NB_GetContent(TheThie,"<!DOCTYPE","</html>",1))
Response.Write TheThie
Function Rp_Play(s)
s=Replace(s,"	","")
s=Replace(s,"http://music.cn.yahoo.com/search?p=","song.asp?song=")
s=replace(s,"getlyric.php?kid=","lrcget.asp?kid=")
Dim Re
Set Re=new RegExp
Re.Global=True
Re.Pattern=">\s+?<"
s=Re.Replace(s,"><")
Re.Pattern="([\n\r])\s+?"
s=Re.Replace(s,"$1")
Re.Pattern="<img src=""http://count.yisou.yahoo.com/(.+?)>"
s=Re.Replace(s,"<u style='display:none;'>"&NB_Count&"</u>")
Set Re=Nothing
Rp_Play=replace(s,"</em>","</em> ")
End Function%>