|
获取用户真实IP地址代码
Public Function GetIp(getType)
If getType = then
GetIp = RequestServerVariables("HTTP_X_FORWARDED_FOR")
if GetIp = "" Then getIp = RequestServerVariables("REMOTE_ADDR")
ElseIf getType = Then
GetIp = RequestServerVariables("LOCAL_ADDR")
Else
GetIp = "<span style=""color:#FF"">未知</span>"
End if
If GetIp = "::" Then GetIp = ""
End Function 使用方法
dim i
i=
GetIp() |
