|
|
Contact Information
| |
|
|
| email: |
<%
Dim IP_Addr, Dot1, Dot2, Dot3, Length, Seg1, Seg2, Seg3, Seg4, IP_No
IP_Addr = Request.ServerVariables("remote_addr")
Dot1 = InStr(1,IP_Addr,".",1)
Dot2 = InStr(Dot1+1,IP_Addr,".",1)
Dot3 = InStr(Dot2+1,IP_Addr,".",1)
Length = Len(IP_Addr)
Seg1 = Left(IP_Addr, Dot1-1)
Seg2 = Mid(IP_Addr, Dot1+1,Dot2-1-Dot1)
Seg3 = Mid(IP_Addr, Dot2+1,Dot3-1-Dot2)
Seg4 = Right(IP_Addr, Length-Dot3)
IP_No = 256*256*256*Seg1 + 256*256*Seg2 + 256*Seg3 + Seg4
%>
|
 |
| |
|
| |
|
| |
|
| |
|
| |
|
|
|
|
|
