<% if (Request.QueryString("islem"))="yap" then Set Res=Server.CreateObject("Adodb.Recordset") Sorgu="select * from LOGLAR" Res.Open Sorgu,connect, 1, 3 if (Request.form("islem2"))="Sil" then For a = 1 To Res.RecordCount if Request.form(""&Res("LogID")&"")<>"" then Set Rsa=Server.CreateObject("Adodb.Recordset") Sorgu="DELETE * from LOGLAR where LogID like '"&Res("LogID")&"'" Rsa.Open Sorgu,connect, 1, 3 end if Res.MoveNext NEXT response.redirect Request.ServerVariables("HTTP_REFERER") end if end if %>

LOG YÖNETİMİ

<% if (Request.QueryString("yetki"))="bak" then yet=Request.form("yet") Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from loglar where yetki like '"&yet&"' order by Tarih DESC" Rs.Open Sorgu,connect, 1, 3 else if (Request.QueryString("ip"))="ara" then IP=Request.form("ip") Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from loglar where IP like '"&IP&"' order by Tarih DESC" Rs.Open Sorgu,connect, 1, 3 else if (Request.QueryString("rumuz"))="ara" then rumuz=Request.form("rumuz") Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from loglar where rumuz like '"&rumuz&"' order by Tarih DESC" Rs.Open Sorgu,connect, 1, 3 else Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from loglar order by Tarih DESC" Rs.Open Sorgu,connect, 1, 3 end if end if end if If Rs.eof or Rs.BOF then Response.Write "" else sayf = Request.QueryString("sayf") if sayf="" then sayf=1 end if Rs.pagesize = 30 'Sayfadakı Sıralanacak veri sayısı Rs.absolutepage = sayf sayfa = Rs.pagecount for i=1 to Rs.pagesize if Rs.eof then exit for %> <%Rs.movenext%> <% next %> <% end if%>

	Rumuzu	Tarih Ve Saat	Gurubu	IP Adresi	İşlemler
" name="<%=rs("LogID")%>">	<%=Rs("rumuz")%>	<%=Rs("tarih")%>	<% if rs("yetki")=0 then %> Kayıtlı User <% end if %> <% if rs("yetki")=1 then %> Operatör <% end if %> <% if rs("yetki")=2 then %> Admin <% end if %> <% if rs("yetki")=3 then %> CoAdmin <% end if %> <% if rs("yetki")=4 then %> SüperAdmin <% end if %> <% if rs("yetki")=5 then %> Misafir <% end if %>	<%=rs("IP")%>	<% if rs("banlimi")=1 then%> ','','status=no,scrollbars=NO,width=500,height=360')" href="#" > <% end if %> <% if rs("banlimi")=0 then%> ','','status=no,scrollbars=NO,width=500,height=360')" href="#"> <% end if %> ">

<% for y=1 to sayfa if sayf=y then else response.write "" %> <% end if next onceki=sayf-1 sonraki=sayf+1 sayfa=rs.recordcount/30 sayfa2=INT(sayfa) sayfa3=sayfa2+1 %> <% if onceki<>0 then%> <% end if %>

[ <%=rs.recordcount%> ] Adet kayıt [ <%=sayfa3%> ] Adet sayfa görüntülendi bulunduğunuz sayfa [ <%=sayf%> ]

<% if rs.recordcount>30 then %> <% end if %>

<% if (Request.QueryString("log"))="sil" then %> <% LogID=Request.QueryString("LogID") set odac = Server.CreateObject("ADODB.RecordSet") SQL="DELETE * from LOGLAR where LogID like '"&LogID&"'" odac.open SQL,connect,1,3 response.redirect Request.ServerVariables("HTTP_REFERER") %> <% end if %>