傻我。我将 FormsAuthentication.RedirectFromLoginPage 命令的 cookie 参数设置为 True。这意味着身份验证 cookie 将保留 50 年。我想要的是让 cookie 在浏览器关闭时消失。如果 cookie 参数设置为 False,这很容易做到。如果有人感兴趣,这是我的代码...
Imports System.Web
Imports System.Web.Security
Imports System.Collections.Specialized
Imports System.Security.Principal
Imports System.Threading
Imports System.Web.UI
Public Class AuthModule
Implements IHttpModule
Public Sub Dispose() Implements System.Web.IHttpModule.Dispose
End Sub
Public Sub Init(ByVal app As System.Web.HttpApplication) Implements System.Web.IHttpModule.Init
AddHandler app.PreRequestHandlerExecute, New EventHandler(AddressOf OnPreRequestHandlerExecute)
End Sub
Public Sub OnPreRequestHandlerExecute(ByVal sender As Object, _
ByVal e As EventArgs)
' Check to see if the alternate page has been accessed
If HttpContext.Current.Request.Url.ToString.ToUpper.EndsWith("AUTOLOGIN.ASPX") Then
' Alternate page has been accessed, so log in using predetermined account
' Retrieve the user name and password
Dim userName As String = "user"
Dim userPassword As String = "password"
' Build the user id
Dim roles As String() = Nothing
Dim webIdentity As New GenericIdentity(userName, "Form")
Dim principal As New GenericPrincipal(webIdentity, roles)
' Specify the user
HttpContext.Current.User = principal
Thread.CurrentPrincipal = principal
' Redirect from the login page to the start page
' Note, this is the line I initially had incorrect. That is, I had the
' second parameter set to True, which will persist the authentication cookie.
' Setting the second parameter to False will cause the authentication cookie
' to go away when the browser is closed. Yeah!
FormsAuthentication.RedirectFromLoginPage(HttpContext.Current.User.Identity.Name.ToString, False)
End If
End Sub
End Class