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

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