Bilgisayar Bölümü ASP Kod ve Script Arşivi


Flood önleme

Kodu kullanmak istediiniz sayfaya dahil ettiktewn sonra formunuzda guvenlik adnda bir Text alan an kullanc bizim oluturduumuz sayy bu alana girecek.
Veri tabanna kayt yapmadan nce bu gvenlik kodu dorumu diye kontrol edelim eer doruysa kayt ilemi yapalm deilse uyar verelim.

<%
'//////////////////////////////////////////////////////////////////////////////////////////////////
'// RNEK UYGULAMA
'//////////////////////////////////////////////////////////////////////////////////////////////////
If session(""GVsifre"")=Request.Form(""guvenlik"") Then
Session(""GVsifre"")="""" ' nce bu gvenlik kodumuzu boaltalmda geriye dnp tekrar kayt yaplamasn
'kayt ilemi iin gerekli kodlarnz buraya yazn
Else
Response.Write ""Ltfen gvenlik kodunu kontrol edin!..
Response.End
End If
%> Kolay gelsin..

<%
'//////////////////////////////////////////////////////////////////////////////////////////////////
'// RASGELE BR SAYI OLUTURALIM
'//////////////////////////////////////////////////////////////////////////////////////////////////
For i = 1 To 8 ' 1 VE 8 ARASI
Randomize
'// asci 0'n karakter deeri
bas=48
'// asci 9'un karakter deeri
son=57
'// 0 ile 9 arasndaki rakamlardan oluan bir say elde edelim
rasgele=rasgele + chr(Int((son - bas + 1) * rnd + bas))
'// bu sayy sessiona atyalm
session(""GVsifre"")=rasgele
Next

'//////////////////////////////////////////////////////////////////////////////////////////////////
'// OLUTURDUUMZ SAYIYI RESM 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 GREBLSN
'//////////////////////////////////////////////////////////////////////////////////////////////////
Response.Write ""<p align='center'>""& SayiResim(rasgele)
%>
"

ASP Kitabı

 

Faydalılar: Altın Fiyatları |Hediye Kolye | pırlanta fiyatları
Ana Sayfa  Sık Kullanılanlara Ekle   admin[at]bilgisayarbolumu.com | © 2006 - 2022 Bilgisayarbolumu.com