Aspde saldırı yapan ıp'yi banlamak


<%

---------------------------- Veritabanı bağlantısı
set dbcnn = server.createobject("adodb.connection")
dbcnn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db.mdb")

----------------------------Veritabanı bağlantısı tamamlandı.
-----------------------------Tablo bağlantısı
set qab = server.createobject("adodb.recordset")
SQL = "Select * from attack"
qab.open SQL,dbcnn,1,3
----------------------------Tablo bağlantısı bitti
-----------------------------Döngü başlangıcı
’Eğer istersek from attack’tan sonra where ile ip sorgulayıp .eof la yine üyelik sistemlerindeki kontrol gibi ip yi bulup engelleyebiliriz fakat ben farklı yaptım (iki yolda olabilir)

do while not qab.eof ’ dongu başlangıcı

ip = Request.ServerVariables("REMOTE_ADDR") ’girmeyi deneyen ip yi "ip" değişkenine bağladık

-------------------------------- ve BLOCKK !!
if ip = qab("ip") then

response.write "Your ip blocked ... "%>

response.end ’ Bu kod sayesinde bunu eklediğiniz sayfanın gerisini okumayacak

end if

------------------------------ BLOCK SONU

gap.movenext
loop
------------------------------- Döngü Sonu
qab.close
set qab = nothing
dbcnn.close
set dbcnn = nothing
---------------------------------Sayfa Sonu
%>

alıntı

__________________