logout.aspx.vb

来自「旅客信息管理、酒店客房管理、各种信息查询」· VB 代码 · 共 20 行

'文件名:Logout.aspx.vb
Partial Class SystemManage_Logout
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Page.Title = "当前位置：系统管理->退出管理系统"
        '关闭浏览器窗口
        Me.Button1.Attributes.Add("OnClick", "window.close();")
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        '确定按钮
        FormsAuthentication.SignOut()
        Session("MyUserName") = ""
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        '取消按钮
        Server.Transfer("~/Default.aspx")
    End Sub
End Class