全国服务热线:400-6866-786
(电话:0791-6336981)
搜 索
首 页 | 软件介绍 | 解决方案 | 视频演示 | 在线体验 | 询价专区 | 咨询论坛 | 下载中心

|

渠道合作 | 关于惠众
采购热线:400-6866-786 0791-6336981
快速了解
惠众OA优势
技术框架
售后服务及其它
 oa点击排行

ASP限制IP访问的小代码
                                        发布时间:2006-10-20 23:11:35 点击:

ip_start="61.143.129.0"
ip_end        ="61.143.133.255"
ip_start_arr        =split(ip_start,".")
ip_end_arr        =split(ip_end,".")
ip_start_str=""
ip_end_str=""
ip_user_str=""
for i=0 to 3
        ip_start_str=ip_start_str&right(Cstr(formatnumber(Cint(ip_start_arr(i))/1000,3)),3)
        ip_end_str=ip_end_str&right(Cstr(formatnumber(Cint(ip_end_arr(i))/1000,3)),3)
next
'测试客户端是否用代理
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
ip_user_arr        =split(userip,".")
for i=0 to 3
        ip_user_str=ip_user_str&right(Cstr(formatnumber(Cint(ip_user_arr(i))/1000,3)),3)
next
if CDbl(ip_user_str)>CDbl(ip_end_str) or CDbl(ip_user_str)<CDbl(ip_start_str) then
        response.write "超出访问范围"
end if

     
返回顶部

  OA关键词:ASP限制IP访问的小代码,asp源码下载,asp网站源码,asp整站源码 OA办公软件 办公自动化 无纸化办公 协同办公系统

  OA信息:[1][2][3][4][5][6][7][8][9][10][11][12][13][14][15][16][17][18][19][20][21][22][23]更多>>(后续页1 后续页2 后续页3)
oa系统精选
oa知识相关
联系我们 |惠众地图 |友情连接 电话:400-6866-786 0791-6336981
赣ICP备00565595 版权所有2004-2008 南昌惠众软件有限公司