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
