Video Anlatımı İzlemek İçin Tıklayınız
------------------------------------------
Videoyu İndirmek İçin Tıklayınız
------------------------------------
Denemek İçin Tıklayınız
--------------------------
Belgeleri İndirmek İçin Tıklayınız
*****************************************************************************
VERİTABANI:
Not:Veritabanı belgesi "veritabani" klasörünün içinde olmalıdır.
Veritabanı Adı:veritabani.mdb
Tablo Adı:uyeler
Sütünlar:
id(Otomatik Sayı)
kullaniciadi(Metin)
sifre(Metin)
ad(Metin)
soyad(Metin)
KODLAR
baglanti.asp
<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani/veritabani.mdb")
%>
index.asp<html>
<head>
<meta http-equiv="Content-Language" content="tr" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled 1</title>
</head>
<body>
<form action="uyegiris.asp" method="post">
<table style="width: 100%">
<tr>
<td style="width: 85px">Kullanıcı adı:</td>
<td><input type="text" name="kullaniciadi" /></td>
</tr>
<tr>
<td style="width: 85px">Şifre:</td>
<td><input type="password" name="sifre" /></td>
</tr>
<tr>
<td style="width: 85px"></td>
<td><input type="submit" value="Giriş!" />
<a href="kayitol.asp">kayıt ol</a></td>
</tr>
</table>
</form>
</body>
</html>
kayitol.asp<html>
<head>
<meta http-equiv="Content-Language" content="tr" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
<form action="kayit.asp" method="post">
<table style="width: 100%">
<tr>
<td style="width: 108px">Kullanıcı Adı:</td>
<td><input type="text" name="kullaniciadi" /></td>
</tr>
<tr>
<td style="width: 108px">Şifre:</td>
<td><input type="password" name="sifre" /></td>
</tr>
<tr>
<td style="width: 108px">Ad:</td>
<td><input type="text" name="ad" /></td>
</tr>
<tr>
<td style="width: 108px">Soyad:</td>
<td><input type="text" name="soyad" /></td>
</tr>
<tr>
<td>
</td>
<td>
<input type="submit" value="Kayıt Ol!" />
</td>
</tr>
</table>
</form>
</html>
kayit.asp<!--#include file="baglanti.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="tr" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled 1</title>
<%
kullaniciadi = request.form("kullaniciadi")
sifre = request.form("sifre")
ad = request.form("ad")
soyad = request.form("soyad")
Set tablo = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from uyeler"
tablo.open sql,baglanti,1,3
tablo.AddNew
tablo("ad") = ad
tablo("soyad") = soyad
tablo("kullaniciadi") = kullaniciadi
tablo("sifre") = sifre
tablo.update
Response.Write ("Kayıt Tamam.")
%>
</head>
</html>
uyegiris.asp<!--#include file="baglanti.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="tr" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled 1</title>
<%
kullaniciadi = request.form("kullaniciadi")
sifre = request.form("sifre")
Set tablo = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from uyeler WHERE kullaniciadi='"& kullaniciadi &"' and sifre='"& sifre &"'"
tablo.open sql,baglanti,1,3
if tablo.eof then
response.write ("kayıt bulunamadı")
else
Session("id") = tablo("id")
Session("ad") = tablo("ad")
Session("soyad") = tablo("soyad")
Session("giris") = var
response.redirect "uye.asp"
end if
%>
</head>
uye.asp<html>
<head>
<%
if Len(Session("id"))=0 then
call girmedi
else
call girdi
end if
%>
<%Sub girmedi%>
<% Response.Write ("giriş yapınız.")
%>
<% end sub %>
<%Sub girdi%>
<meta http-equiv="Content-Language" content="tr" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Hoşgeldiniz</title>
</head>
<body>
<table style="width: 100%">
<tr>
<td style="width: 99px">Hoşgeldiniz;</td>
<td style="width: 155px"></td>
</tr>
<tr>
<td style="width: 99px"><a href="cikis.asp">Çıkış</a></td>
<td style="width: 155px"></td>
</tr>
</table>
<% end sub %>
</body>
</html>
cikis.asp<%
Session("id") = 0
Session.Abandon()
response.redirect "index.asp"
%>
Umarım işinize yaramıştır.Sorularınız için özel mesaj atın.