Aspde Üyelik Sistemi Yapma! - Seversintabi.com Türkiye'nin En Büyük Forumu Bence Seversin Tabi

**Yorgun Yürek** · #1 2 June 2009, 12:32

Evet arkadaşlar bu örneği yaptıktan sonra basitte olsa bir üyelik sistemi yapabileceksiniz.!

şimdi basit bir tasarım yapalım.!

İlk önce bir Sayfa oluşturalım default.asp olarak yada siz istediğiniz adı verebilirsiniz ama türkçe karekterler içermemesine dikkat edin ben burda direk yaptım eğer siz wwwroot'un içinde bir dosya açtıysanız örneğin web çalıştırırken ise [Link'i Görebilmeniz İçin Kayıt Olunuz.! Kayıt OL] olaral belirtmeniz gerekir.
Şimdi default.asp adlı bir text klasörü oluşturduktan sonra aşağıdaki kodlarımızı yazıyoruz.
<html>
<head>
<meta equiv-http="Content-Type"content="text/html; charset=ISO-8859-9">
<meta equiv-http="Content-Type"content="text/html; charset=Windows-1254">
<title>Üyelik Sistemi|Forumuz.net|</title>
</head>
<body bgcolor="#F4F4F4">
<table border="2" align="center" cellspacing="2" cellspadding="2" bgcolor="#F4F4F4">
<form action="islem.asp" method="post">
<tr>
<td><font face="Comic Sans Ms" size="2" color="#000000"><b>Kullanıcı Adı:</b></td>
<td><input type="text" maxLength="12" size="20" name="kullanici"><b>(Max.12)</b></td>
</tr>

<tr>
<td><font face="Comic Sans Ms" size="2" color="#000000"><b>Parola:</b></td>
<td><input type="password" maxLength="12" size="20" name="parola"><b>(Max.12)</b></td>
</tr>

<tr>
<td><font face="Comic Sans Ms" size="2" color="#000000"><b>E-Mail:</b></td>
<td><input type="text" maxLength="100" size="20" name="email"><b>(Max.100)</b></td>
</tr>

<tr>
<td></td>
<td><input type="submit" value="GÖNDER" size="20"> <input type="reset" value="SİL" value="20"></td>
</tr>
</form>
</table>
</body>
</html>

Daha sonra "islem.asp" olarak bir text klasörü oluşturalım.! ama bu dosyalarla kodlama yaptıktan sonra farklı kaydet diyerek örneğin:default.asp olarak uzantısınıda girin yoksa sayfanız bir text klasörü olarak yorumlanır açılmaz.

(*) işareti yani orası örneğin alt kısmında açıklanacaktır.!

<%
kullanici=Request.Form("kullanici")
parola=Request.Form("parola")
email=Request.Form("email")

(*)If kullanici="" or parola="" Then
Response.Write "<center><b>Lütfen Boş Alan Bırakmayınız!</b></center>"
End If
(*)Response.End ()
Set baglanti=Server.CreateObject("Adodb.Connection")
(*)baglanti.Open "Provider=Microsoft.Oledb.Jet.4.0; Data Source=" & Server.MapPath("veritabaniadi.mdb")

(*)Set ks=Server.CreateObject("Adodb.Recordset")
(*)SQL="Select * from uyeler"
ks.Open SQL,uyeler,1,3

ks.AddNew
ks("kullanici")="kullanici"
ks("parola")="parola"
ks("email")="email"
(*)ks.Update

ks.Close
(*)Set ks=Nothing

baglanti.Close
(*)Set baglanti=Nothing

Response.Write "<center><b>Tebrikler Başarıyla Üye OLdunuz...!</b></center>"

Evet 1.(*) If kullanici="" or parola="" Then yani eğer bu inputlar boşsa uyarı ver anlamındadır.

2.(*)Response.End () ise oraya kadar yapılan işlemi kullanıcının pcsinde tamponlasın diye belirttim eğer yapmazsak değerler dolo olsa bile uyarı verir.

3.(*)Ben orda Provider kullandım siz ise ODBC bağlantıda kullanabilirsiniz.

4.(*)Set ks dedim siz o nesnenin adını istediğiniz bir şey yapabilirsiniz!

5.(*)Ben orda SQL adlı bir nesneye tablo değerleri eşitledim siz o SQLi ister ahmet ister veli yapabilirsiniz. ordaki * ise tablodaki bütün ögeleri seç anlamında mesala kullanici,parola deseydik onlar üzerinde işlem yapabilecektik 1,3 ise hem yazılarbilir hemde okunabilir izin vermek

6.(*)ks.Update ise sürekli güncellemesini sağlar böylece tablomuz sürekli güncel kalır şişmez.

7.(*)Set ks=Nothing tablo baglantisini kapatma eğer 8.(*) veritabani baglantisını önce kapatırsanız sistem hata verir o yüzden önce tablomuzu kapattıktan sonra veritabanımızı kapatıyoruz.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
hiiii!!! *PeRi*	PeRi	Ben Geldim	14	4 June 2009 08:38
Çikolata yemek öpüşmekten zevkliymiş	ceyLin	Evlilik ve cinsel yaşam	0	25 November 2008 16:24
Msndeki Reklamları Kaldır [Programsız]	ceyLin	MSN mesenger	0	8 November 2008 16:19

Benzer Konular