'获取客户真实IP地址
'===================================================================
'获取客户真实IP地址,如果不能取客户端真实IP，就会取客户端的代理IP
'===================================================================
Function getIP()
    Dim strIPAddr
    If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" or InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
        strIPAddr = Request.ServerVariables("REMOTE_ADDR")
       
    ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",") > 0 Then
        strIPAddr = 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
        strIPAddr = Mid(Request.ServerVariables("HTTP_XpFORWARDED_FOR"),1,InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),";")-1)
    Else
        strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    End If  
    getIP = Trim(Mid(strIPAddr,1,30))
End Function