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'****************************************************** 반대로'******************************************기능 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 기능'****************'클 라 이언 트 IP 주소 반환'**********기능 GetUserIP() Dim IP IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR") GetUserIP = IP End Function %>
