down.asp

来自「注意本程序是小偷代码,运用到某些类,卡巴会对INC.ASP误杀,其实并非木马,请」· ASP 代码 · 共 25 行

<!--#include file="config.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/file.asp"-->
<!--#include file="inc/skin.asp"-->
<%Dim id,TheUrl,TheThie,SongName,SongUrl,Re,TheDown,NBCache
id=request("id")
TheUrl="http://i.music.cn.yahoo.com/down.php?sid="&id
TheThie=NB_GetPage(TheUrl)
SongName=NB_GetContent(TheThie,"歌曲名称：","</b>",0)
SongUrl=NB_GetContent(TheThie,"歌曲出处: </b>","</font>",0)
Set Re=new RegExp
Re.Global=True
Re.Pattern="<a (.+?)>(.+?)</a>"
SongName=Re.Replace(SongName,"$2")
Re.Pattern="[\n]"
SongUrl=Re.Replace(SongUrl,"")
Set Re=Nothing
SongUrl=Replace(SongUrl,"> ",">")
SongUrl=Replace(SongUrl,"target=_blank","target=""_blank""")
TheDown="<table><tr><td><b>歌曲名称：</b>"&SongName&"</td></tr><tr><td><b>歌曲出处：</b>"&SongUrl&"</td></tr><tr><td><b>将这首歌：</b>〖<a href='"&NB_SS("song")&server.urlencode(SongName)&"' target='_blank'>免费送朋友</a>〗〖<a href='"&NB_SS("sms")&server.urlencode(SongName)&"' target='_blank'>做手机铃声</a>〗</td></tr></table>"
NBCache=NB_Skin("down")
NBCache=Replace(NBCache,"{NB:songname}",SongName)
NBCache=Replace(NBCache,"{NB:contents}",TheDown)
Response.Write NBCache%>