- ‘受屏蔽IP地址(段)集合,星号为通配符,通常保存于配置文件中。
- <%
- Const BadIPGroup = "220.200.59.136|220.205.168.141"
- If IsForbidIP(BadIPGroup) = True Then
- Response.Write(GetUserIP &"IP地址禁止访问")
- Response.End()
- End If
- '****************************************************************
- '参数vBadIP:要屏蔽的IP段,IP地址集合,用|符号分隔多个IP地址(段)
- '返回Bool:True用户IP在被屏蔽范围,False 反之
- '****************************************************************
- Function IsForbidIP(vBadIP)
- Dim counter, arrIPPart, arrBadIP, arrBadIPPart, i, j
- arrBadIP = Split(vBadIP, "|")
- arrIPPart = Split(GetUserIP(), ".")
- For i = 0 To UBound(arrBadIP)
- counter = 0
- arrBadIPPart = Split(arrBadIP(i), ".")
- For j = 0 To UBound(arrIPPart)
- If (arrBadIPPart(j)) = "*" or Cstr(arrIPPart(j)) = Cstr(arrBadIPPart(j)) Then
- counter = counter + 1
- End If
- Next
- If counter = 4 Then
- IsForbidIP = True
- Exit Function
- End If
- Next
- IsForbidIP = False
- End Function
- '***************
- '返回客户IP地址
- '***************
- Function GetUserIP()
- Dim IP
- IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
- If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR")
- GetUserIP = IP
- End Function
- %>
推荐的用Asp实现屏蔽IP地址访问的代码
2019-10-11 10:38asp代码网 ASP教程
推荐的用Asp实现屏蔽IP地址访问的代码
延伸 · 阅读
- 2019-10-11asp动态include文件,方便多模板的实现
- 2019-10-11XDOWNPAGE ASP版本 分页类
- 2019-10-11ASP下Cookie操作的详细讲解
- 2019-10-11再发几个ASP不错的函数
- 2019-10-11ip138之asp小偷程序代码
- 2019-10-10ASP页面随机添加字符实现防复制的代码
精彩推荐
- ASP教程
Asp Oracle存储过程返回结果集的代码
对于 Oracle 这个庞然大物,Asp使用起来,确实是捉襟见肘的 。 尤其是要返回结果集(Recordset)的情况,更是让很多人犯难。 ...
- ASP教程
XMLHttp ASP远程获取网页内容代码
asp下利用xmlhttp获取网页内容的方法这个方法一般比较通用的,然后通过字符截取网页的内容。 ...
- ASP教程
ASP,vbs正则轮翻在文章段落后加上网址等内容
ASP,vbs正则轮翻在文章段落后加上网址,网站名称,网站介绍等内容 ...
- ASP教程
ASP 调用带参数输出的COM接口
asp com接口的调用代码。 需要的朋友可以参考下。...
- ASP教程
asp数字或者字符排序函数代码
asp排序没有系统函数直接支持,而我们经常需要使用的数字排序和字符排序、按拼音排序都离不开排序。...
- ASP教程
飞云防CC攻击ASP程序代码插件
飞云防CC攻击ASP程序代码插件...
- ASP教程
asp实现新评论自动发短信提示的代码
前几天看到有几个wordpress都有有新评论自动发短信提示的功能,我觉得不错,对于不经常在线的管理员特别有帮助,如果有人发非法信息一下子就知道了,...
- ASP教程
asp中文件与文件夹常用处理函数(文件后缀、创建文件等)
asp中尤其是需要生产静态的cms系统中,经常需要对一些文件进行判断与创建,删除的操作,这里整理了一些,基本上满足了基本需要。...