byzkxp2/15/2006http : //zkxp.cnblogs.com
'차단 된 IP 주소 (세그먼트) 컬렉션, 별표는 와일드 카드이며 일반적으로 구성 파일에 저장됩니다.
<%
constbadipgroup = "220.200.59.136 | 220.205.168.141"
ifisforbidip (badipgroup) = truethen
response.write (getUserip & "IP 주소 금지 액세스")
응답 ()
endif
'*************************************************************************************************************************** 누군가
'매개 변수 vbadip : 차단할 IP 세그먼트, IP 주소 수집, 별도의 여러 IP 주소 (세그먼트) | 기호
'bool로 돌아 가기 : 실제 사용자 IP는 차단 범위에 있고, 거짓은 반대입니다.
'*************************************************************************************************************************** 누군가
functionisforbidip (vbadip)
Dimcounter, Arrippart, Arrbadip, Arrbadippart, I, J.
arrbadip = split (vbadip, "|")
arrippart = split (getUserip (), ".")
fori = 0toubound (Arrbadip)
카운터 = 0
Arrbadippart = split (Arrbadip (i), ".")
forj = 0toubound (Arrippart)
if (arrbadippart (j)) = "*"orcstr (arrippart (j)) = cstr (arrbadippart (j))
카운터 = 카운터+1
endif
다음
ifcounter = 4then
isforbidip = true
종료 기능
endif
다음
isforbidip = false
최종 기능 장애
'***************
'클라이언트 IP 주소로 돌아갑니다
'***************
functiongetUserip ()
디 립
ip = request.servervariables ( "http_x_forwarded_for")
ifip = ""theip = request.servervariables ( "remote_addr")
getuserip = ip
최종 기능 장애
%>