asp 取得用戶真實IP，對代理地址仍然有效的函數

<%

'******************************

'函數：GetUserTrueIP()

'參數：無

'作者：阿里西西

'日期：2007/7/13

'描述：取得用戶真實IP，對代理地址仍然有效；返回值：文本類型的IP地址

'示例：<%=GetUserTrueIP()%>

'******************************

FunctionGetUserTrueIP()

dimstrIPAddr

IfRequest.ServerVariables("HTTP_X_FORWARDED_FOR")=""ORInStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),"unknown")>0Then

strIPAddr=Request.ServerVariables("REMOTE_ADDR")

ElseIfInStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")>0Then

strIPAddr=Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),1,InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")-1)

ElseIfInStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),";")>0Then

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")

EndIf

GetUserTrueIP=Trim(Mid(strIPAddr,1,30))

EndFunction

%>