index.asp

来自「ASP音乐程序」· ASP 代码 · 共 39 行

ASP
39 行
字号 
<%@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%>

index.asp - 源码说明

本页面展示了「ASP音乐程序」中的 index.asp 源码文件，采用 ASP 编程语言编写，共 39 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?