繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 利用asp获取客户端真实的IP地址
- ASP
- ASP制作迅雷看看电影人气指数
- Request.ServerVariables参数
- rs.open和conn.execute
- Rs.Open参数
- 什么是会话ID和如何使用会话ID
- Service Unavailable问题
- 一些关于购物车的想法
- 几种常见的保护数据库的方法
- 验证码不正确,该如何解决?
- ASP教程:过滤HTML代码并截取
- IIS7中HTTP 500错误
- 学习ASP基础教程
- ASP教程:ASP基础语法
- 学习ASP获取HTML表单提交信息的实例
- 301重定向全面认识
- 介绍一些常见的ASP平台的CMS
- 正则表达式简单学习
- ASP教程:server.transfer方法实例
- ASP实例教程代码实现禁止外部提交数据
- ASP简单入门教程(1):认识ASP
ASP 中的 利用asp获取客户端真实的IP地址
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 157 ::
收藏到网摘: n/a
客户端IP有两种情况，一个是代理服务器上网的，另一种是直接上网的，所以要获取客户端IP也需要分开来获取。
<%
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
%>
评论 (0) All
