ls.asp

来自「这是一个点歌系统」· ASP 代码 · 共 25 行

var searchString=location.search
var str;
str = "lss.asp"+searchString+"&name=aff";
<% 
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 "2267"
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 "2267"
response.end
end if
%>