If Request.Cookies("your cookie name اسم الكوكي") Is Nothing Thenتقوم اولا بالتأكد من عدم وجود الكوكى
Dim co As New HttpCookie("CookieName")
co("UserName اول مفتاح مثلا اسم المستخدم") = txtname.Text
co("passwordالمفتاح الثانى مثلا كلمة السر ") = txtpass.Text
co.Expires = Now.AddDays(1) تحديد متى ستنتهى صلاحية هذا الكوكى
Response.Cookies.Add(co)
End If
كيف تأخذ قيمة من الكوكى
If Not Request.Cookies("mcit") Is Nothing Then
هنا سناأخذها فى تكست بوكس ("txtname.Text = Request.Cookies("CookieName").Values("userid
txtpass.Attributes.Add("value", Request.Cookies("CookieName").Item("password")
وهنا أيضا ,استخدمنا الصفة لان شكل الكتابة على هيئة نجوم
End If
0 التعليقات:
إرسال تعليق