<!-- #include file="../../include.asp" --> <% '<!-- '################################################ ' 名称 :運用管理メニュー ' 作成日:2002/10/10 ' 作成者:徳田 ' 目的 :運用管理メニュー画面を表示する。 ' 概要 : ' <<表示>> ' ・ ' <<入力チェック>> ' ・ '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content Dim EnshuCD EnshuCD = Request("EnshuCD") Session(HomeAlias & "EnshuCD") = EnshuCD Session(HomeAlias & "EnshuMeisyo") = ConvEnshuMeisyo(EnshuCD) Session(HomeAlias & "EnshuKubun") = ConvEnshuKubun(EnshuCD) Dim AutoLogin AutoLogin = Request("AutoLogin") 'コントロールパネル(071225小野) If AutoLogin = "Control" Then Response.Redirect("/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD) End If 'オートログイン(071106小野) If AutoLogin = "AutoLogin" Then Response.Redirect("/" & HomeAlias & "/admin/enshu/fm_enshukaishalogin.asp?EnshuCD=" & EnshuCD) End If Response.Redirect("fm_enshu1_view.asp?EnshuCD=" & EnshuCD) End Sub %>