<%
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+" "+"
非法浏览操作，请不要使用Teleport、WebZip这类软件下载本站。
"
response.redirect "error.htm"
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 "error.htm"
'response.end
'end if
%>
21 Degrees Pub
