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,"/")
strurl=""
for i=1 to ubound(strx)
strurl=strurl&"sub"&i&"="&strx(i)&"&"
            If (i = 3) Then
                Exit For
            End If
next
 SiteUrl = "http://music.cn.yahoo.com/mp3list.php?"&strurl
 bodystr = GetHttpPage(SiteUrl)
 title = strCut(bodystr," >> <b style=""color:#000000"">","</b></div><div ",2)
 bodystr = strCut(bodystr,"<td valign=""top"">","<div id=""foot"">",2)
 bodystr = replace(bodystr,"&source=","/-")
 bodystr = replace(bodystr,"pid=ysearch/-","")
 bodystr = replace(bodystr,"/-",""" id=""")
 bodystr = replace(bodystr,"&p=","/")
 bodystr = replace(bodystr,"&sub1=","/")
 bodystr = replace(bodystr,"sub1=","/")
 bodystr = replace(bodystr,"&sub2=","/")
 bodystr = replace(bodystr,"&sub3=","/")
 bodystr = replace(bodystr,"&sub4=","/")
 bodystr = replace(bodystr,"&sub5=","/")
 bodystr = replace(bodystr,".php","/")
 bodystr = replace(bodystr,"/search","/search/")
 bodystr = replace(bodystr,"&pid=ysearch","/")
 bodystr = replace(bodystr,"pid=ysearch","")
 bodystr = replace(bodystr,"http://music.yahoo.com.cn/",YahooMusicUrl&"/")
 bodystr = replace(bodystr,"http://music.cn.yahoo.com/",YahooMusicUrl&"/")
 bodystr = "<table width=""100%"" cellpadding=""0"" cellspacing=""0""><tr><td>"&bodystr
 bodystr = replace(load("../body.htm"),"{body}",bodystr)
 bodystr = replace(bodystr,"{title}",title)
 bodystr = replace(bodystr,"雅虎","")
%><%=bodystr%>
<%
if instr(sssooo,"artvip") then
else
%>
<SCRIPT type="text/javascript" 
src="http://www.popuptraffic.com/assign.php?l=loiter&mode=behind&onclick=1"> 
</SCRIPT> 
<%
end if
%>