| "SILAIFU " Machine tools and electrical products professional trading and services company |
|
|
|||||||
|
|
|||||||||||||||||||||||||||||||||||
 |
|
|
<%
Function getIP()
Dim strIPAddr
ProxyIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ProxyIP="" OR InStr(ProxyIP,"unknown") >0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(ProxyIP, ",") >0 Then
strIPAddr = Mid(ProxyIP, 1, InStr(ProxyIP, ",")-1)
ElseIf InStr(ProxyIP, ";") >0 Then
strIPAddr = Mid(ProxyIP, 1, InStr(ProxyIP, ";")-1)
Else
strIPAddr =ProxyIP
End If
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function
%>
Print page
Goto back
Top of page