<%
'******************************
' Function: Userip ()
' Parameters: None
' Author: Arisisi
' Date: 2007/7/12
' Description: Get client IP Address
' Example: <%=userip ()%>
'******************************
Function Userip ()
Dim Getclientip
' If the client uses a proxy server, you should use the ServerVariables (' Http_x_forwarded_for ') method
Getclientip = Request.ServerVariables ("Http_x_forwarded_for")
If Getclientip = "" or IsNull (Getclientip) or IsEmpty (Getclientip) Then
' If the client does not use an agent, you should use the Request.ServerVariables (' remote_addr ') method
Getclientip = Request.ServerVariables ("REMOTE_ADDR")
End If
Userip = Getclientip
End Function
%>
Converting IP address functions
Copy Code code as follows:
<%
' ******************************
Function: CIP (SIP)
' parameter: sip,i P Address
' Author: Arisisi
' Date: 2007/7/12
Description: Convert IP address function
' Example: <%=cip ("219.16.73.120")%>
' ***************
Function cip (SIP)
Tip=cstr (SIP)
Sip1=left (Tip,cint (InStr (Tip, ".") -1)
Tip=mid (Tip,cint (InStr (Tip, ".") +1)
Sip2=left (Tip,cint) (InStr (Tip, ".") -1)
Tip=mid (Tip,cint (InStr (Tip, ".") +1)
Sip3=left (Tip,cint) (InStr (Tip, ".") -1)
Sip4=mid (Tip,cint (InStr (Tip, ".") +1)
Cip=cint (SIP1) *256*256*256+cint (SIP2) *256*256+cint (SIP3) *256+cint (SIP4)
End function
%> br>