index.asp

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

<%@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/search_lyrictip.html?kid="&strl
 bodystr = GetHttpPage(SiteUrl)
 bodystr = replace(bodystr,"http://music.cn.yahoo.com/search.html?p=",YahooMusicUrl&"/search/?/")
 bodystr = replace(bodystr,"&mimetype=",""" name=""")
%>
<%=bodystr%>