判断代理IP访问ASP页面代码

Dim FY_IP
FY_IP=LCase(Request.ServerVariables("ALL_HTTP"))
If Instr(FY_IP,"proxy")<>0 or Instr(FY_IP,"http_via")<>0 or Instr(FY_IP,"http_pragma")<>0 or Request.ServerVariables("HTTP_PROXY_CONNECTION") <> "" or Request.ServerVariables("HTTP_VIA") <> "" or Request.ServerVariables("HTTP_USER_AGENT_VIA") <> "" or Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" or Request.ServerVariables("HTTP_PROXY_CONNECTION") <> "" or Request.ServerVariables("HTTP_CACHE_CONTROL") <> "" or Request.ServerVariables("HTTP_CACHE_INFO") <> "" Then
Response.Write "代理"
Else
Response.Write "不是代理"
End If