asp 取得用户真实IP，对代理地址仍然有效的函数

答案：<% 
'****************************** 
'函数：GetUserTrueIP() 
'参数：无 
'作者：阿里西西 
'日期：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 实现视频显示的效果函数
下一个：asp 实现显示所有的服务器变量值的函数