1.850 kez okundu

Asp de üyelik sistemi nasıl yapılır

10 10 1.850 kez okundu incelendi

3 dersden oluşacak olan asp üyelik siteminde ilk ders ;

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:

[b]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
%>

Gelen aramalar :

Paylaş !

Yoruma kapali.

Önceki yazıyı okuyun:
Asp de Sitenin Performası Nasıl Arttırılır

Web uygulamalarımızda sitelerimizin hızı son kullanıcı için oldukça önemlidir. Günümüz internet kullanıcıları için bu zaman 3-5 saniye olarak belirlenmiştir. Yani...

Kapat
Barış Ozcan Facebook Sayfasi
Barış Ozcan Twitter