取真实IP及IP段（不受一般代理影响）

 

     Protected   Function getip() Function getip() As String
        getip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
        If getip = "" Then getip = Request.ServerVariables("REMOTE_ADDR")
    End Function
     Protected   Function getpip() Function getpip() As String ''IP前三位IP段
        getpip = getip()
        Dim s(3) As String
        s = Split(getpip, ".")
        ReDim Preserve s(2)
        getpip = Join(s, ".")
    End Function