| Aspde saldırı yapan ıp'yi banlamak
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
%>
|