请选择 进入手机版 | 继续访问电脑版

饕餮源码网,商业源码,游戏源码下载,discuz插件,棋牌源码下载,精品源码论坛

 找回密码
 立即注册
查看: 106|回复: 4

[ASP编程] 推荐的用Asp实现屏蔽IP地址访问的代码

[复制链接]

7万

主题

8万

帖子

32万

积分

论坛元老

Rank: 8Rank: 8

积分
329525
发表于 2007-8-13 14:55:11 | 显示全部楼层 |阅读模式
By zkxp 2/15/2006 http://zkxp.cnblogs.com
‘受屏蔽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
%>
回复

使用道具 举报

12

主题

8821

帖子

431

积分

中级会员

Rank: 3Rank: 3

积分
431
发表于 2022-8-12 22:40:52 | 显示全部楼层
天天源码社区www.tiantianym.com
回复 支持 反对

使用道具 举报

2

主题

8602

帖子

69

积分

注册会员

Rank: 2

积分
69
发表于 2022-9-12 12:11:04 | 显示全部楼层
问问问企鹅哇哇哇哇哇
回复 支持 反对

使用道具 举报

7

主题

8822

帖子

398

积分

中级会员

Rank: 3Rank: 3

积分
398
发表于 2022-11-25 11:04:11 | 显示全部楼层
有什么好的服务器
回复 支持 反对

使用道具 举报

1

主题

8362

帖子

69

积分

注册会员

Rank: 2

积分
69
发表于 3 天前 | 显示全部楼层
。。。。。。。。。。。。。。。
回复 支持 反对

使用道具 举报

高级模式
B Color Image Link Quote Code Smilies

本版积分规则

手机版|小黑屋|网站地图|饕餮源码网 ( 海外版 )

GMT+8, 2022-12-4 13:27 , Processed in 0.222419 second(s), 26 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表