订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

获取客户真实IP地址

深山行者个人网站 2008/9/19 19:38:27 深山行者 字体: 浏览 4634

'获取客户真实IP地址
'===================================================================
'获取客户真实IP地址,如果不能取客户端真实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_XpFORWARDED_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

相关阅读
详解VBScript里的对象 正则表达式功能介绍
一些平时用到HTML的过滤
'禁止站外提交页面和数据
div+css中absolute标签与relative标签的巧妙运用
右击把当前页面添加到当地收藏夹
网站首页head区代码规范
网站需要SEO,基本的SEO建站要点
ASP.NET中文乱码问题的解决。
更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT
Android移动端自动化测试:使用UIAutomatorViewer与Selenium定位元素
抖音直播音挂载小雪花 懂车帝小程序
javascript获取浏览器指纹可以用来做投票
火狐Mozilla Firefox出现:无法载入您的Firefox配置文件 它可能已经丢失 或是无法访问 问题解决集合处理办法
在Android、iOS、Windows、MacOS中微信小程序的文件存放路径
python通过代码修改pip下载源让下载库飞起
python里面requests.post返回的res.text还有其它的吗
更多>>随机抽取信息
div中设置文字垂直居中
专注于自由行的旅游服务商建站解决方案
网站策划:网站栏目和页面的策划
网站建设:ASP网站防范黑客技巧
正则的常表达式
默认系统