Merhaba değerli arkadaşlar ben yapmakta olduğum bir web sitesine üye giriş paneli açtım. Veritabanı ile ilişkisini kurdum. Fakat bir sorun var. Veritabanında kayıtlı olan ilk üyenin kullanıcı adı ve şifresiyle giriş yaptığımda sorunsuz giriş yapılıyor. Ama veri tabanındaki kayıtlı diğer üyelerin giriş bilgilerini kabul etmiyor. Yani veritabanının birinci sırasındaki kayıtlı üyenin biliglerinden başka bilgileri kabul etmiyor size kodları gönderiyorum. Bir zahmet yardımlarınız bekliyorum. Vakit ayırıp okuduğunuz ve yardımlarınız için şimdiden teşekkür ederim
=======================UyeGiris.asp=================================
<%
DbYol = Server.MapPath("DataBAse.mdb")
Set cbm = Server.CreateObject("Adodb.Connection")
cbm.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&DbYol&";"
%>
<%
Set mk=Server.CreateObject("ADODB.Recordset")
mkSql="Select stid,stKullaniciAdi, stPassword from tbUyeler"
mk.Open mkSql,cbm
%>
<%
if Request.Cookies("Beni")="LogonTure" Then
Session("Kullaniciadi")="True"
Session("Password")="True"
Response.Redirect("index.asp")
end if
%>
<html>
<head>
<title>Üye Girişi</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<body>
<form name="form1" method="post" action="UyeKontrol.asp">
<div align="center">
<table width="310" border="0" cellspacing="5" cellpadding="5">
<tr>
<td width="107"><span class="style3">Kullanıcı Adı </span></td>
<td width="8"><div align="center" class="style1 style4">:</div></td>
<td width="148"><input name="KullaniciAdi" type="text" id="KullaniciAdi2"></td>
</tr>
<tr>
<td><span class="style3">Şifre</span></td>
<td><div align="center" class="style3">:</div></td>
<td><input name="Password" type="password" id="Password2"></td>
</tr>
<tr>
<td><span class="style3">Beni hatırla </span></td>
<td><div align="center" class="style3">:</div></td>
<td><input name="Cookie" type="checkbox" id="Cookie2" value="iHatirla">
<input type="submit" name="Submit" value="Gönder"></td>
</tr>
<%if request.QueryString("Hata")="False" Then%>
<tr>
<td colspan="3"><div align="center" class="style5">Kullanıcı adnızı veya şifreniz hatalı </div></td>
</tr>
<%end if%>
</table>
</div>
</form>
<%if request.QueryString("Logon")="izinsiz" Then%>
<span class="style5 style4">Sitemizden yararlanabilmek için üye girişi yapmanız gerekmektedir. Eğer üye değilseniz aşağıdaki linke tıklayarak üye olabilirsiniz. </span>
<%end if%>
<hr><br><Center><a href="index-3.asp">Ücretsiz üye ol</a> | <a href="PasswordHatirlatma.asp">Şifremi unuttum</a> </Center>
</body>
</html>
=================================UyeKontrol.asp=================
<%
DbYol = Server.MapPath("DataBAse.mdb")
Set cbm = Server.CreateObject("Adodb.Connection")
cbm.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&DbYol&";"
%>
<%
Set mk=Server.CreateObject("ADODB.Recordset")
mkSql="Select stKullaniciAdi, stPassword from tbUyeler"
mk.Open mkSql,cbm
%>
<%
if (Request.Form("KullaniciAdi")=mk("stKullaniciAdi") and Request.Form("Password")=mk("stPassword")) Then
Session("KullaniciAdi")="True"
Session("Password")="True"
if Request.Form("Cookie")="Hatirla" Then
Response.Cookies("Beni")="LogonTure"
Response.Cookies("Beni").Expires=DATE()+15
end if
Response.Redirect("index.asp?Giris=True")
else
Session("KullaniciAdi")="False"
Session("Password")="False"
Response.Redirect("UyeGiris.asp?Hata=False")
end if
%>
=======================UyeGiris.asp=================================
<%
DbYol = Server.MapPath("DataBAse.mdb")
Set cbm = Server.CreateObject("Adodb.Connection")
cbm.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&DbYol&";"
%>
<%
Set mk=Server.CreateObject("ADODB.Recordset")
mkSql="Select stid,stKullaniciAdi, stPassword from tbUyeler"
mk.Open mkSql,cbm
%>
<%
if Request.Cookies("Beni")="LogonTure" Then
Session("Kullaniciadi")="True"
Session("Password")="True"
Response.Redirect("index.asp")
end if
%>
<html>
<head>
<title>Üye Girişi</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<body>
<form name="form1" method="post" action="UyeKontrol.asp">
<div align="center">
<table width="310" border="0" cellspacing="5" cellpadding="5">
<tr>
<td width="107"><span class="style3">Kullanıcı Adı </span></td>
<td width="8"><div align="center" class="style1 style4">:</div></td>
<td width="148"><input name="KullaniciAdi" type="text" id="KullaniciAdi2"></td>
</tr>
<tr>
<td><span class="style3">Şifre</span></td>
<td><div align="center" class="style3">:</div></td>
<td><input name="Password" type="password" id="Password2"></td>
</tr>
<tr>
<td><span class="style3">Beni hatırla </span></td>
<td><div align="center" class="style3">:</div></td>
<td><input name="Cookie" type="checkbox" id="Cookie2" value="iHatirla">
<input type="submit" name="Submit" value="Gönder"></td>
</tr>
<%if request.QueryString("Hata")="False" Then%>
<tr>
<td colspan="3"><div align="center" class="style5">Kullanıcı adnızı veya şifreniz hatalı </div></td>
</tr>
<%end if%>
</table>
</div>
</form>
<%if request.QueryString("Logon")="izinsiz" Then%>
<span class="style5 style4">Sitemizden yararlanabilmek için üye girişi yapmanız gerekmektedir. Eğer üye değilseniz aşağıdaki linke tıklayarak üye olabilirsiniz. </span>
<%end if%>
<hr><br><Center><a href="index-3.asp">Ücretsiz üye ol</a> | <a href="PasswordHatirlatma.asp">Şifremi unuttum</a> </Center>
</body>
</html>
=================================UyeKontrol.asp=================
<%
DbYol = Server.MapPath("DataBAse.mdb")
Set cbm = Server.CreateObject("Adodb.Connection")
cbm.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&DbYol&";"
%>
<%
Set mk=Server.CreateObject("ADODB.Recordset")
mkSql="Select stKullaniciAdi, stPassword from tbUyeler"
mk.Open mkSql,cbm
%>
<%
if (Request.Form("KullaniciAdi")=mk("stKullaniciAdi") and Request.Form("Password")=mk("stPassword")) Then
Session("KullaniciAdi")="True"
Session("Password")="True"
if Request.Form("Cookie")="Hatirla" Then
Response.Cookies("Beni")="LogonTure"
Response.Cookies("Beni").Expires=DATE()+15
end if
Response.Redirect("index.asp?Giris=True")
else
Session("KullaniciAdi")="False"
Session("Password")="False"
Response.Redirect("UyeGiris.asp?Hata=False")
end if
%>
