コメント
コメントの投稿
※名前とタイトルが入力されていないコメントでは他のコメントとの区別ができません。
入力されていないコメントには返信しませんのであらかじめご了承くださいませ。
Imports System
Imports System.Web
Imports System.Web.SessionState
Namespace Models
Public Class CustomSessionIDManager
Inherits SessionIDManager
Const WebSiteName As String = "MyWebSite_"
Public Overrides Function CreateSessionID(context As HttpContext) As String
'Return MyBase.CreateSessionID(context)
Return WebSiteName & Guid.NewGuid().ToString()
End Function
Public Overrides Function Validate(id As String) As Boolean
'Return MyBase.Validate(id)
Try
Dim testGuid As Guid = New Guid(id.Replace(WebSiteName, ""))
If id = WebSiteName & testGuid.ToString() Then
Return True
End If
Catch
'idの検査でエラーの場合はFalseとなるように
End Try
Return False
End Function
End Class
End Namespace
Sub Signout_Click(ByVal sender As Object, ByVal e As EventArgs)
'セッションを破棄する
Session.Abandon()
'クッキーに保存されてるセッションIDを破棄する
'Dim cookie As New HttpCookie("ASP.NET_SessionId", "") 'デフォルトはこちら
Dim cookie As New HttpCookie("MyWebSite_SessionId", "") 'Web.configにて変更している場合
Response.Cookies.Add(cookie)
'フォーム認証のサインアウトを実行します。
FormsAuthentication.SignOut()
'ページを遷移します。
Response.Redirect("Logon.aspx")
End Sub
※名前とタイトルが入力されていないコメントでは他のコメントとの区別ができません。
入力されていないコメントには返信しませんのであらかじめご了承くださいませ。