بستن چندین آی پی آدرس

[YPY-Design]

سلام

بستن چندین آی پی آدرس:
Block Multiple IP Address:
کاملترین و راحت ترین

<%
' Moteghayer haro tarif mikonim
Dim sIP
Dim sIParray(2)

' IP address haye baste shode ra be tartibe shomare moshakhas mikonim
sIParray(0) = "127.0.0.1"
sIParray(1) = "127.0.0.2"
sIParray(2) = "127.0.0.3"

' Baz yafte IP address
sIP = Request.ServerVariables("REMOTE_ADDR")

' IP address haye baste shode ra tavasote Tabe e bi payan micharkhanim
For i = 0 to UBound(sIParray)

' Residegi be nazire IP address baste shoode
If sIP = sIParray(i) Then

' Enteghale IP address haye baste shode be safheye morede nazar
Response.Redirect "access-denied.asp"
End If
Next
%> ​

 

[amirlol]

من قبلآ از این چنین کدی استفاده کردم ولی بعضی وقت ها سوتی میرفت و .....

 

[YPY-Design]

من قبلآ از این چنین کدی استفاده کردم ولی بعضی وقت ها سوتی میرفت و .....

بله امیر جان اون شاید ولی این نه براحتی...

Set ip = Request.Servervariables("REMOTE_HOST")
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("database.txt"), 1)
i = 0

do while Not f.AtEndOfStream
if ip = f.ReadLine then i =i+1
loop

f.Close

if i >= 3 then
response.Redirect("error.html")
else
Set f2=fs.OpenTextFile(Server.MapPath("database.txt"), 8)
f2.WriteLine(ip)
f2.Close
end if​