求在登录页面中写入cookie信息到客户端的vb代码

Question

太简单的吗！就是怎么把cookie信息放到文本中?

Answer 1

Dim UserRoles As String = UserToRoles(reader("M_LEVEL"))
                    '建立身份验证票对象
                    Dim Ticket As New FormsAuthenticationTicket(1, UserName.Text, DateTime.Now, DateTime.Now.AddMinutes(30), False, UserRoles, "/")
                    '加密序列化验证票为字符串
                    Dim HashTicket As String = FormsAuthentication.Encrypt(Ticket)
                    '生成Cookie
                    Dim UserCookie As New HttpCookie(FormsAuthentication.FormsCookieName, HashTicket)
                    '输出Cookie
                    Context.Response.Cookies.Add(UserCookie)