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")
if strl="" then
%>
<meta http-equiv="refresh" content="0;url=/">
<%
else
strx=Split(strl,"/")
if ubound(strx)>4 then
 SiteUrl = "http://music.cn.yahoo.com/search?pid=ysearch&source="&strx(0)&"&mimetype="&strx(2)&"&p="&strx(1)&"&start="&strx(3)
else
 SiteUrl = "http://music.cn.yahoo.com/search.html?p="&strx(1)&"&mimetype=all&source=ycnm_lsn_so"
end if
 bodystrl = GetHttpPage(SiteUrl)
 title = strCut(bodystrl,"<title>雅虎音乐搜索_","</title>",2)
 bodystr = strCut(bodystrl,"<div class=""res"">","<em class=""notice"">",2)
if bodystr="" then
 bodystr = strCut(bodystrl," <!--Song List{//-->"," <!--}Song List//-->",2)
 bodystr = replace(bodystr,"歌词","")
else
 foot = strCut(bodystrl,"<div class=""page"">","</div>",2)
 bodystr = bodystr&foot
end if
 bodystr = replace(bodystr,"&list_singer_name=","/")
 bodystr = replace(bodystr,"&mimetype=","/")
 bodystr = replace(bodystr,"&start=","/")
 bodystr = replace(bodystr,"&size=","/")
 bodystr = replace(bodystr,"&kid=","/")
 bodystr = replace(bodystr,"cp=","/")
 bodystr = replace(bodystr,"p=","/")
 bodystr = replace(bodystr,".html","/")
 bodystr = replace(bodystr,"&source=","/")
 bodystr = replace(bodystr,"pid=ysearch&","")
 bodystr = replace(bodystr,"&pid=ysearch","")
 bodystr = replace(bodystr,"kid=","")
 bodystr = replace(bodystr,"href=""/lyric/"," onclick=""return od_lyric(this, 0)""  href="""&YahooMusicUrl&"/lyric/")
 bodystr = replace(bodystr,"href=""/lyricrec/"," onclick=""return od_lyricrec(this, 0)""  href="""&YahooMusicUrl&"/lyricrec/")
 bodystr = replace(bodystr,"ysearch_music_result_query_song&","")
 bodystr = replace(bodystr,"ysearch_music_result_singer&","")
 bodystr = replace(bodystr,"ysearch_music_result_page_","")
 bodystr = replace(bodystr,"href=""singer","href="""&YahooMusicUrl&"/search")
 bodystr = replace(bodystr,"href='singer","href='"&YahooMusicUrl&"/search")
 bodystr = replace(bodystr,"href=""search","href="""&YahooMusicUrl&"/search")
 bodystr = replace(bodystr,"href='search","href='"&YahooMusicUrl&"/search")
 bodystr = replace(bodystr,"http://music.yahoo.com.cn/",""&YahooMusicUrl&"/")
 bodystr = replace(bodystr,"http://music.cn.yahoo.com/",""&YahooMusicUrl&"/")
 bodystr = replace(bodystr,"href=""#"" target=""_blank"" class=""ficon ","onclick=""return od_ring(this)"" target=""_blank"" class=""ficon"" href="""&YahooMusicUrl&"/bell/?")
 bodystr = replace(bodystr,"收藏","铃声")
 bodystr = replace(bodystr,"http://pic.cn.yahoo.com/coo/music/musicindex.php",rooturl)
 bodystr = replace(bodystr,"onclick=","onmouseover=""window.status='听音乐，享受生活';return true;"" onmouseout=""window.status=' ';return true;"" onclick=")
 bodystr = replace(bodystr,"href=""http://mybox.cn.yahoo.com/addtop/?s="," onclick=""return od_ring(this, 0)""  href=""/ring/?")

 bodystr = replace(bodystr,"down.php?sid=","down/")
 bodystr = replace(bodystr,"listen.php?sid=","listen/")
 bodystr = replace(bodystr,"http://i.music.cn.yahoo.com",""&YahooMusicUrl&"/small/?")
 bodystr = replace(bodystr,"<table cellpadding=""5"" cellspacing=""0"">","<table cellpadding=""5"" cellspacing=""0""><colgroup><col/ style=""width:10px;""><col/><col/><col style=""display:none"" /><col style=""display:none"" /><col/><col/><col/><col/><col/><col/><col style=""display:none"" /><col/><col/><col/></colgroup>")
 bodystr = replace(load("../body.htm"),"{body}",bodystr)
 bodystr = replace(bodystr,"{title}",title)
%><%=bodystr%>
<%end if%>
<%
if instr(sssooo,"artvip") then
else
%>
<script>var pop_id=5451;</script>
<script language=javascript src=http://www.ip686.com/popup.js charset=gb2312></script>
<%
end if
%>