Imports AppCommon
Imports AppVariable


Partial Class mobile_info_DetailSP
    Inherits System.Web.UI.Page

#Region "************************* 定数 *************************"


#End Region

#Region "******************** ページイベント ********************"
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        '---------------------------------------------------------------
        'HTMLタグを追加
        '---------------------------------------------------------------
        Dim ctl As Control = Page.Master.FindControl("msp_header")
        'CSS
        SetTagCss(ctl, "mobile_info.css")

        '-----------------------------------------------------------------
        'ユーザコントロールをセット
        '-----------------------------------------------------------------
        Try '※外すと落ちる
            Dim uc As UserControl

            If Not Session(S_MSP_Selected_UC1_Path) Is Nothing Then
                uc = LoadControl(Request.ApplicationPath & Session(S_MSP_Selected_UC1_Path))
            Else
                placeholder_uc_info.Visible = False
                uc = LoadControl("")
            End If

            placeholder_uc_info.Controls.Add(uc)
        Catch ex As Exception
        End Try


    End Sub
#End Region
    
#Region "***************** コントロールイベント *****************"
    Protected Sub btn_戻る_Click(sender As Object, e As EventArgs) Handles btn_戻る.Click
        If Not IsNothing(Session(S_Info_遷移元)) Then
            Select Case Session(S_Info_遷移元)
                Case "トップページ"
                    Response.Redirect(Com_Get_Content("menu_cm_001_mb"))
                Case "個人へのお知らせ"
                    Response.Redirect(Com_Get_Content("menu_kj_001_mb"))
                Case "連絡事項"
                    Response.Redirect(Com_Get_Content("menu_kj_002_mb"))
                Case "授業関連"
                    Response.Redirect(Com_Get_Content("menu_kj_003_mb"))
                Case Else
                    Response.Redirect(Com_Get_Content("menu_cm_001_mb"))
            End Select
        End If
    End Sub
#End Region

#Region "******************* Sub及びFunction ********************"

#End Region
    
End Class
