📄 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")
strl = replace(strl,"/?",".html?")
SiteUrl = "http://music.cn.yahoo.com/"&strl
bodystr = GetHttpPage(SiteUrl)
title=strCut(bodystr,"<head>","</head>",1)
bodystr = strCut(bodystr,"<div class=""ball"">","<!--foot -->",1)
' bodystr = replace(bodystr,"","<a href=http://www.qrui.cn/blog/read.php/28.htm>意见反馈</a>")
bodystr = replace(bodystr,"&source=","/-")
bodystr = replace(bodystr,"pid=ysearch/-","")
bodystr = replace(bodystr,"pid=/-","")
bodystr = replace(bodystr,"/-",""" id=""")
bodystr = replace(bodystr,"&mimetype=all&p=","/")
bodystr = replace(bodystr,"&source=","/")
bodystr = replace(bodystr,"&p=","/")
bodystr = replace(bodystr,"p=","/")
bodystr = replace(bodystr,"&mimetype=","/")
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,"/.html","/")
bodystr = replace(bodystr,"singer.html","search/")
bodystr = replace(bodystr,"_card.html","")
bodystr = replace(bodystr,"雅虎","")
title = replace(title,"雅虎","")
bodystr = replace(bodystr,"iframe src=""special","iframe src=""?special")
bodystr = replace(bodystr,"src=""other","src=""?other")
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&"//theme",YahooMusicUrl&"/theme/?theme")
bodystr = replace(bodystr,YahooMusicUrl&"/music_special",YahooMusicUrl&"/special/?")
bodystr = replace(bodystr,YahooMusicUrl&"/rock20years",YahooMusicUrl&"/theme/?rock20years")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<%=title%><body>
<%=bodystr%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -