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 localhost/web/default.asp 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">&nbsp;<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 SQLuyeler13

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 arkadaşlar ve bu sayfaları kaydetip http://localhost olarak çalıştırın
eğer bir klasör içine kaydettiyseniz o klasörüde örnğin:http://localhost/web/default.asp olarak belirtiniz.

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 kullaniciparola deseydik onlar üzerinde işlem yapabilecektik 13 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.

Evet şimdi bir üyelik sistemi Yapmış Olduk sorunlarınız için benle irtibata geçin!