down.asp

jkjgkjbkjklb hnbbnl,bmnmn

<!--#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
TheUrl=request.querystring
TheUrl="http://i.music.cn.yahoo.com/down.php?sid="&TheUrl
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%>