asp自定义函数:获取客户端的ip地址
' getIP
' 获取客户端 IP
' 返回值：字符串 (xxx.xxx.xxx.xxx 形式的 IP 字符串)
'----------------------------------------------------------------'
Function getIP()
Dim strIP
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Or InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIP = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIP = 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
strIP = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") - 1)
Else
strIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
getIP = Trim(Mid(strIP, 1, 30))
End Function from:asp学习网/title:asp自定义函数:获取客户端的ip地址/ time:2006-5-18 23:53:45
本文主题asp自定义函数:获取客户端的ip地址
