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)