index.asp

ASP音乐程序

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Fun.asp"-->
<%
'******************************************************
'Yahoo!cn音乐小偷程序asp版
'
'软件作者：&Raymond
'官方网站：http://qrui.cn/
'意见反馈：http://www.qrui.cn/blog/read.php/28.htm
'******************************************************
strl=Request.ServerVariables("QUERY_STRING")
strx=Split(strl,"/")
if strx(1)="down" then
 SiteUrl = "http://i.music.cn.yahoo.com/"&strx(1)&".php?sid="&strx(2)
else
 SiteUrl = "http://i.music.cn.yahoo.com/"&strx(1)&".php?sid="&strx(2)&"&kid="&strx(ubound(strx))
end if
 bodystr = GetHttpPage(SiteUrl)
if strx(1)="down" then
 title=strCut(bodystr,"歌曲名称：","</b>",2)
else
 title=strCut(bodystr,"歌曲：","歌手：",2)
end if
 title=RegExpTest("<[^{><}]*>",title,"")
 title=replace(title," ","")
 title=replace(title,"font","")
 title=replace(title,"color","")
 title=replace(title,"red","")
 title=replace(title,"举报：歌曲错了","")
if strx(1)="down" then
ring=strCut(bodystr,"<SPAN class=f12>","</span>",1)
bodystr=replace(bodystr,ring,"<iframe src=""http://mmssend.moyu.com/P3701.htm?uid=18664&mn="&title&"&a=&b=&c=&d=&e=&f="" name=""town"" width=""400"" height=""35"" scrolling=""No"" frameborder=""0"" id=""town"" border=""0""></iframe>")
else
bodystr=replace(bodystr,"<span id=""img_post""></span>","<span id=""img_post""><iframe src="""&sssooo&"toplisten/?n="&title&""" width=""400"" height=""30"" border=""0"" frameborder=""0"" scrolling=""no""></iframe></span>")
displaystr=strCut(bodystr,"<div id=""mylist_songhandle"">","<!--//player-->",2)
bodystr = replace(bodystr,displaystr,"</div></div>")

end if
 bodystr = replace(bodystr,"http://music.yahoo.com.cn/search?p=",""&YahooMusicUrl&"/search/?/")
 bodystr = replace(bodystr,"http://music.yahoo.com.cn/search?",""&YahooMusicUrl&"/search/?")
 bodystr = replace(bodystr,"&p=","/")
 bodystr = replace(bodystr,"http://music.cn.yahoo.com/search_lyrictip.html?kid=",""&YahooMusicUrl&"/minilyric/?")
 bodystr = replace(bodystr,"http://count.yisou.yahoo.com","http://img.users.51.la/1164801.asp"" name=""")
 bodystr = replace(bodystr,"<TITLE></TITLE>","<TITLE>"&title&"</TITLE>")
 bodystr = replace(bodystr,"<title></title>","<title>"&title&"</title>")
 bodystr = replace(bodystr,"<title>我的音乐_雅虎音乐</title>","<title>"&title&"</title>")
 bodystr = replace(bodystr,"http://pic.cn.yahoo.com/coo/music/musicindex.php?w=",sssooo&"ringsl/?n="&title&""" name=""")
 bodystr = replace(bodystr,"http://pic.cn.yahoo.com/coo/music/musicindex.php?m=",sssooo&"ringss/?n="&title&""" name=""")
 bodystr = replace(bodystr,"设置为彩铃","免费点播歌曲")
%>
<%=bodystr%>