Cookies"Beni Hatırla

CheckBox lu kullanıcı girişi
"beni Hatırla"


DB Adı : Veritabanim.mdb
Tablo adı : Uyeler
Sütunlar : id, kullanici_adi


<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Veritabani.mdb") ' ver tabanına bağlandık
%>

<form action="cook.asp" method=post>

<%
If request.cookies("fullasp")("hatirladinmi") = "hatirladim" Then ' cookie varsa çekiyoruz Doğrulama yapıyoruz.
kullanici=request.cookies("fullasp")("kullanici") ' eğer varsa kullanıcı adını çekiyoror ve yazdırıyoruz
%>
<Input Type="Text" name="kullanici_adi" value="<%=kullanici%>" style="font-style:verdana;font-size:8pt">
<%
Else ' eğer yoksa Input umuzu boş yazdırıyoruz
%>
<Input Type="Text" name="kullanici_adi" style="font-style:verdana;font-size:8pt">
<%
End If
%>

<Input Type="checkbox" name="hatirla" value="On">
<Input Type="submit" value="Bi dene Bakalım olacakmı" style="font-style:verdana;font-size:8pt">
<Input Type="hidden" name="dogrula" value="1">
</form>


<%
If request("dogrula")="1" Then ' aynı sayfada yaptığım içIn form alanına hidden nesne attım onu Doğrualdım.

kullanici_adi=request("kullanici_adi") ' formdan kullanıcı adını çektim

Set Rs = conn.execute("Select * from Uyeler where kullanici_adi="&kullanici_adi&" " ' Çektiğim veriyi Doğruluyorum login işlemleri

If rs.eof Then ' veri yoksa yada yanlış girilmişse ekrana yaz

response.Write " Böyle Bi üye Yok yada Yanlış Girdin Adını. "

Else ' Doğruysa alttaki işlemleri yap ;)

If request("hatirla")="On" Then ' checkboxumuz işaretliyse cookie bırakıyoruz değilse bişi yapmıyoruz XD
response.cookies("fullasp")("hatirladinmi") = "hatirladim" 'sayfaya girildiğinde cookieyi yaz
response.cookies("fullasp")("kullanici") = kullanici_adi ' Kullanıcı Adınıda Yazdıralımki cookieye hatırladıında inputa girsin :)
response.cookies("fullasp").expires = now()+24 'cookie 24 saat sonra iptal olsun
response.Write "Üye Girşi Yapıldı. Cookie Bilgisayarına düştü :)"
End If

End If
%>