musicurl.asp

来自「打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以」· ASP 代码 · 共 23 行

var searchString=location.search
var str;
str = "music.asp"+searchString+"&name=shotan";
<% 
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
dim UserAgent
UserAgent=Trim(lcase(Request.Servervariables("HTTP_USER_AGENT")))
If Instr(UserAgent,"teleport")>0 or Instr(UserAgent,"netant")>0 or Instr(UserAgent,"flashget")>0 or Instr(UserAgent,"webzip")>0 or Instr(UserAgent,"offline")>0 or Instr(UserAgent,"googlebot")>0 or Instr(UserAgent,"frontpage")>0 Then
'Errmsg=Errmsg+"<br>"+"<li>非法操作，请不要使用Teleport、WebZip等软件下载本站资源。</li>"
response.redirect "index.asp"
response.end
end if
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.redirect "index.asp"
response.end
end if
%>