|
ASP de üyelik sistemi yapalim - ASP Webmaster bilgi bankası, knowledge base Webmaster Araçları
AnaSayfa > ASP > ASP de üyelik sistemi yapalim |
| Kategori | : ASP | Gönderen | : Admin | Tarih | : 2008-11-11 | Puan | : 0 | Katılımcı : 0 | Okunma | : 6458 | | | |
| | Üyelik Sistemi Yapalım (1.Bölüm)
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
Kod Çizelgesi Kod Dili: php
<%
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
Kod Çizelgesi Kod Dili: php
<!--#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"> </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
Kod Çizelgesi Kod Dili: php
<!--#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
%>
|
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. |
|