Üyelik Sistemi Yapalım (1.Bölüm)

Evet arkadaşlar, bu dersimizde üyelik sistemi yapacağız.

DERS1

Evet arkadaşlar, bu dersimizde üyelik sistemi yapacağız.

Üyelik sisteminde admin ve mod panelerine bağlantı linkeleri oluşturacağız, fakat panellerimiz yok tabi ki, neyse başlayalım umarım işinize yarar.

Veri tabanı bağlantımız için:

ayarlar.asp


<%

set bag=server.createobject("adodb.connection")

bag.open "provider=microsoft.jet.oledb.4.0;data source="& server.mappath("vt.mdb")

%>




Kullanıcının üye olması için formumuzu hazırlıyoruz:

uyeol.asp



<!--#include file="ayarlar.asp"-->

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />

<title>emre çelebi sanalkurs.net</title>



</head>

<body>



<div align="left">

    <tr>

         <td align="center" valign="top" bgcolor="#E4E4E4">

                  

        <form id="form2" name="form2" method="post" action="uyeyap.asp"><br>

        <table width="229" border="0">

                    <tr>

            <td >Adınız:</td>

            <td ><input name="ad" type="text" id="ad" size="12" /></td>

            </tr>

          <tr>

            <td >Soyadınız:</td>

            <td ><input name="soyad" type="text" id="soyad" size="12" /></td>

          </tr>

          <tr>

          <tr>

            <td class="current">Nerelisiniz:</td>

            <td><input name="bulyer" type="text" id="bulyer" size="12" /></td>

            </tr>

            <td width="108" class="current">Kullanıcı Adınız:</td>

            <td width="76"><input name="uyead" type="text" id="uyead" size="12" /></td>

            </tr>

          <tr>

            <td class="current">Mail Adresiniz:</td>

            <td><input name="uyemail" type="text" id="uyemail" size="12" /></td>

            </tr>

          <tr>

            <td class="current">Şifre:</td>

            <td><input name="uyesifre" type="password" id="uyesifre" size="12" /></td>

            </tr>

          <tr>

            <td class="current">Şifre Tekrar:</td>

            <td><input name="uyesifret" type="password" id="uyesifret" size="12" /></td>

            </tr>

          <tr>

            <td class="current">&nbsp;</td>

            <td><div align="center">

              <input type="submit" name="button" id="button" value="Gönder" />

            </div></td>

            </tr>

        </table>

                </form>     

                 </td>

    

    </tr>

  </table>

</div>

</body>

</html>




uyeol.asp den gelen bilgilerin işleme alınığı bölüm:

uyeyap.asp



<!--#include file="ayarlar.asp"-->

<%

kuladi=request.form("uyead")

email=request.form("uyemail")

sifred=request.form("uyesifre")

sifred2=request.form("uyesifret")

adi=request.form("ad")

soyadi=request.form("soyad")

bulundugu=request.form("bulyer")

    set uye=server.createobject("adodb.recordset")

    sqlcumle="select * FROM uye where uyead='"&kuladi&"'"

    uye.open sqlcumle,bag,1,3

if not uye.eof then

if kuladi<>"" then

response.Redirect("hata.asp?hata=1")

end if

end if



set mail=server.createobject("adodb.recordset")

    sqlcumle="select * FROM uye where uyemail='"&email&"'"

    mail.open sqlcumle,bag,1,3

if not mail.eof then

if email<>"" then

response.Redirect("hata.asp?hata=7")

end if

end if

if adi="" then

response.Redirect("hata.asp?hata=8")

end if

if soyadi="" then

response.Redirect("hata.asp?hata=9")

end if

if kuladi="" then

response.Redirect("hata.asp?hata=2")

end if

if email="" then

response.Redirect("hata.asp?hata=3")

end if

if sifred="" then

response.Redirect("hata.asp?hata=4")

end if

if sifred2="" then

response.Redirect("hata.asp?hata=5")

end if

if sifred<>sifred2 then

response.Redirect("hata.asp?hata=6")

end if





if kuladi<>"" and email<>"" and sifred<>"" and sifred2<>"" then



uye.addnew

uye("uyead")=kuladi

uye("uyemail")=email

uye("uyesifre")=sifred

uye("soyad")=soyadi

uye("ad")=adi

uye("bulyer")=bulundugu

uye("yetki")="0"

uye.update

session("girs")="giris"

session("id")=uye("id")

session("uyeadi")=uye("uyead")

session("yetki")=uye("yetki")

session("adi")=uye("ad")

session("soyadi")=uye("soyad")

session("bulundugun")=uye("bulyer")

response.Redirect("basarili.asp")

else



end if

%>

<%

uye.close

set uye=nothing

bag.close

set bag=nothing



%>

  • Etiketler;
Emre Çelebi
C dilinin pratik yanlarına aşık bir web/masaüstü yazılımcısı. Vazgeçilmez hobi olarak da amatör fotoğraf çekimleri yapıyor.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

biraz da ha anşalır anlatsanız deil hiç anlamadım:gul:
Hocam harika anlatım çok işime yaradı emeğine sağlık :D
Anlayanınız var mı???
bu uyeol.asp ve uyeyap.asp hatta veriyor.farklı degişkenler kullanılıyor diye....
bunu anlamanız için bundan önceki adımarı html vs. gibi adımarı çoktan atmış olmanız gerekir eger bunları aşmışsanız bir sorun vardır.
BEN HICBIRSEY ANLAMADIM VALLA
uye.ol aspde hata verme gibi bir durum düşünmüyorum çünkü html kodlamavar asp yok uye.yap aspde hata olamaz çünkü bizzat denedim belki veri tabanı izinleri vermen gerekebilir. veri tabanına izinlerini ver.
arkadaşlar anlamamanız gayet normal 1. access dosyasını açmamışsın yada burda yazmamışsın 2. sadece kabataslak baktım 13. satırdaki uye.eof değişkeninin ne olduğunu bulamadım eişit değilse demişsin ama neye tanımlama yok sifremi yapacaktın onu
sevgili yavuzatug eğer 13. satırın olduğu bölümde dikkat ettiyse iç içe eğer kullanılmış "not uye.eof" değişkeni değil komutuyla uye tablosunu sonuna kadar tarıyor girilen değere eşit bir kayıt yoksa içteki döngüye girmeden kayıt işlemine devam ediyor eğer girilen kayıta eşit bir kayıt bulursa içteki döngüye giriyor ve hata.asp dosyasına da baktıysan karşına "girdiğiniz kullanıcı adı başka bir üyeye ait şeklinde bir mesaj vericektir." saygılar..
ayrıcaa flood yapıyorum ama kusura bakmayın yorum yazdığın sayfanın en başına bakarsan veri tabanı bağlantısı yapılıp diğer sayfalara include edilmiş. Arkadaşların anlamamalarının sebebi zannediyorumki asp bilgileri yeterli olmamaları diye düşünüyorum. saygılar..
biz burda veri tabanı olarak access mi kullanıyorus eğer kullanıyosak <% 'bağlantı stringimizi atıyoruz Dim ConnectionString 'veri tabanımızın yerini ve sürücü şeklini belirliyoruz ConnectionString="Driver={MicrosoftAccessDriver(*.mdb)};" &_ "DBQ=C:musthy.mdb;Uid=kullanici;Pwd=;" %> bu şekilde olacak dimi arkadaşım
evet veritabanı olarak access kullanım. senin kullandığında farklı bir bağlantı şekli, dikkat ettiysen en üstte ben provider taktiğiyle bağlantı yaptım sende istediğini kullanabilirsin.
:) Emre sen burada yenilere eğitim veriyorsun ve cok karısıktı :) orneğin hepsini tek tek if kullanici = "" Then response.redirect "dsadsa.asdpdsja" if sifre= "" Then response.redirect "dasdadsa" yapana kadar if kullanici = "" or sifre="" Then Response.write "Lütfen boş alan bırakmayınız gibi" END IF fakat uğraşmışsın eline sağlık dediğim gibi daha anlaşılır olabilirdi
Kardeş bir eksik de benden şifreyi unutan lar için şifre hatırlatma dosyan yoktır. Onuda hazırlayınız..
benm burda anlatma amacım okuyucuların bu işi anlamaları yoksa unutulan şeyleri sıralamak kolay.
veri tabanı izinlerini kontrol et pcsevgi
Öncelikle klasör seçeneklerinden Görünüm sekmesindeki Basit dosya paylaşımı kullan seçeneğinin tick'ini kaldır. Daha sonra; Veri tabanına özellikler yap. Güvenlik sekmesine gir ordan kullanıcı adını seçip izinlerini ver (Kullanıcı adılarında users bu kullanıcı adına izinleri ver!)
:uzul:EÐER HERKEZ O KADAR ÇOK ASP BİLSEYDİ İNTERNETTE O KADAR ÇOK ASP KAYNAK KODLU FORUMLAR BİLEMM DERSLER FELAN VERİLMEZDİ Shilly-cx BURAYA GİRENLER ZATEN ASP İLE SORUNU OLANLAR VEYA ASP HAZIR KOD ARAYANLAR GİRER AMA SEN MAALESEF RESMEN KODU KULLANACAK KİŞİYE YAZDIRMAYA ÇALIŞMIŞSIN.GENEDE EMEÐE SAYGI GÜZEL ÇALIŞMA.BENDE TASARIM OKUYORUM AMA BİRŞEY ANLAMADIM ÖRENCEZ ARTIK:kirp:
Tabikide herkes doğrudan bişeyi anlayamaz asp hakkında bişeyler pekiştirilsinki kodlar anlaşılsın. Bu dersi aspde üyelik sistemi mantığı kafalarına otursun bazı yerlerde gereksiz kodlar kullandığımın ve eksiklerimin farkındayım ama okurlarında kafalarında bişeyler pekişmesini sağladığımı düşünüyorum.
Anlaşılmayacak bir şey yok bence. Kimse yanlış anlamasın bu kodlar zaten işin en kolay kısmı eğer ki zaten bu kısmını anlamadıysanız. Geri kalan kısmını zaten yapamazsınız. Üzgünüm :( ...
Kardeş eline sağlık ama şifresini unutanlar için şifrehatirlat.asp yide yazmış olsaydın iyi olurdu.Yoksa şifresini unutanlar şifrelerini nasıl öğrenecekler???
Ders yararlı oldu tşk kardeş
Biraz olsa html bilginiz varsa pc ye ıss kurarak Emre nin anlattığını yapın ve güzel anlatım gerçekten kardeşim sen asp ben flash devam...
çok sağol
mdb dosyasınıda koysaydın iyi olurdu
sağol bayagısını anladım :gul:

Yukarı Git