繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp 取得用户真实IP，对代理地址仍然有效的函数
- ASP
- 用ASP和WML来实现数据库查询
- ASP判断文件地址是否有效!
- 一个比较实用的asp函数集合类(1)
- 一个比较实用的asp函数集合类(2)
- ASP检索网站指定目录文件的算法与应用方向
- 用VB将ASP代码封装成DLL
- Asp:Cookies应用指南,详细代码及教程
- 如何在IIS上搭建WAP网站
- 最新的JMail（4.3版本）发送代码
- 在客户端执行数据库记录的分页显示
- 用ASP构建音乐服务器
- 短信发送程序
- 用ASP实现电子贺卡
- 用ASP实现聊天室中的在线答题游戏
- 利用ASP远程注册DLL的方法
- ASP编程技巧大全
- 验证码的程序及原理
- Asp深度揭密（上）
- Asp深度揭密（下）
- VBS、ASP代码语法加亮显示的类(1)
ASP 中的 asp 取得用户真实IP，对代理地址仍然有效的函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 264 ::
收藏到网摘: n/a
<%
'******************************
'函数：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
%>
评论 (0) All
