<%

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

%>

下一篇：ASP URL反编码函数代码