|  | 
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 | : 6793 |  |  |  |  |  |  |  |  | Ü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. | 
 |