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

<% ‘****************************** ‘函数:GetUserTrueIP() ‘参数:无 ‘作者:阿里西西 ‘日期:2007/7/13 ‘描述:取得用户真实IP,对代理地址仍然有效;返回值:文本类型的IP地址 ‘示例:<%=GetUserTrueIP()%> ‘****************************** Function GetUserTrueIP() dim strIPAddr If Request.ServerVariables(“HTTP_X_FORWARDED_FOR”) = “” OR InSt