http://www.bitkinet.net/uyelikistegi/
KODLAR:
index.asp
<title>BitkiNET.net Üyelik İstek Formu</title>
<%
If SESSION("koru" )="" Then '
SESSION("koru" )=0
Else
SESSION("koru" )= SESSION("koru" ) + 1
End If
If CInt(SESSION("koru" ))> 5 Then '
Session.TimeOut=5
Response.Write("<title> Flood Koruması </title>")
RESPONSE.Write("<center><b>Flood Koruması Devrede !</b></center><br>")
Response.Write("<center><b>5 dakikalığına siteden uzaklaştırıldınız.</b><br>")
Response.Write("<center><b>Sebebi:</b>Birden fazla üyelik isteği göndermek.</center>")
RESPONSE.End
End If
%>
<form action="ok.asp" method="post">
<font face="Verdana" size="2" color="#FF0000"><b>Üyelik İstek Formu</b><br>
</font><font face="Verdana" size="2">Lütfen bir kere istek gönderdikten sonra
tekrar tekrar istek göndermeyiniz.<br>
Tekrar tekrar göndermeniz işlemleri hızlandırmayacaktır.<br>
İstek sonucunuz 72 saat içinde elektronik posta adresinize bildirilir.<br>
Elektronik Posta Adresiniz:</font>
<input type="text" name="email" size="38"> <br>
<br>
<font face="Verdana">
<input type="submit" value="Gönder"></font>
</form>ok.asp<title>Üyelik İsteğiniz Kayıt Edilmiştir.</title>
<%
If SESSION("koru" )="" Then '
SESSION("koru" )=0
Else
SESSION("koru" )= SESSION("koru" ) + 1
End If
If CInt(SESSION("koru" ))> 5 Then '
Session.TimeOut=5
Response.Write("<title> Flood Koruması </title>")
RESPONSE.Write("<center><b>Flood Koruması Devrede !</b></center><br>")
Response.Write("<center><b>5 dakikalığına siteden uzaklaştırıldınız.</b><br>")
Response.Write("<center><b>Sebebi:</b>Birden fazla üyelik isteği göndermek.</center>")
RESPONSE.End
End If
%>
<%
dbadi="veritabani.mdb"
Set baglanti=Server.Createobject(“Adodb.Connection” )
baglanti.provider="Microsoft.jet.oledb.4.0"
baglanti.open Server.Mappath(dbadi )
Set rs=Server.Creteobject("adodb.recordset" )
rs.open "select * from tabloadi", baglanti, 1, 3
gelenveri=request.form("email" )
rs.addnew
rs("isim" )=gelenveri
rs.update
%> 