用ASP获取客户端IP地址的方法-ASP教程-网络编程--廉富
作者:知网科技 日期:2013/8/15 15:01:26 人气:
标签:
WebjxCom提示: 要想透过代理服务器取得客户端的真实IP地址,就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读?2还??⒁獾氖拢?⒉皇敲扛龃?矸?衿鞫寄苡?Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取客户端的真实 IP |
......
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
......
即:如果客户端通过代理服务器,则取 HTTP_X_FORWARDED_FOR 的值,如果没通过代理服务器,就取 REMOTE_ADDR 的值。
'通用函数:如果不能取客户端真实IP,就会取客户端的代理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
上一篇: 恐吓营销,你知道这种营销手段吗?-廉富顺
(())
顶一下您可能感兴趣的文章
参与讨论
最新评论
联系我们
软件开发: 15838307519(司经理)
网络营销: 13676968269(王经理)
网络建设: 13073737771(郭经理)
24小时服务电话: 0371-56683330
热门文章
猜你喜欢
网络营销分销商城小程序全网营销微商城分销平台信息发布区多商户商城系统网站诊断微商城分销系统开发网络整合营销微分销商城系统分销系统多用户商城系统建设大型网站营销软件分销系统商城app开发高端网站建设哪家好郑州网络营销微商的分销系统郑州网站建设电子商务网站托管微商城分销系统微信开发郑州网站建设公司微分销管理系统网络营销的主要方式网站权重微分销商城开发网站优化微商城开发企业网络营销方案微商分销系统新媒体网络营销SEO优化分销系统开发共享股东系统微信小程序郑州网络营销公司软件开发公司微信小程序拼团系统网络拓展客户分销商成郑州网络推广公司网络推广入门软件开发的公司直销商城双轨直销系统新零售模式郑州网络公司