2 June 2009, 12:32
|
 |
|
|
Kayıt Tarihi: 3 March 2009
Mesajlar: 35,077
Konular:
|
|
Aspde Üyelik Sistemi Yapma!
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.
|