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

Üyelik sistemi konulu dersimize devam ediyoruz.

Üyelik sistemi konulu dersimize devam ediyoruz.

Veri tabanı kayıt işlemi başarılı olması durumunda:

basarili.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">        

      <%response.write("İşlem Başarılı.<br>")

      response.write("Hoş Geldin "&session("uyeadi"))

        response.write("<br><a href='default.asp'>Anasayfa'ya Git</a>")

        

        %></td>

      

    </tr>

  </table>

</div>

</body>

</html>




anasayfada üye giris alanımız:

uyegiris.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>







<%

if session("id")<>"" then

%>



<div class="menutitle">Giriş</div>

Hoş Geldin  <%=session("uyeadi")%>

<%if session("yetki")="1" then%>

<br>

<a href="admin/default.asp">Admin Giriş</a>

<br>

<a href="moderator/default.asp">Moderator Giriş</a>

<br>

<%end if%>

<%if session("yetki")="2" then%>

<br>

<a href="moderator/default.asp">Moderator Girşi</a>

<br>

<%end if%>

<a href="cikis.asp">Güvenli Çıkış</a>

<%else%>

<div class="menutitle">Giriş</div><ul>

<form action="kontrol.asp" method="post">

Kullanıcı Adı:<br>

 <input name="uyead" type="text" id="uyead" size="12" /><br>

Şifre:    <br>    <input name="uyesifre" type="password" id="uyesifre" size="12" />

<input type="submit"  value="Giriş" />

<br>

<a href="uyeol.asp" class="menutitle">&nbsp;&nbsp; Üye Ol</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="sifrehatirlat.asp">Şifremi Unuttum</a>

</form>

<%end if%>





uyegiris formundan alandan doldurulup formun kontrol için gönderildiği bölüm:

kontrol.asp



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

<%

kuld=request.form("uyead")

sifd=request.form("uyesifre")



set uyead=server.CreateObject("adodb.recordset")

sql="select * from uye where uyead='"&kuld&"' and uyesifre='"&sifd&"'"

uyead.open sql,bag,1,3

if not uyead.eof then

session("giri&#254;")="giri&#254;"

Session("idd")=Session.SessionID

session("toplam")=session("toplam")+1

session("id")=uyead("id")

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

session("yetki")=uyead("yetki")

session("adi")=uyead("ad")

session("soyadi")=uyead("soyad")

response.Redirect("default.asp")

else

response.Redirect("hata.asp")

end if

%>

  • Etiketler;
Yorum Yaz

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

Çok iyi ama benim web tasarımı en başından öğrenmem gerek bana yardım edebilecek varsa iyi olur.
Çok çalışman lazım çokk :)
eLLerine sagLik,güzeL bi caLisma, Ve güzeL bi payLasim oLmus. Tesekkür Ederim İyi caLismaLar...
ellerine saglık çok güzel bir paylaşım tşkkr edrm...:D:D:gul:
emeğinize sağlık hocam, sizden bi isteğim olacak bu kodları hazılarken veri tabanı bağlantısını nasıl yapabiliriz
harika anlatım ellerinize sağlık
bana ulaşın ben açıklamalı hazırlıyabilirim..

Yukarı Git