40 lines
1.3 KiB
VB.net
40 lines
1.3 KiB
VB.net
|
|
Imports System.Web.Configuration
|
|
|
|
|
|
Partial Class _Default
|
|
Inherits System.Web.UI.Page
|
|
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
|
|
VERAG_VARIABLES.initerrorcount()
|
|
|
|
If Page.IsPostBack = True Then
|
|
Page.MaintainScrollPositionOnPostBack = True
|
|
Else
|
|
Page.MaintainScrollPositionOnPostBack = False
|
|
End If
|
|
End Sub
|
|
Protected Sub LogoutButton_Click(sender As Object, e As EventArgs)
|
|
FormsAuthentication.SignOut()
|
|
Session.Clear()
|
|
|
|
'clear authentication cookie
|
|
'Dim cookie1 As HttpCookie = New HttpCookie(FormsAuthentication.FormsCookieName, "")
|
|
'cookie1.Expires = DateTime.Now.AddYears(-1)
|
|
'Response.Cookies.Add(cookie1)
|
|
|
|
'clear session cookie
|
|
'Dim sessionStateSection As New SessionStateSection
|
|
'SessionStateSection = WebConfigurationManager.GetSection("system.web/sessionState")
|
|
'Dim cookie2 As HttpCookie = New HttpCookie(sessionStateSection.CookieName, "")
|
|
'cookie2.Expires = DateTime.Now.AddYears(-1)
|
|
'Response.Cookies.Add(cookie2)
|
|
|
|
End Sub
|
|
|
|
Protected Sub Unnamed_Load(sender As Object, e As EventArgs)
|
|
Dim frm As HtmlIframe = sender
|
|
frm.InnerText = "I frame is loading..."
|
|
End Sub
|
|
End Class
|