[ÇóÖú]ÈçºÎ»ñµÃ¿Í»§¶ËµÄIP

Í£íµÐÄÀá

Çë¸ßÊÖÖ¸µã£¬ÎÒÈçºÎ²ÅÄÜ»ñµÃ¿Í»§¶ËµÄIPÄØ£¬Ð»ÁË

¿×¡

ÄãÕâÑùµÄ±íÏÖ£¬¾ÍÖ»ÅäÕ⼸¸ö×Ö£ºÌ«ÓвÅÁË!

ö•©mÔ’

<%
Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
actforip=Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
actforip=Request.ServerVariables("REMOTE_ADDR")
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
actforip=Request.ServerVariables("REMOTE_ADDR")
End If
'getIP = CheckStr(Trim(Mid(strIPAddr, 1, 30)))
getip=strIPAddr
End Function
%>