Protected Sub Page_PreLoad(sender As Object, e As EventArgs) Handles Me.PreLoad
        SHOPUNT.GN.WSC.CheckLogin()                                     '檢查是否有登入、否則導回Login
        SHOPUNT.GN.WSC.CheckRightOrStop(SHOPUNT.EN.AuthCode.廣告管理)   '檢查是否有廣告編輯的權限
    End Sub

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        HandleAction()
    End Sub

    Sub HandleAction()
        If UW.WU.IsNonEmptyFromQueryStringOrForm("Action") Then
            Dim Action As String = UW.WU.GetValueFromQueryStringOrForm("Action")
            Select Case Action
            End Select
        End If
    End Sub

    Protected Sub Page_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender
        'Me.Master.strTitle = "目錄管理"
        'Me.Master.IsListItemScript = True
        LoadPageContext()
    End Sub

    Sub LoadPageContext()

    End Sub