<%
Const IPGroup = "192.168.0.1|192.168.1.1"

If IsForbidIP(IPGroup) = false Then
    Response.Write(GetIP &"     系统禁止您的 IP 访问")
    Response.End()
End If

'****************************************************************
'以上代码设置为:如果不是192.168.0.1|192.168.1.1段的IP禁止访问
'参数vBadIP：要屏蔽的IP段,IP地址集合，用|符号分隔多个IP地址(段)
'返回Bool：True用户IP在被屏蔽范围，False则为允许.
'使用的方法为include文件就可以使用...
'****************************************************************
Function IsForbidIP(vBadIP)
    Dim counter, arrIPPart, arrBadIP, arrBadIPPart, i, j
  
   arrBadIP = Split(vBadIP, "|")  
   arrIPPart = Split(GetIP(), ".")
  
    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 GetIP()
    Dim IP
    IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
   If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR")
   GetIP = IP
End Function
%>