bunda birşey yok nesini anlamadın
formuna bir text alanı koy adını güvenlik yap daha sonra formun olduğu sayfaya..
<%
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
%>
bunları koy..
<%
For i = 1 To 8
Randomize
bas=48
son=57
rasgele=rasgele + chr(int((son - bas + 1) * rnd + bas))
session("GVsifre")=rasgele
Next
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
Response.Write "<p align='center'>"& SayiResim(rasgele)
%>
birde guvenlik klasörün oolucak içinde 0-9 arası .gifler olucak..0.gif de 0 sayısı çıkıcak ve diğer giflerde yine sayılar çıkıcak..
zaten adamlar yazmış açıklmasını
![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)