Kullandığın çizim koruması bütün tarayıcılarda çalışmıyor örnek İE de çalışmıyor ie kullanan misafirler yorum yapamayacakmı ? artı olarak o koruma sadece yolla post butonunu gizliyor senin post adresini spam yapacak kişi zaten kaynak kodlarına bakarak görebilir çizimi yapmasa bile örnek post adresin
hata.asp?islem=ekle&dizi=The-Walking-Dead&sezon=03&bolum=05 bu koruma sağlıklı bir koruma değil çünkü spam mesaj gonderen bunu elle manuel degıl programla yapar kucuk bir uygulama işini görecektir
Küçük bir güvenlik kodu oluştur
6 basamaklı güvenlik kodu oluştur.
Alıntı
<%
Function strCode(Boy)
Dim sifre,KarakterBoyu,KacinciKarakter
Const Karakterler = "0123456789"
Randomize
KarakterBoyu = Len(Karakterler)
For x = 1 To Boy
KacinciKarakter = Int((KarakterBoyu * Rnd) + 1)
sifre = sifre & Mid(Karakterler,KacinciKarakter,1)
Next
strCode = sifre
End Function
strCode = strCode(6)
%>
Yorum gönderme sayfasında
Alıntı
<% Session("Parola") = strCode %>
bu şekilde oluşturduğun kodu session a yazdır.
yorum ekleme sayfasında <%=strCode%> şekilde kullanıcıya kodu göster ve ismi frmParola olan bir input oluştur kullanıcının kodu oraya girmesini iste.
ve yorumu kontrol ettiğin sub ekle bölmünde aşağıdaki gibi gönderilen kod oluşturulup sessiona atanan kod ile eşitliğini kontrol ettir.
Alıntı
<%
If Request("frmParola" )<>Session("Parola" ) Then
Response.Write "Güvenlik kodu hatalı"
End If
%>
Bu basit ve en sağlam yoldur ve spam mail almassın bu şekilde
Geliştirmek istersen yorum kaydetme sub eklede kayıt işlemi sorunuz bir şekilde eklendiğinde Update setinin altına
Alıntı
Response.Cookies("Kontrolx")("VideoYorum") = "Korumax"
Response.Cookies("Kontrolx").Expires=DateAdd("n",1 ,Now)' 1 dakikalık cookie yollandı.
kodlarını ekle bir kişinin bir dakka içinde en fazla bir mesaj gönderebilmesini sağlarsın
bunun kontrolü içinde aşağıdaki şekilde kontrol oluştur sub ekle de post edilen bilgilerin kontrol edildiği yere
Alıntı
<%
If Request.Cookies("Kontrolx")("VideoYorum") = "Korumax" Then
Response.Write "Yorum Ekleme Sınırı Aşıldı 1dk Sonra Tekrar Deneyin!"
End If
%>
yol yapamam kafam karıştı diyorsan yorum ekleme sayfanın kaynak kodlarını gonder ben eklerim iyi çalışmalar.