oStream.Position = 2
ByteToStr = oStream.ReadText
oStream.Close
Set oStream = Nothing
End Function
Private Function GetClientIPAddr
If IsNothing(GetServerVar("HTTP_X_FORWARDED_FOR")) Then
GetClientIPAddr = GetServerVar("REMOTE_ADDR")
Else
GetClientIPAddr = GetServerVar("HTTP_X_FORWARDED_FOR")
End If
End Function
Private Function GetServerVar(byVal sText)
GetServerVar = Request.ServerVariables(sText)
End Function
Private Function IPToNum(byVal sIp)
Dim sIp_1, sIp_2, sIp_3, sIp_4
If IsNumeric(Left(sIp, 2)) Then
sIp_1 = Left(sIp, InStr(sIp, ".") - 1)
sIp = Mid(sIp, InStr(sIp, ".") + 1)
sIp_2 = Left(sIp, InStr(sIp, ".") - 1)
sIp = Mid(sIp, InStr(sIp, ".") + 1)
sIp_3 = Left(sIp, InStr(sIp, ".") - 1)
sIp_4 = Mid(sIp, InStr(sIp, ".") + 1)
End If
IPToNum = CInt(sIp_1) * 256 * 256 * 256 + CInt(sIp_2) * 256 * 256 + CInt(sIp_3) * 256 + CInt(sIp_4) - 1
End Function
REM CLASS-TERMINATE
Private Sub Class_Terminate
Call DelProgress
Form.RemoveAll
Set Form = Nothing
End Sub
End Class
%>
