<% main() Sub main() 'Response.Write(GB_VisitorID) 'Exit Sub If Not(InternetCheck()) Then Exit Sub End If ' If Not(VisitorCheck()) Then ' Exit Sub ' End If If Not(SysAdminCheck()) Then Exit Sub End If 'Response.Write(GB_ShopAdmin) 'Exit Sub 'ローカルモードの選択演習クリア Session("ECMallPracticeCD") = "" GB_PracticeCD = Session("ECMallPracticeCD") %> <% Dim Query Dim Content Dim Content2 %>

<% If LocalMode = "1" Then %> <% End If %> <% If LocalMode <> "1" Then %> <% End If %> <% If LocalMode = "1" Then %> <% '以下では内部で学校モール管理者オートログインを行う %> <% End If %> <% If LocalMode <> "1" Then %> <% End If %> <% If LocalMode = "1" Then %> <% Else %> <% End If %> システム管理メニュー <% = Spacer(7, 1) %> <% = ActionButton3Image("LogoutBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 64, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "ログアウト", "tx1214w", "center", "location.href='" & HomeAliasSL & "?Logout=1';") %> <% = Spacer(7, 1) %> <% = ActionButton3Image("ReturnBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 100, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "演習モールを見る", "tx1214w", "center", "location.href='" & HomeAliasSL & "practice.asp';") %> <% = Spacer(7, 1) %> <% = ActionButton3Image("ReturnBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 76, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "モールに戻る", "tx1214w", "center", "location.href='" & HomeAliasSL & "';") %> <% = Spacer(1, 10) %> 演習管理 <% = Spacer(1, 10) %> ショップ管理 <% = Spacer(1, 10) %> カテゴリ管理 <% = Spacer(1, 10) %> ショップ管理 <% = Spacer(1, 10) %> 学校管理 <% = Spacer(1, 10) %> モール基本情報管理 <% = Spacer(1, 10) %> 画像管理 <% = Spacer(1, 10) %> トピック管理 <% = Spacer(1, 10) %> カテゴリ管理 <% = Spacer(1, 10) %> 通知管理 <% = Spacer(1, 10) %> 履歴 <% = Spacer(1, 10) %> Ver <% = SysVer %>

<% End Sub %>