index.asp

YAHOO!CN音乐小偷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)
 bodytmpa = Split(bodystrl,"<div class=""res"">")
 bodystr = bodytmpa(1)
 bodytmpb = Split(bodystr,"<em class=""notice"">")
 bodystr = bodytmpb(0)
 foot = strCut(bodystrl,"<div class=""page"">","</div>",2)
 bodystr = bodystr&foot
 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,"收藏","铃声")
 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(load("../body.htm"),"{body}",bodystr)
 bodystr = replace(bodystr,"{title}",title)
%><%=bodystr%>
<%end if%>