📄 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_pic/index.html?"&strl
bodystr = GetHttpPage(SiteUrl)
outstr = strCut(bodystr,"<body>","<li><a href=""http://music.cn.yahoo.com"">",2)
bodystr=replace(bodystr,outstr,"<div id=ynv><div id=head-wrapper class=hw-t1><br><ul id=head-nav-bd>")
outstr = strCut(bodystr,"<div class=""law"">"," width=""1"" height=""1"">",2)
bodystr=replace(bodystr,outstr,"")
bodystr = replace(bodystr,"pid=ysearch/-","")
bodystr = replace(bodystr,"index.html","")
bodystr = replace(bodystr,"/-",""" id=""")
bodystr = replace(bodystr,"&p=","/")
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(bodystr,"ysmt_lrih0_r","")
bodystr = replace(bodystr,"{title}",title)
bodystr = replace(bodystr,"雅虎","")
%><%=bodystr%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -