asp 取得用戶真實IP，對代理地址仍然有效的函數(shù)

2024-05-04 10:57:55

字體：大中小

供稿：網(wǎng)友

<%
'******************************
'函數(shù)：GetUserTrueIP()
'參數(shù)：無
'作者：阿里西西
'日期：2007/7/13
'描述：取得用戶真實IP，對代理地址仍然有效；返回值：文本類型的IP地址
'示例：<%=GetUserTrueIP()%>
'******************************
Function GetUserTrueIP()
   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)
   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)
   Else
      strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
   End If
   GetUserTrueIP = Trim(Mid(strIPAddr, 1, 30))
End Function
%>

上一篇：ASP實現(xiàn)緩存類無錯版

下一篇：asp下實現(xiàn) 重新排序數(shù)字?jǐn)?shù)組的代碼