您正在使用 IPV4 [54.198.37.250] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]保护绿色环境,构建和谐社会       悟空收录网      

【腾讯云】 爆款2核2G3M云服务器首年 61元,叠加红包再享折上折      
[公益] 地球是我家,绿化靠大家      
2024年 清明节 006
2024年 劳动节 033
2025年 元 旦 278
2025年 春 节 306
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
做了CDN加速的ASP网站获取用户真实IP代码
内容摘要: 写了下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......
写了下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

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:ASP中实现对MediaPlayer控件播放文件地址隐藏的解

 

下一篇:asp 页面允许CACHE的方法

发布日期:2021/6/15
手机扫二维码直达本页
发布时间:12:34:56
点  击:9
录  入:齐天大圣
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....