加入收藏 | 设为首页 | 会员中心 | 我要投稿 聊城站长网 (https://www.0635zz.com/)- 智能语音交互、行业智能、AI应用、云计算、5G!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

如何在 ASP 网站上使用 CDN 来获取真实的IP地址?

发布时间:2023-07-27 14:10:46 所属栏目:Asp教程 来源:
导读:写了下asp取真实IP的代码,搭环境测试无代理、一级或多级代理的情况,可以正常获取

function checkip(checkstring)'用正则判断IP是否合法

dim re1

set re1=new RegExp

re1.pattern="^[0-9]{1,3}
写了下asp取真实IP的代码,搭环境测试无代理、一级或多级代理的情况,可以正常获取
 
function checkip(checkstring)'用正则判断IP是否合法
 
dim re1
 
set re1=new RegExp
 
re1.pattern="^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$"
 
re1.global=false
 
re1.Ignorecase=false
 
checkip=re1.test(checkstring)
 
set re1=nothing
 
end function
 
 
function get_cli_ip()'取真实IP函数,先 HTTP_CLIENT_IP 再 HTTP_X_FORWARDED_FOR 再 REMOTE_ADDR
 
dim client_ip
 
if checkip(Request.ServerVariables("HTTP_CLIENT_IP"))=true then
 
get_cli_ip = checkip(Request.ServerVariables("HTTP_CLIENT_IP"))
 
else
 
MyArray = split(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")
 
if ubound(MyArray)>=0 then
 
client_ip = trim(MyArray(0))
 
if checkip(client_ip)=true then
 
get_cli_ip = client_ip
 
exit function
 
end if
 
end if
 
get_cli_ip = Request.ServerVariables("REMOTE_ADDR")
 
end if
 
end function
 
 

(编辑:聊城站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章