merhaba en alttaki verdiğim kodu kontrol.asp içerisindeki Response.Write "Oldu" bölümünde nasıl çalıştırabilirim yardım ederseniz sevinirim ara tara bulamadım
default.asp
<!--#include File="mail_config.asp"-->
<!--#Include File="sakla.asp" -->
<!--#Include File="ayar.asp" -->
<HTML>
<HEAD>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<TITLE>Cou_ - FLOOD KORUMASI</TITLE>
<style type="text/css">
<!--
input { font-size:10px;font-family:verdana;font-weight:bold; background-color:#F0FFF0;color:#333333;width='100%' }
a { font-family:verdana; font-size:9px; color:#CC0000; text-decoration:none }
-->
</style>
</HEAD>
<BODY>
<%
'Değerleri boşaltalım.
Session("sID")=""
Session("guvenlik_1")=""
Session("guvenlik_2")=""
'Oluşturduğumuz diziden random değerler seçerek flash diktörtgenin arkasına değişen arkaplan oluşturuyoruz.
Private Function RndResim()
arrResim = Array("1,0","2,0","3,0","4,0","5,0","6,0","7,0","8,0","9,0","10,0")
int_Resim_Count = uBound(arrResim)
Randomize
ResimX = Int((int_Resim_Count * Rnd) + 1)
strResim = arrResim(ResimX)
RndResim = strResim
End Function
'Burada ise oluşturduğumuz diziden random değerler seçerek formda iki adet hidden input oluşturup bunu kontrol sayfamızda session sayesinde kontrol ederek programlarla yapılacak flood engellenir.
Private Function GCode(intGuvs)
GCode_Arr = Array("1","2","3","4","5","6","9","0","Q","w","E","R","t","v","h","x","m","o","x","L","k","Y")
int_GCode_Count = uBound(GCOde_Arr)
Randomize
For i = 0 To intGuvs
GCodeX = Int((int_GCode_Count * Rnd) + 1)
str_GCodeX = str_GCodeX & GCode_Arr(GCodeX)
Next
GCode = str_GCodeX
End Function
Session("sID")=Session.SessionID 'Session Id yi aldik
Scodum_1=Gcode(guvb_1-1)
Session("guvenlik_1")=Scodum_1 'Guvenlik kodumuzu diğer sayfalardada çağırmak için sessiona atıyoruz.
Scodum_2=Gcode(guvb_2-1)
Session("guvenlik_2")=Scodum_2
%>
<form method="post" action="kontrol.asp">
<input type="hidden" name="gorev" value="Yolla">
İsim:<input type="text" name="isim" size="16" style="font-size: 12px; border-width: 1"><br>Mail:<input type="text" name="mail" size="16" style="font-size: 12px; border-width: 1"><br>
<input type="hidden" name="sID" value="<%=Session("sID")%>">
<input type="hidden" name="guvenlik_1" value="<%=Scodum_1%>">
<input type="hidden" name="guvenlik_2" value="<%=Scodum_2%>">
<table width="100">
<tr>
<td>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="100" id="AutoNumber1" background="resim/<%=RndResim%>" height="30">
<tr>
<td>
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" WIDTH="100" HEIGHT="30" id="key" ALIGN="">
<PARAM NAME=movie VALUE="key.swf">
<PARAM NAME=menu VALUE=false>
<PARAM NAME=quality VALUE=low>
<PARAM NAME=scale VALUE=noscale>
<PARAM NAME=wmode VALUE=transparent> <% 'Burayı transparan yapalımki arkaplan gözüksün. %>
<PARAM NAME=bgcolor VALUE=#CCCCCC>
<EMBED src="key.swf" menu=false quality=low scale=noscale wmode=transparent bgcolor=#CCCCCC WIDTH="100" HEIGHT="30" NAME="key" ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer">
</EMBED>
</OBJECT>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<input maxlength="5" type="text" name="key">
</td>
</tr>
<tr>
<td>
<input type="submit" value="Yolla"></form>
</td>
</tr>
<tr>
<td>
<a title="Eğer güvenlik kodunu okuyamıyorsanız buraya tıklayın." href="javascript:location.reload()">Yeni Güvenlik Kodu</a>
</td>
</tr>
</table>
</form>
</BODY>
</HTML>kontrol.asp
<style type="text/css">
<!--
body { font-family:verdana; font-size:11px; color:#336699; font-weight:bold }
-->
</style>
<!--#include File="mail_config.asp"-->
<!--#include file="sakla.asp" -->
<!--#include file="ayar.asp" -->
<%
Sub Deneme
Response.Write "<br>" & Session("g_kod") & " " &_
Session("guvenlik_1") &_
" " &_
Session("guvenlik_2")
End Sub
'Sebep (1) : Session düşmüşmü kontrol edelim. Düşmüşse dur.
If Session("guvenlik_1") <> "" and Session("guvenlik_2") <> "" Then
'Sebep (2) : Gelen güvenlik kodu istediğimiz aralıktamı bunu ayar.asp sayfasında belirlemiştik. Eşit değilse dur.
If Len(Trim(Session("guvenlik_1"))) = int(guvb_1) and _
Len(Trim(Session("guvenlik_2"))) = int(guvb_2) and _
Len(Trim(Session("g_kod"))) = int(gcob) and _
Session("sID") = Session.SessionID THEN
'Formdan gelen değerleri değişkenlere atayalım.
strKEY=Request.Form("key")
strG1=Request.Form("guvenlik_1")
strG2=Request.Form("guvenlik_2")
'Temizle sub'ı işimiz bittikten sonra session daki mevcut değerleri boşaltıyor.
Sub Temizle()
Session("g_kod")=""
Session("guvenlik_1")=""
Session("guvenlik_2")=""
End Sub
'Sebep(3) : Burada Session' daki değerlerle formdan gelen değerler karşılaştırlıyor. Eşit değilse dur.
If strKEY = Session("g_kod") And strG1 = Session("guvenlik_1") And strG2 = Session("guvenlik_2") Then
Response.Write "Oldu"
Call Temizle()
Else
Response.Write "Olmadi Sebep(3)"
Call Temizle()
End If
Else
Response.Write "Olmadi Sebep (2)"
Call Temizle()
End If
Else
Response.write "Olmadi Sebep(1)"
Call Temizle()
End If
%>Eklenmesi gereken kod
<%
gorev = Trim(Request.Form("gorev"))
IF gorev = "Yolla" THEN
isim = Trim(Request.Form("isim"))
mail = Trim(Request.Form("mail"))
IF isim = "" OR mail = "" THEN
%><SCRIPT language=JavaScript>
window.open("mail_popup2.asp","","width=200,height=150,scrollbars=no,resizable=no,status=no,menubar=no,toolbar=no,location=no");
</SCRIPT><%
Response.End
END IF
Set RS = Server.Createobject("ADODB.Recordset")
RS.open "SELECT * FROM mailler",BAG,1,3
IF NOT RS.eof THEN
Do While Not RS.eof
IF RS("mail") = mail THEN
%><SCRIPT language=JavaScript>
window.open("mail_popup3.asp","","width=200,height=150,scrollbars=no,resizable=no,status=no,menubar=no,toolbar=no,location=no");
</SCRIPT><%
Response.End
END IF
RS.Movenext
Loop
END IF
RS.AddNew
RS("isim") = isim
RS("mail") = mail
RS.update
Set RS = Nothing
%><SCRIPT language=JavaScript>
window.open("mail_popup.asp","","width=200,height=150,scrollbars=no,resizable=no,status=no,menubar=no,toolbar=no,location=no");
</SCRIPT><%
END IF
%>