Asp'de Üyelik Sistemi Yapalım 2.kisim - ASP Webmaster bilgi bankası, knowledge base Webmaster Araçları

AnaSayfa > ASP > Asp'de Üyelik Sistemi Yapalım 2.kisim

Kategori

: ASP

Gönderen

: Admin

Tarih

: 2008-11-11

Puan

: 10

| Katılımcı : 1

Okunma

: 6600

Üyelik sistemi konulu dersimize devam ediyoruz.

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

basarili.asp

Kod Çizelgesi Kod Dili: php

<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

Kod Çizelgesi Kod Dili: php
<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"> Üye Ol</a> <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

Kod Çizelgesi Kod Dili: php

<%
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þ")="giriþ"
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
%></b>

Yorumlar
Henüz Kimse Yorum Yapmamış, ilk yorumu siz ekleyin!
Yorum Ekleme Aparatı
Yorum Eklemek için lütfen sol menuden giris yapınız..
Toplam 0 yorum listelendi.

Başlıklar

Üye Girişi

Dost Siteler

Asp'de Üyelik Sistemi Yapalım 2.kisim - ASP Webmaster bilgi bankası, knowledge base Webmaster Araçları