'***　函数名: 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