'***函数名  : GetIP
'***函数说明: 获取IP地址
'***参数    : Null
'***返回值  : 获取的公网IP地址
Public Function GetIP()
    Dim sIPAddr
    sIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    If sIPAddr = "" OR InStr(LCase(sIPAddr), "unknown") > 0 Then
        sIPAddr = Request.ServerVariables("REMOTE_ADDR")
    ElseIf InStr(sIPAddr, ",") > 0 Then
        sIPAddr = Mid(sIPAddr, 1, InStr(sIPAddr, ",")-1)
    ElseIf InStr(sIPAddr, ";") > 0 Then
        sIPAddr = Mid(sIPAddr, 1, InStr(sIPAddr, ";")-1)
    Else
        sIPAddr = sIPAddr
    End If
    GetIP = Trim(Mid(sIPAddr, 1, 30))
End Function