一般取 IP 用 Request.ServerVariables("REMOTE_ADDR"),但若用戶經代理伺服器,得到的是代理 IP。真實 IP 通常在 HTTP_X_FORWARDED_FOR 標頭。
Function GetIp()
Dim realip, proxy
realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
proxy = Request.ServerVariables("REMOTE_ADDR")
If realip = "" Then
GetIp = proxy
Else
GetIp = realip
End If
End Function
呼叫 GetIp() 即可取得穿透代理後的真實 IP(若無代理則回傳 REMOTE_ADDR)。