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

获取客户真实IP地址

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

'获取客户真实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

相关阅读
uni-app基础知识数组形式的数据绑定
延边金桥国际旅行社有限公司
支持IE与firefox(火狐)的css写省略号方法
主流web2.0网站的配色参考方案
uni-app设置像页面html或者body的全局背景色
丽江云杉旅行网
ASP常用内置函数(上)
css分页放大效果
更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
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还有其它的吗
更多>>随机抽取信息
来自网易空间排行宽度可以变化的选项卡
asp通过多次获得来取得用户的真实IP
在线支付
CSS编写过程中常见的10个错误以及解决方法
一个可以说是超级变态,超级强的DIV+CSS应用
ASP读取json并输出