ASP获取客户端IP通用函数(HTTP_X_FORWARDED_FOR)

' 获取客户端IP
Private   Function  getClientIP()
     Dim  strIPAddr, XFOR, REMOTE_ADDR
    XFOR  =  Request.ServerVariables( " HTTP_X_FORWARDED_FOR " )
    REMOTE_ADDR  =  Request.ServerVariables( " REMOTE_ADDR " )
     If  XFOR  =   ""   OR   InStr (XFOR,  " unknown " )  >   0   Then  
        strIPAddr  =  REMOTE_ADDR
     ElseIf   InStr (XFOR,  " , " )  >   0   Then  
        strIPAddr  =   Mid (XFOR,  1 ,  InStr (XFOR,  " , " ) - 1 ) 
     ElseIf   InStr (XFOR,  " ; " )  >   0   Then  
        strIPAddr  =   Mid (XFOR,  1 ,  InStr (XFOR,  " ; " ) - 1 ) 
     Else  
        strIPAddr  =  XFOR
     End   If  
    getClientIP  =   Trim ( Mid (strIPAddr,  1 ,  30 ))
End Function