flood onlemeKodu kullanmak istediğiniz sayfaya dahil ettiktewn 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.<%'//////////////////////////////////////////////////////////////////////////////////////////////////'// ÖRNEK UYGULAMA'//////////////////////////////////////////////////////////////////////////////////////////////////if session("GVsifre")=Request.Form("guvenlik") ThenSession("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ınElseResponse.Write "Lütfen güvenlik kodunu kontrol edin!..Response.EndEnd if%> Kolay gelsin..<%'//////////////////////////////////////////////////////////////////////////////////////////////////'// RASGELE BİR SAYI OLUŞTURALIM'//////////////////////////////////////////////////////////////////////////////////////////////////For i = 1 To 8 ' 1 VE 8 ARASIRandomize'// asci 0'ın karakter değeribas=48'// asci 9'un karakter değerison=57'// 0 ile 9 arasındaki rakamlardan oluşan bir sayı elde edelimrasgele=rasgele + chr(int((son - bas + 1) * rnd + bas))'// bu sayıyı sessiona atıyalımsession("GVsifre")=rasgeleNext'//////////////////////////////////////////////////////////////////////////////////////////////////'// OLUŞTURDUĞUMZ SAYIYI RESİM YAPALIM'//////////////////////////////////////////////////////////////////////////////////////////////////Function SayiResim(sifrem)sifrem = Replace (sifrem ,"0","
",1,-1,1)sifrem = Replace (sifrem ,"1","
",1,-1,1)sifrem = Replace (sifrem ,"2","
",1,-1,1)sifrem = Replace (sifrem ,"3","
",1,-1,1)sifrem = Replace (sifrem ,"4","
",1,-1,1)sifrem = Replace (sifrem ,"5","
",1,-1,1)sifrem = Replace (sifrem ,"6","
",1,-1,1)sifrem = Replace (sifrem ,"7","
",1,-1,1)sifrem = Replace (sifrem ,"8","
",1,-1,1)sifrem = Replace (sifrem ,"9","
",1,-1,1)SayiResim=sifremEnd Function'//////////////////////////////////////////////////////////////////////////////////////////////////'// EKRANA YAZALIMDA KULLANICI GÖREBİLSİN'//////////////////////////////////////////////////////////////////////////////////////////////////Response.Write "
"& SayiResim(rasgele)%>
