if 用户名密码正确 then Dim ticket As FormsAuthenticationTicket = New FormsAuthenticationTicket(1,Name, DateTime.Now, DateTime.Now.AddDays(1),False,GroupNames,FormsAuthentication.FormsCookiePath) Dim hash As String = FormsAuthentication.Encrypt(ticket) Dim cookie As HttpCookie = New HttpCookie(FormsAuthentication.FormsCookieName, hash) If (ticket.IsPersistent) Then cookie.Expires = ticket.Expiration HttpContext.Current.Response.Cookies.Add(cookie) end if Public Sub Logout Dim cookie As HttpCookie cookie = FormsAuthentication.GetAuthCookie(Page.User.Identity.Name, True) cookie.Expires = New DateTime(0) HttpContext.Current.Response.Cookies.Add(cookie) FormsAuthentication.SignOut() Page.Response.Redirect("/admin/login.aspx") End Sub 其中FormsAuthenticationTicket有很多有用的参数,建议楼主去查阅一下MSDN再来。
这个只用来改写Profile或membership时候用~~~~
内部机制API,建议非微软员工不使用它,哈哈~~~~~~~~~
开个玩笑啦 ~~~
if 用户名密码正确 then
Dim ticket As FormsAuthenticationTicket = New FormsAuthenticationTicket(1,Name, DateTime.Now, DateTime.Now.AddDays(1),False,GroupNames,FormsAuthentication.FormsCookiePath)
Dim hash As String = FormsAuthentication.Encrypt(ticket)
Dim cookie As HttpCookie = New HttpCookie(FormsAuthentication.FormsCookieName, hash)
If (ticket.IsPersistent) Then cookie.Expires = ticket.Expiration
HttpContext.Current.Response.Cookies.Add(cookie)
end if
Public Sub Logout
Dim cookie As HttpCookie
cookie = FormsAuthentication.GetAuthCookie(Page.User.Identity.Name, True)
cookie.Expires = New DateTime(0)
HttpContext.Current.Response.Cookies.Add(cookie)
FormsAuthentication.SignOut()
Page.Response.Redirect("/admin/login.aspx")
End Sub
其中FormsAuthenticationTicket有很多有用的参数,建议楼主去查阅一下MSDN再来。