<% if (Request.QueryString("log"))="banla" then LogID=Request.QueryString("LogID") set ley = Server.CreateObject("ADODB.RecordSet") SQL="select * from LOGLAR where LogID like '"&LogID&"'" ley.open SQL,connect,1,3 %> <% if (Request.QueryString("aha"))="banladin" then Bansebebi=Request.form("Bansebebi") yasak=Request.form("yasak") if Bansebebi="" then %> <% else ley("Bansebebi")=Bansebebi ley("banlimi")=1 ley.update if yasak=1 then set leyli = Server.CreateObject("ADODB.RecordSet") SQL="select * from Yrumuzlar" leyli.open SQL,connect,1,3 leyli.addnew leyli("rumuz")=ley("rumuz") leyli("nedeni")=Bansebebi leyli("tarih")=now() leyli.update end if %> <% end if end if %>
Log Banla
Rumuz : <%=ley("rumuz")%>
Tarih & Saat : <%=ley("tarih")%>
Grubu : <% if ley("yetki")=0 then %> Kayıtlı Üye <% end if %> <% if ley("yetki")=1 then %> Operatör <% end if %> <% if ley("yetki")=2 then %> Admin <% end if %> <% if ley("yetki")=3 then %> CoAdmin <% end if %> <% if ley("yetki")=4 then %> SüperAdmin <% end if %> <% if ley("yetki")=5 then %> Misafir <% end if %>
Ip No : <%=ley("IP")%>
Ban Sebebi :
&aha=banladin" method=post>
Rumuz Yasaklansın mı : ( Evet ) ( HAYIR )
<% end if %> <% if (Request.QueryString("log"))="banac" then LogID=Request.QueryString("LogID") set ley = Server.CreateObject("ADODB.RecordSet") SQL="select * from LOGLAR where LogID like '"&LogID&"'" ley.open SQL,connect,1,3 %> <% if (Request.QueryString("aha"))="banactin" then Acmasebebi=Request.form("Acmasebebi") ley("Acmasebebi")=Acmasebebi ley("banlimi")=0 ley.update %> <% end if %>
Log Banla Kardeş
Rumuz : <%=ley("rumuz")%>
Tarih & Saat : <%=ley("tarih")%>
Grubu : <% if ley("yetki")=0 then %> Kayıtlı Üye <% end if %> <% if ley("yetki")=1 then %> Operatör <% end if %> <% if ley("yetki")=2 then %> Admin <% end if %> <% if ley("yetki")=3 then %> CoAdmin <% end if %> <% if ley("yetki")=4 then %> SüperAdmin <% end if %> <% if ley("yetki")=5 then %> Misafir <% end if %>
Ip No : <%=ley("IP")%>
Ban Sebebi : &aha=banactin" method=post> <%=ley("Bansebebi")%>
<% end if %>