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