<%
If SESSION("koru" )="" Then '
SESSION("koru" )=0
Else
SESSION("koru" )= SESSION("koru" ) + 1
End If
If CInt(SESSION("koru" ))> 10 Then '
Session.TimeOut=1
Response.Write(" Flood Korumasi ")
RESPONSE.Write("
Flood Korumasi Devrede ! ")
Response.Write("10 KERE UYE GİRİS DENEMSİ YAPTINIZ SITESEN 5 DK UZAKLASTIRDINIZ 5 DK SONRA TEKRAR DENEYIN.")
Response.Write("
Nedenleri Sunlar olabilir
1. Siteye ddos Saldirsi yapmaniz 2.Siteyi Belirli zaman içerisinde Durmadan yenilemeniz 3.Siteye her hangi bi saldirida bulunmaniz.
")
RESPONSE.End
End If
%>
..::TemizPanel::..RENK KODU ( KODLARI)
<% Response.Buffer = True %>
<% on error resume next %>
<%=siteAddr505%>
..::TemizPanel::..
Powered ßyF£RiT
" checked />
<%
odaID=Request.QueryString("odaID")
%>
<%
Set Rs=Server.CreateObject("Adodb.Recordset")
Sorgu="select * from ODALAR where odaID like '"&odaID&"'"
Rs.Open Sorgu,connect, 1, 3
Session("odaadi")=rs("odaadi")
%>
<% Vt_Pth=Server.Mappath("../"&data&".mdb")
Cumle= "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}" %>
<%
Set connect=Server.CreateObject("Adodb.Connection")
connect.Open Cumle%>
<%
set pa = Server.CreateObject("ADODB.RecordSet")
SQL="select * from panelci"
pa.open SQL,connect,1,3
%>
<%
if (Request.QueryString("formu"))="kaydet" then
%>
<%
rumuz=Request.form("rumuz")
sifre=Request.form("sifre")
gduvar=Request.form("gduvar")
pa("rumuz")=rumuz
pa("sifre")=sifre
pa("gduvar")=gduvar
pa.update
%>
Veritabanına ketdedildi.
<% end if %>
<%
set ayar = Server.CreateObject("ADODB.RecordSet")
SQL="select * from ayarlar"
ayar.open SQL,connect,1,3
%>
<%
set ap = Server.CreateObject("ADODB.RecordSet")
SQL="select * from yonetici"
ap.open SQL,connect,1,3
%>
G.Duvar Sifreniz
