<%
Dim strIPAddr,strIPAddr2
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
strIPAddr2 = Request.ServerVariables("REMOTE_ADDR")
if strIPAddr = strIPAddr2 then
strIPAddr2="您的真实IP为: "+strIPAddr2
else
strIPAddr ="您的真实IP地址: "+strIPAddr
strIPAddr2="代理服务器IP为: "+strIPAddr2
Response.Write (strIPAddr & "")
end if
Response.Write strIPAddr2
%>