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
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
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