antalya web tasarım

web tasarım

Facebook hayran sayısı arttırma paketleri

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

Aralık 18th 2010 | 12 sene önce yazıldı...

10 10 1.911 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

%>