ÜyeliK sistemi yazalım | ASP

CyßeRiaN

Web & iRc C0deR
Katılım
14 May 2008
Mesajlar
1,452
Reaction score
0
Puanları
0
Yaş
36
Konum
CyßeR C!ty | Team 38 quatyple
Arkadaşlar. Sizlere Elimden Geldiğince Asp Dili İle En Basit Şekilde

Üyelik Sistemi Nasıl Yazılır Aktarmaya Çalışacağım. Öncelikle Belirtmek

İsterim ki Bunu Yapabilmek İçin Gerekli Kriterler ;

# İyi Derecede Html Bilgisi

# Orta Düzeyde Asp Bilgisi

Gerekir. Yoksa Anlattığım Bu Çok Basit Sistemden Hiçbişey Anlamassınız.

Şimdi Arkadaşlar Demiştim Basit Olucak Diye. Üyelik Sistemi Yazmanın

Mantığını Kavratmak Adınadır Bu Çalışmam. Siz Bunu İlerletebilirsiniz.

Bir Üyelik Sisteminde Olması Gereken Materyaller ;

#Database

#Login.asp

#UyeKaydet.asp

#UyeOl.asp

#GirisKontrol.asp

#Logout.asp


-------Database-------------------------------------------------

Şimdi Arkadaşlar Öncelikle Üyelik Hesaplarının Tutulacağı Bir Datamız

Olması Gerekir. Ben Access Kullanıyorum O Bakımdan Access İçin

Anlatacağım. Access Programımı Açıyorum. Tasarım Görünümünde

Tablo Oluşturu Seçiyorum. İlk Alanım ID. Seçiyorum ve Türünü Otomatik

Sayı Yapıyorum. Daha Sonra İkinci Alanım Username Türü Metin Daha

Sonra Üçüncü Alanım Parola Türü Metin Olsun. Şimdi Arkadaşlar

Bu Tabloyu uyeler Adı İle kayıt Edelim ve Tablomuz Oluştu. Artık Sistemi

Kodlamaya Başlayabiliriz.

--------------------------------------------------------------------

------------Login.asp-----------------------------------------------

Evet Arkadaşlar Login.asp Sayfamızda Üye Girişi Yapacağımız Bir Üye

Giriş Paneli Olması Lazımdır. Hemen Üye Giriş Formumuzun Html Tasarımını

Yapıyoruz.
<form action="GirisKontrol.asp" method=post>
<table align="center" border="0" width="200" height="300">
<tr>
<td align="right">Username :</td>
<td align="left"><input type="text" name="username"></td>
</tr>
<tr>
<td align="right">Parola :</td>
<td align="left"><input type="password" name="parola"></td>
</tr>
<tr>
<td><input type="submit" value="Giriş" name="giris"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<%IF Session("girdim") = "evet" THEN%>
<tr>
<td><a href= "Logout.asp">Güvenli Çıkış</a></td>
<td> </td>
</tr>
<%END IF%>
</table>
</form>
Şimdi Arkadaşlar Html Form Tasarımımızı Yaptık. Az Buçuk Açıklama

Yapalımda Kafamız Karışmasın. En Üstte Bir Form Oluşturduk ve Eb Altta

Kapattık. Form action="GirisKontrol.asp" Burada Formdan Göndereceğimiz

Username ve Parola Verilerini GirisKontrol.asp Diye Bir Sayfada Çekeceğiz

Dedik. method="post" ise Methodumuzun post Oldugunu Belirttik.

Bazı Derslerimde Belki Belirtmişimdir. Form Göndermenin İki Methodu Vardır

Get : Adres Satırını Kullanır Hızlı Ama Güvensizdir.

POST : http Protokolünü Kullanır Yavaş Ama Güvenlidir.

Biz Postu Seçtik Neyse Uzatmayalım :)

Bir Tablo Oluşturduk ve input(form öğeleri)larımızı Oluşturduk. Alttaki

GÜvenli Çıkış Linkide Giriş Yapıldıktan Sonra Gözükecek Satırdır. Kısa Bir IF

Yapısı İle Bunu Belirttik. Dedik ki Eğer Session Açıksa Görün Değilse

Görünme. GirisKontrol.asp de Orada Belirttiğimiz Session Değerini Açacağız

Eğer Username ve Parola Doğruysa Değilse Hata Verdireceğiz.

Şimdi ;

Bu Formumuz Buttona Basınca GirisKontrol.asp ye Actionlanıcak.

Şimdi GirisKontrol.asp Sayfamızı Oluşturalım.
---------------------------------------------------------------------
--------------GirisKontrol.asp----------------------------------------

’Databse’e Bağlanalım.

Set Baglantim = Server.CreateObject("adodb.connection")
’Baglantim.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Database.mdb")
’Formdan Gelen Verileri Çekelim.

username = Request.Form("username")
parola = Request.Form("parola")


Burada Formdan Gelen inputlarımızın adıyla çektiğimiz değerleri

Bir Değişkene Eşitliyoruz. Ben Aynı İsimleri Kullandım Kafanız Karışmasın

Diye. Daha Sonra Bir İki Kontrol.

IF Request.Form("username") = "" or Request.Form("parola") = "" THEN
Response.Redirect("Error.asp")
END IF

’Tablomuza Bağlanıyoruz.
Set Tablo = Server.CreateObject("adodb.recordset")
sql = "Select * From uyeler where username=’"&username&"’ or parola=’"&parola&"’"
Tablo_Open sql , Baglantim ,1,3


Recordsetimizin İlk Satırında Tablo Bağlantı Nesnemizi Yazdık.

İkinci Satırda Sorgumuz Var * İle uyeler Tablosundaki Tüm Alanları

Seçtik. Where ile de username ve parola alanlarını belirttik. 3. Satırda İse Bağlantımızı Açtık 1,3 İle Silinebilir ve Yazılabilir

Yaptık.

Şimdi İse Bi Kontrol Daha....

IF NOT Request.Form("username") = Tablo("username") THEN
Response.Redirect("Error.asp")
END IF

IF NOT Request.Form("parola") = Tablo("parola") THEN
Response.Redirect("Error.asp")
END IF
Yukarıda Eğer Formdan Gelen Username ve Parola DB de Yoksa Eğer

Hata Verdirmesini Sağladık.

Session("girdim") = "evet" >>> İşte Login.asp de Kullandığımız Session :)
Session("username") = Tablo("username")
Session("parola") = Tablo("parola")
Response.Redirect("Login.asp")


Oturum Nesnelerimizi Açıp Login.asp ye Döndük.
------------------------------------------------------------------

Eveeet.Girisimizide Yaptık. Bu Sayfanın Anlamını Kısaca Özetliyim.

DB Bağlandık. uyeler Tablomuza Bağlandık.Daha Sonra Formdan Gelen

verileir Çektik ve Kontrol Ettik. Databasedeki Değerlerle Tutuyomu Diye.

Tutuyosa Değerleri Session a Atadık. Yani Oturum Nesnelerine.

Daha Sonra Değerler Birbirini tutuyorsa Oturumu Aç Dedik. İşte Bu Kadar.

---------------------------------------------------------------------

---------UyeOl.asp---------------------------------------------------

Ama Bir Üyemiz Olmassa Nereye Girecez ki :D Uye Kayıt Formunu Yapmayı

Unuttuk. Hemen Yapalım.

<form action="UyeKaydet.asp" method=post>
<table align="center" border="0" width="200" height="300">
<tr>
<td align="right">Username :</td>
<td align="left"><input type="text" name="username"></td>
</tr>
<tr>
<td align="right">Parola :</td>
<td align="left"><input type="password" name="parola"></td>
</tr>
<tr>
<td><input type="submit" value="Kayıt" name="kayit"></td>
<td> </td>
</tr>
</table>
</form>


Şimdi Bu Sayfamızda hazır. Bu Sayfada Form Action ="UyeKaydet.asp"

Şimdi UyeKaydet.asp yi Oluşturalım.

-------------------------------------------------------------------
----------------UyeKaydet.asp-------------------------------------
’Databse’e Bağlanalım.

Set Baglantim = Server.CreateObject("adodb.connection")
’Baglantim.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Database.mdb")
’Formdan Gelen Verileri Çekelim.

username = Request.Form("username")
parola = Request.Form("parola")

IF Request.Form("username") = "" or Request.Form("parola") = "" THEN
Response.Redirect("Error.asp")
END IF

’Tablomuza Bağlanıyoruz.
Set Kayit = Server.CreateObject("adodb.recordset")
sql = "Select * From uyeler"
Kayit.Open sql , Baglantim ,1,3

Recordsetimizin İlk Satırında Tablo Bağlantı Nesnemizi Yazdık.

İkinci Satırda Sorgumuz Var * İle uyeler Tablosundaki Tüm Alanları

Seçtik.3. Satırda İse Bağlantımızı Açtık 1,3 İle Silinebilir ve Yazılabilir Yaptık.

Şimdi Kaydımızı Gerçekleştirelim.

Kayit.AddNew
Kayit("username") = Request.Form("username")
Kayit("parola") = Request.Form("parola")
Kayit.Update
Kayit.Close
Set Kayit = Nothing
Baglantim.Close
Set Baglantim = Nothing
Response.Redirect("Login.asp")
---------------------------------------------------------------------


UyeKaydet.asp miz de Var Artık. Bide Logout ve Error.asp leri Unuttuk Onlarıda Hemen yapalım.

------------------Logout.asp-------------------------------------
Session.Abandon
Response.Redirect("Login.asp")
-----------------------------------------------------------------
------------------Error.asp---------------------------------------
Bir Sorun Var. Lütfen Geri Dönüp Kontrol Ediniz.
<a href= "javascript:history.back();">Geri Dön</a>
------------------------------------------------------------------



Eveet. Üyelik Sistemimiz Bitti. Arkadaşlar Bu Dediğim Gibi Tasarım

Olarak Zayıf Ayrıca Programı Açısından da Zayıf Bir Sistemdir. Sadece

Bilmeyen Arkadaşlara Mantığını Kavratmak Adına Yazım Bu Dökümanı.

Bunun Belki Admin Sayfası Olacak Profil Düzenleme Sayfası Olacak.

Daha da Gelişmişlerinde Bunlar Olmalı. Bunda Mantığını Bi Kavrayın




ßiR TeseKKürü Cok gÖrmeSSiniz UMarım ..







CyßeriaN
 
saoL kaRdes...
 
Arkadaşım çok saol emeklerin için. Çok faydalı bi döküman
 
Ellerine emegine saglık ragbet görür kafanı yorma kardeş
 
Teşekkürler Arkadaşım. Gayet kısa ve öz olmuş.
 
bakalım alıştırmasını yapalım :) Eyw..
 
çok teşekkürler dostum,eline sağlık
 
Geri
Üst