Forum
Aktif konular
Üyeler
Kurallar
Arama
[Beyaz Tahribat] Asp De Session İle Üyelik Sistemi [Beyaz Tahribat] Asp De Session İle Üyelik Sistemi
-
sayfa.asp
<% if Session("girdi") = "1" then 'burası sessionlarda girdi degerinin karşılıgının 1 olup olmadıgını kontrol eder eger 1 ise aşagıdaki else ye kadar olan kısmın görüntülenmesine izin verir%>
<center>Üyelik Paneliniz</center>
<center>Hoş Geldin <%=session("kadi")%><p></center>
<a href=terket.asp>Sistemden Çıkış</a><br>
<%else 'eger sessionlarda girdi=1 olarak görülmüyorsa burdan sonrasını görmenizi sağlar yani üyelere özel bölümü görmenizi engeller%>
<form method="post" action="giris.asp" name="fname">
<input type="text" name="kadi" size="40" maxlength="256" class="search"><br>
<input type="text" name="sifre" size="40" maxlength="256" class="search"><br>
<input type="submit" border="0" width="38" height="28" alt="" name="gir"></form><%end if 'girdi=1 degerinin kontrol edilmesinin sonu bundan sonra yazılanlar hep üyeler hemde üye olmuyanlar tarafından görüntülene bilir%>giris.asp
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
Set oynac = Server.CreateObject("ADODB.Recordset")
baglac = "Select * from uyeler where kadi = '" & request.form("kadi") & "' and sifre = '" & request.form("sifre") & "'" 'burda tüm veritabanı ile bağaltı sağlandıktan sonra formdan gelen şifre ve kullanıcı adı veri tabanında varmı yokmu die bakılıyo
oynac.Open baglac,sur,1,3
If oynac.BOF And oynac.EOF Then 'bu satır verilerin veritabanında var olup olmadıgını konrolden sonra yoksa bi alttaki satırın aktif olmasını sağlıyo
şifre yada kullanıcı adı yanlış
Else 'bu satır verilerin veritabanında var olup olmadıgını konrolden sonra varsa aşagıdaki satırların aktif olmasını sağlıyo
Session("UserLoggedIn") = "true"
oynac.Update
Session("girdi")="1" 'sayfa.asp oluştururken bahsetmiştik girdi değeri die bişeyden işte o burda işleniyo
Session("kadi")=oynac("kadi") 'burda ise aynı girdi=1 gibi veri tabanından alınan kullanıcı adı sessionlara yazıdırılıyoki ileride olası kullanım alanlarında kullana bilelim
%>
<% 'busatırlarsa sizin geldiğiniz sayfanın bilgilerini alıp giriş işlemi tamamlandıktan sonra aynı yere dönmenizi sağlıyor
adres=Request.ServerVariables("HTTP_REFERER")
Response.Write("<meta http-equiv=""refresh"" content=""2; url="&adres&""">")
%><center>
<font face="verdana" size="1"><b>Giriş Tamamlandı</b><br><br> Şimdi Bir Yerlere Yönlendiriliyorsunuz. <br>Lütfen Bekleyiniz.<br><br>
</font></center>
<%end if 'burası ise giriş kısmımızın bittiğini bize müjdeliyor%>
terket.asp
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
</head>
<% Session.Abandon %>
<body bgcolor="#FFFFFF">
<%
adres=Request.ServerVariables("HTTP_REFERER")
Response.Write(""&uye_26&"<meta http-equiv=""refresh"" content=""1; url="&adres&""">")
%>
</body>
</html>ve artık üyelik sistemimiz bitti :) ama şunu belirteyim bu üyelik sistemini yaptıgınızda bazı açıklar olacaktır. en basitinden or açıgı bunu kapatmak çok basit ama bunu yapmak için replace kullanmamız gerekecek oda sizin kafanızı karıştıracağından hiç girmedim ilerde anlatırım. gözden kaçan hatalarım olduysa affedin
-
yeni başlayanlar icin özellikle "session" kelimsinin ne anlama geldigini, nerelerde ne mantıkla kullanıldıgını acıklamak daha yararlı olur diye düşünüyorum. eve gecince dökümanına ekleme yaparım. ellerine saglık ;)
-
f1kr3t bunu yazdı:
-----------------------------yeni başlayanlar icin özellikle "session" kelimsinin ne anlama geldigini, nerelerde ne mantıkla kullanıldıgını acıklamak daha yararlı olur diye düşünüyorum. eve gecince dökümanına ekleme yaparım. ellerine saglık ;)
-----------------------------
Asp Session Kullanımı -
teşekkürler :)
-
FOXXLY bunu yazdı:
-----------------------------f1kr3t bunu yazdı:
-----------------------------yeni başlayanlar icin özellikle "session" kelimsinin ne anlama geldigini, nerelerde ne mantıkla kullanıldıgını acıklamak daha yararlı olur diye düşünüyorum. eve gecince dökümanına ekleme yaparım. ellerine saglık ;)
-----------------------------
Asp Session Kullanımı
-----------------------------onu şimdi gördüm. başka konularla karşınızda olucam :D
-
bu beyaz tahribat ne güzel şeymiş ya
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla