Byzkxp2/15/2006http://zkxp.cnblogs.com
'受屏蔽IP地址(段)集合，星號為通配符，通常保存於配置文件中。
<%
ConstBadIPGroup="220.200.59.136|220.205.168.141"
IfIsForbidIP(BadIPGroup)=TrueThen
Response.Write(GetUserIP&"IP地址禁止訪問")
Response.End()
EndIf
'****************************************************************
'參數vBadIP：要屏蔽的IP段,IP地址集合，用|符號分隔多個IP地址(段)
'返回Bool：True用戶IP在被屏蔽範圍，False反之
'****************************************************************
FunctionIsForbidIP(vBadIP)
Dimcounter,arrIPPart,arrBadIP,arrBadIPPart,i,j
arrBadIP=Split(vBadIP,"|")
arrIPPart=Split(GetUserIP(),".")
Fori=0ToUBound(arrBadIP)
counter=0
arrBadIPPart=Split(arrBadIP(i),".")
Forj=0ToUBound(arrIPPart)
If(arrBadIPPart(j))="*"orCstr(arrIPPart(j))=Cstr(arrBadIPPart(j))Then
counter=counter+1
EndIf
Next
Ifcounter=4Then
IsForbidIP=True
ExitFunction
EndIf
Next
IsForbidIP=False
EndFunction
'***************
'返回客戶IP地址
'***************
FunctionGetUserIP()
DimIP
IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
IfIP=""ThenIP=Request.ServerVariables("REMOTE_ADDR")
GetUserIP=IP
EndFunction
%>