IP 필터링 클래스별

최근들어 ASP를 다시 만지고 있습니다

특정 페이지 IP필터링을 구현을 해보았는대요 막코딩입니다..

일단 아이피대역으로 처리를 할려고 했는대 너무 많아서 클래스별로 처리를 하는게 좋을듯해서

C클래스별로 비교를 하게 처리 했습니다

더 좋은 방법 있음 알려주세요 ^^

' Update History

' Author : Yoon In Hwan ( Duraboys.net )

Dim User, AGENTIP, FILEpath, FILEbuffer

AGENTIP = "127.0.0.1 / localhost" & " | " &_

"121.000.000 / Duraboys.net" & " | " &_

"61.00.000 / L2J.co.kr"

Dim SplitAGENTIP, i, spTmp, spTrue, REMOTE_IP

SplitAGENTIP = Split(AGENTIP, "|")

REMOTE_IP = trim(Request.ServerVariables("REMOTE_ADDR"))

REMOTE_IP_arr = Split(REMOTE_IP,".")

REMOTE_IP_allow = REMOTE_IP_arr(0)&"."&REMOTE_IP_arr(1)&"."&REMOTE_IP_arr(2)

i = 0

spTrue = 0

For i=0 To UBound(SplitAGENTIP) Step 1

spTmp = Split(SplitAGENTIP(i), "/")

if trim(spTmp(0)) = REMOTE_IP_allow then

spTrue = 1

Exit For

end if

Next

if spTrue = 0 then

Response.write "<script language='javascript'>"

response.write "location.replace('/');"

response.write "</script>"

response.End

' Response.Write ("접근불가능")

end if