Private Function CreateAuthTicket(ByVal userName As String, ByVal roles As String, _
ByVal persistent As Boolean) As FormsAuthenticationTicket
Return New FormsAuthenticationTicket(1, userName, DateTime.Now, _
DateTime.Now.AddMinutes(60), persistent, roles)
End Function
Private Function CreateAuthCookie(ByVal authTicket As FormsAuthenticationTicket) As HttpCookie
Return New HttpCookie(FormsAuthentication.FormsCookieName, _
FormsAuthentication.Encrypt(authTicket))
End Function
写在你验证的地方
Dim authTicket As FormsAuthenticationTicket
Dim authCookie As HttpCookie
IF 有这个用户意见THEN
authTicket = CreateAuthTicket(txtUserID.Text, CStr(viewstate("roles")), False)
authCookie = CreateAuthCookie(authTicket)
HttpContext.Current.Response.Cookies.Add(authCookie)
END IF