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

저작자 표시 비영리 동일 조건 변경 허락
신고