繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下比较全面的获取IP地址的代码
- ASP
- 使用ASP中的VB ActiveX.dll文件
- 用ADO的COMMAND对象实现对WEB数据库动态数据查询的方法
- 在ASP中使用简单Java类
- 借助组件使用asp连接informix全方案
- 用ADSI编程实现IIS中建立虚拟目录
- 不刷新页面筛选数据库中的数据
- 使用ISAPI过滤器增强IIS的功能
- 利用J2ME与ASP建立数据库连接
- 用通ASP直接获取用户真实IP地址
- 用ASP编写计数器的优化方法
- 通过ASP远程注册自己的组件
- 检测IP地址是否真正合法的函数
- 用asp做access的远程接口
- 错误80004005信息处理方法
- ASP学习:urldecode 方法补遗
- 在HTML页面中实现点击数统计
- ASP字数计算函数
- 用ASP随机生成文件名的函数
- 单页面判断浏览器是否接受 Cookies
- 存储过程介绍及asp+存储过程的使用
ASP 中的 asp下比较全面的获取IP地址的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 58 ::
收藏到网摘: n/a
最简单的用以下语句:
ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
但这种方法对代理服务器上网的就不准了,故比较全面的是用下面的方法:
复制代码 代码如下:
<%Private Function getIP()
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
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function
ip=getIP()
response.write(ip)
%>
评论 (0) All
