做了CDN加速的ASP网站获取用户真实IP程序
更新时间:2010年11月03日 11:40:31 作者:
写了下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
相关文章
UTF-8 Unicode Ansi 汉字GB2321几种编码转换程序
UTF-8 Unicode Ansi 汉字GB2321几种编码转换程序...2007-02-02用asp实现把文件打包成Xml文件包,带解包的ASP工具附下载
用asp实现把文件打包成Xml文件包,带解包的ASP工具附下载...2007-06-06asp中回车换行符CHR(10)表示换行,CHR(13)表示回车,CHR(32)表示空格
这篇文章主要介绍了asp中回车换行符CHR(10)表示换行,CHR(13)表示回车,CHR(32)表示空格,需要的朋友可以参考下2006-08-08asp飞飞无限级分类v1.0 Asp+sql+存储过程+ajax提供下载
飞飞Asp乐园Asp Sql存储过程版无限级分类 开发说明: 本程序基于Asp环境开发 使用的数据库:SQLServer2000(存储过程) js框架:Jquery/ajax 数据库名称:archives2008-03-03分享一段代码show.asp?id=26变成show/?26的形式
这篇文章主要介绍了分享一段代码show.asp?id=26变成show/?26的形式,需要的朋友可以参考下2006-11-11
最新评论