Public Sub Create_CookiesUser()
Response.Cookies("myCookie")("User") = txtUsername.Text
Response.Cookies("myCookie")("Pass") = txtPassword.Text
Response.Cookies("myCookie")("Status") = "True"
Response.Cookies("myCookie").Expires = DateTime.Now.AddDays(365)
End Sub
Code (ASP)
Public Sub Read_Cookies()
If Not IsNothing(Request.Cookies("myCookie")) Then
txtUsername.Text = Request.Cookies("myCookie")("User")
txtPassword.Text = Request.Cookies("myCookie")("Pass")
ChkKeepLogin.Checked = Request.Cookies("myCookie")("Status")
End If
End Sub
Code (ASP)
Public Sub Del_Cookies()
If Not IsNothing(Request.Cookies("myCookie")) Then
Dim DelCookie As HttpCookie
DelCookie = New HttpCookie("myCookie")
DelCookie.Expires = DateTime.Now.AddDays(-365D)
Response.Cookies.Add(DelCookie)
End If
End Sub
แล้วเวลา Log out ออกจะทำอย่างไร ให้
Username และ Password ยังโชว์ User ที่ใสไปอยู่
และ Keep me ยังติ๊กอยู่
ใส่ผิดพลาดอย่างไรขอโทษด้วยครับ ไม่เคยใช้ Cookies ครับ