" Umut, hiç görmeyen birine gökkuşağını anlatmak kadar zor ve imkansız... "

Categories

-

Asp.Net ile cookie hazirlamak ve kullanmak

Herkezin bildigi gibi çerezler genellikle istemci bilgisayarda kullanici hakkinda bilgi içeren text dosyalaridir. Cookie (çerezler)'ler web sayfamizin belli bir kullaniciya özel bilgilerini tutmamizi saglar. Böylece o kullanici bizim web sayfamiza bir sonraki girisinde onu taniyabilir ve ona özel islemler yapabiliriz. "Response" nesnesinin bir koleksiyonu olan çerezler istemcinin bilgisayarinda küçük text (*.txt)dosyalari halinde saklanir.

  • Cookie olustururken ilk önce çerezimize isim veririz, bu örnekte "mycookies" adini verdik.
     
  • Daha sonra kaydetmek istedigimiz verileri çerezin içine yazariz, örnegin asagida da görüldügü gibi kullanicinin mail adresi, adi ve soyadini kaydediyoruz. 
     
  • Çerezlerin belli bir süre için geçerli olmalarini istiyorsak bunu "mycookies.Expires" özelligine Date(); tipinde bir degisken atayarak belirtiyoruz (veya asagidaki gibi olusturuldugu andan 15 gün sonrasina kadar geçerli olmasini sagliyoruz). Son olarak da "Response.Cookies.Add(mycookies)" diyerek çerezimizi istemcinin bilgisayarina kaydetmis oluyoruz.
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

    End Sub
    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim mycookies As HttpCookie = New HttpCookie("www.okanduzgun.com")
        mycookies("Font") = "Arial"
        ' Koleksiyon nesnesi hazirlayip bu nesneye anahtar-deger seklinde düzenlenmis bilgileri ekleyip
        ' sonra bu koleksiyon nesnesini HttpCookie nesnesinin value özelligine aktaracagiz.
        Dim bilgiler As New System.Collections.Specialized.NameValueCollection
        ' Anahtar - Deger 
        bilgiler.Add("@uyemail", "info@okanduzgun.com")
        bilgiler.Add("@adi", "Okan")
        bilgiler.Add("@soyadi", "Düzgün")
        ' Degerlerimizi ekliyoruz.
        mycookies.Values.Add(bilgiler)
        ' Cookie bilgilerimiz istemci bilgisayarda ne kadar süre ile kalacagini belirliyoruz.
        mycookies.Expires = DateTime.Now.AddDays(15)
        Response.Cookies.Add(mycookies)
        Label1.Text = "Cookie olusturuldu !"
    End Sub
    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        ' Cookie dosyasindan okuma yapmak istedigimizde, cookie dosyamizin var olup olmadigini kontrol ediyoruz.
        If Request.Cookies("www.okanduzgun.com") IsNot Nothing Then

            Dim mycookies As HttpCookie = Request.Cookies("www.okanduzgun.com")
            Label1.Text = "Cookies bulundu !"
            Label2.Text = mycookies.Item("@uyemail")
        Else
            Label1.Text = "Cookie bulunamadi !"
        End If
    End Sub
End Class


Uygulama dosyasini buradan indirebilirsiniz.

  • 0
  • 2492
  • 0

- BUNLARIDA GÖZDEN GEÇİREBİLİRSİNİZ -

HENÜZ YORUM YAPILMAMIŞ !

Yorum yazın

HAKKIMDA

KONULARI TAKİP EDİN

SOSYAL AĞLAR

  • Mesajınızı Gonderin