flooda karşı koruma

Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !

Forum Başlıklarına gitmek için tıklayınız

Flooda karşı koruma

Flood diye tabir edilen veri tabanına gereksiz yere ve ardarda yapılan istenmeyen kayıtları engellemek kullanılabilecek bir fonksiyon. Mesaj panosu, üyelik sistemleri forum gibi birçok hazır scripte dahil edilebilir.

NOT: 0 dan 9'a kadar hazır gifleriniz olmak zorunda örnek gifleri indirmek için

Kodu kullanmak istediğiniz sayfaya dahil ettikten sonra formunuzda guvenlik adında bir text alanı açın kullanıcı bizim oluşturduğumuz sayıyı bu alana girecek.
Veri tabanına kayıt yapmadan önce bu güvenlik kodu doğrumu diye kontrol edelim eğer doğruysa kayıt işlemi yapalım değilse uyarı verelim.

Kod Alanı:

<%
'ÖRNEK UYGULAMA
if session("GVsifre")=Request.Form("guvenlik") Then
Session("GVsifre")="" ' önce bu güvenlik kodumuzu boşaltalımda geriye dönüp tekrar kayıt yapılamasın
'kayıt işlemi için gerekli kodlarınızı buraya yazın
Else
Response.Write "Lütfen güvenlik kodunu kontrol edin!..
Response.End
End if
%>

Kod Alanı:

<%
' RASGELE BİR SAYI OLUŞTURALIM
For i = 1 To 8 ' 1 VE 8 ARASI
Randomize
'// asci 0'ın karakter değeri
bas=48
'// asci 9'un karakter değeri
son=57
'// 0 ile 9 arasındaki rakamlardan oluşan bir sayı elde edelim
rasgele=rasgele + chr(int((son - bas + 1) * rnd + bas))
'// bu sayıyı sessiona atıyalım
session("GVsifre")=rasgele
Next

' OLUŞTURDUĞUMZ SAYIYI RESİM YAPALIM
Function SayiResim(sifrem)
sifrem = Replace (sifrem ,"0","<img border='0' src='guvenlik/0.gif'>",1,-1,1)
sifrem = Replace (sifrem ,"1","<img border='0' src='guvenlik/1.gif'>",1,-1,1)
sifrem = Replace (sifrem ,"2","<img border='0' src='guvenlik/2.gif'>",1,-1,1)
sifrem = Replace (sifrem ,"3","<img border='0' src='guvenlik/3.gif'>",1,-1,1)
sifrem = Replace (sifrem ,"4","<img border='0' src='guvenlik/4.gif'>",1,-1,1)
sifrem = Replace (sifrem ,"5","<img border='0' src='guvenlik/5.gif'>",1,-1,1)
sifrem = Replace (sifrem ,"6","<img border='0' src='guvenlik/6.gif'>",1,-1,1)
sifrem = Replace (sifrem ,"7","<img border='0' src='guvenlik/7.gif'>",1,-1,1)
sifrem = Replace (sifrem ,"8","<img border='0' src='guvenlik/8.gif'>",1,-1,1)
sifrem = Replace (sifrem ,"9","<img border='0' src='guvenlik/9.gif'>",1,-1,1)
SayiResim=sifrem
End Function

' EKRANA YAZALIMDA KULLANICI GÖREBİLSİN
Response.Write "<p align='center'>"& SayiResim(rasgele)
%>

Hosting Sponsorumuz - Noktahost internet hizmetleri