<% Response.Buffer=True Response.Expires = -100 tarih=date %> <% if (Request.QueryString("giris"))="yap" then %> <% Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from Yonetici where rumuz = '" & request.form("rumuz") & "' and Sifre = '" & Request.form("sifre") & "'" Rs.Open Sorgu,connect, 1, 3 If RS.BOF And RS.EOF Then Response.Write "" Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from Yloglar" Rs.Open Sorgu,connect, 1, 3 rs.addnew Rs("rumuz")=request.form("rumuz") Rs("IP")=Request.ServerVariables("REMOTE_ADDR") Rs("YanDog")="Yanlış" Rs("chatrumuz")=Session("rumuz") rs.update %> Kulanıcı Adı Veya Şifreniz Yanlış <% else %> <% if rs("yetki")="2" then %>Bu Kullanıcı Durdurulmuştur. <% else Set Rss=Server.CreateObject("Adodb.Recordset") Sorgu="select * from Yloglar" Rss.Open Sorgu,connect, 1, 3 Rss.addnew Rss("rumuz")=rs("rumuz") Rss("IP")=Request.ServerVariables("REMOTE_ADDR") Rss("YanDog")="Dogru" Rss("chatrumuz")=Session("rumuz") Rss.update Session("guvenlik")="AKTIF" Session("rumuzY")=rs("rumuz") Session("YetkiY")=rs("yetki") Response.Redirect "Default.asp" end if %> <% end if %> <% end if %>

Yönetici Girişi

Kulanıcı Adı Şifre IP Adresiniz <%=Request.ServerVariables("REMOTE_ADDR")%>