- <%
- '******************************
- '函数: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 取得用户真实IP,对代理地址仍然有效的函数
2019-10-12 10:43阿里西西 ASP教程
asp 取得用户真实IP,对代理地址仍然有效的函数
延伸 · 阅读
- 2019-10-12asp 实现显示所有的服务器变量值的函数
- 2019-10-12asp 实现视频显示的效果函数
- 2019-10-12asp 通用数据库连接过程函数
- 2019-10-12asp实现图片右键滑轮控制大小的函数
- 2019-10-12asp 字符串截取函数
- 2019-10-12asp下实现格式化文件大小以MB显示的函数
精彩推荐
- ASP教程
asp中rs.BookMark的使用介绍
这篇文章主要介绍了asp中rs.BookMark的使用方法,需要的朋友可以参考下...
- ASP教程
ASP:ActiveX不能创建Scripting.FileSystemObject对象解决办法
关于ActiveX不能创建Scripting.FileSystemObject对象的类似问题,大体上解决办法都是类似的,主要是思想要清晰:首先考虑组件注册问题,其次是组件权限问题,...
- ASP教程
几种另类的ASP后门
几种另类的ASP后门...
- ASP教程
asp导出excel文件最简单方便的方法
这篇文章主要介绍了asp导出excel文件最简单方便的方法,几行代码就可以搞定,非常简单实用,需要的朋友可以参考下...
- ASP教程
ASP提速五大技巧
这篇文章主要介绍了ASP提速五大技巧,感兴趣的小伙伴们可以参考一下...
- ASP教程
asp下实现记录集内随机取记录的代码
asp下实现记录集内随机取记录的代码 ...
- ASP教程
提高ASP效率的五大技巧
访问一个ASP集合来提取一个值是费时的、占用计算资源的过程。因为这个操作包含了一系列对相关集合的搜索,这比访问一个局部变量要慢得多。 ...
- ASP教程
asp中利用xmlhttp抓取网页内容的代码
抓取网页。偶要实现实实更新天气预报。利用了XMLHTTP组件,抓取网页的指定部分,其实很多的小偷程序要更好用...