Bilgisayar Güvenliği Bilgi Merkezi

bilgisayar,mail,web,site,şifre,network,güvenlik,hack,security,ddökümanları


Bağlı değilsiniz. Bağlanın ya da kayıt olun

Zaman kullanımlı flood kontrolü

Önceki başlık Sonraki başlık Aşağa gitmek  Mesaj [1 sayfadaki 1 sayfası]

1Pc Zaman kullanımlı flood kontrolü Bir Paz Ekim 11, 2009 6:24 pm

Admin

avatar
Admin
Kod:
<%
'||~~~~~~~~~~~~~~~~~~~~~~~~~||
'||  Code Author by 19JİTEM05                    ||
'||  [Linkleri görebilmek için üye olun veya giriş yapın.]                      ||
'||~~~~~~~~~~~~~~~~~~~~~~~~~||
Dim saatfark,dakikafark,saniyefark
saatfark= Hour(Time) -  Session("Saat")
dakikafark=Minute(Time) - Session("Dakika")
saniyefark=Second(Time) - Session("Saniye")
if Session ("MesajZamani") = Time then
response.Write("Bu kadar kısa sürede aynı işlemi tekrarlayamazsınız")
elseif ( ( (saatfark=0) and (dakikafark=0) )  and (saniyefark < 60 ) ) then
response.Write("Bu kadar kısa sürede aynı işlemi tekrarlayamazsınız , çizerim...")
Set Rawkmetal = Server.CreateObject("ADODB.Connection")
Rawkmetal.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("BunList.Mdb")
Set Rawkm3tal = Server.CreateObject("ADODB.RecordSet")
strSqL = "Select * from SpamBlock"
Rawkm3tal.open strSqL,Rawkmetal,1,3
Rawkm3tal.addnew
Rawkm3tal("IPadresi")=request.servervariables("remote_addr")
Rawkm3tal.update
Rawkm3tal.close
else
Set Konnek = Server.CreateObject("ADODB.Connection")
Konnek.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("BunList.Mdb")
Set Rawkmeta1 = Server.CreateObject("ADODB.RecordSet")
strSqL = "Select * from tabloadı"
Rawkmeta1.open strSqL,Konnek,1,3
Rawkmeta1.AddNew
Session("MesajZamani")=Time()
Session("Saat")=Hour(Time)
Session("Dakika")=Minute(Time)
Session("Saniye")=Second(Time)
Rawkmeta1("Tablodaki 1.Veri alanımız")=Formdan gelen bilgi
Rawkmeta1("Tablodaki 2. veri alanımız")=Formdan gelen bilgi
Rawkmeta1("Tablodaki 3. veri alanımız")=Formdan gelen bilgi
'Rawkmeta1("yada kullanıcı adı deriz") = session("uyemiz")
Rawkmeta1.UpDate
Rawkmeta1.Close
end if
%>
<%
'// daha sonra bunu döngüye bağlarsınız
'// kayıt ediline verileri 5 dakkika sonra silersiniz
'// o kısmınıda yazıcaktım vakit sınırlı :)
%>

Kullanıcı profilini gör http://www.hacktebugun.com

Önceki başlık Sonraki başlık Sayfa başına dön  Mesaj [1 sayfadaki 1 sayfası]

Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz