?? index.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")
SiteUrl = "http://music.cn.yahoo.com/music_special"&strl
bodystr = GetHttpPage(SiteUrl)
title = strCut(bodystr," >> <b style=""color:#000000"">","</b></td>",2)
bodystr = strCut(bodystr,"<div class=""listtab"">","<div id=bsr>",2)
bodystr = replace(bodystr,"&source=","/-")
bodystr = replace(bodystr,"pid=ysearch/-","")
bodystr = replace(bodystr,"/-",""" id=""")
bodystr = replace(bodystr,"&p=","/")
bodystr = replace(bodystr,"p=","/")
bodystr = replace(bodystr,"&source=","/")
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,"雅虎","")
bodystr = replace(bodystr,"/.html","/")
bodystr = replace(bodystr,"http://music.yahoo.com.cn/",YahooMusicUrl&"/")
bodystr = replace(bodystr,"http://music.cn.yahoo.com/",YahooMusicUrl&"/")
bodystr = replace(bodystr,YahooMusicUrl&"/theme",YahooMusicUrl&"/theme/?theme")
bodystr = replace(bodystr,YahooMusicUrl&"/music_special",YahooMusicUrl&"/special/?")
bodystr = "<div class=""listtab"">"&bodystr
bodystr = replace(load("../body.htm"),"{body}",bodystr)
bodystr = replace(bodystr,"{title}",title)
%><%=bodystr%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -