<% main() Sub main() If Not(InternetCheck()) Then Exit Sub End If If Not(VisitorCheck()) Then Exit Sub End If If Not(SchoolAdminCheck()) Then Exit Sub End If 'Response.Write(GB_ShopAdmin) 'Exit Sub %> <% Dim Query Dim Content Dim Content2 '学校情報取得 Dim Host Dim ActName Dim Publish Query = "" Query = Query & " SELECT * FROM TM学校 WHERE 学校CD = '" & GB_SchoolAdmin & "' " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then Host = "" & Content.Fields("ホスト名") ActName = "" & Content.Fields("名称") Publish = "" & Content.Fields("公開") End If %>

<% If LocalMode <> "1" Then %> <% End If %> <% If LocalMode <> "1" Then %> <% End If %> <% If Host <> "" Then %> <% End If %> [ <% = ActName %> ] のモール管理 <% = Spacer(1, 10) %> <% If GB_AutoLogin = 2 Then %> <% End If %> <% If LocalMode = "1" Then %>モール<% End If %>管理メニュー <% = Spacer(7, 1) %> <% = ActionButton3Image("AdminBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 88, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "運用管理に戻る", "tx1214w", "center", "location.href='" & HomeAliasSL & "adminlogin_bin.asp?LoginID=" & SysAdminID & "&Password=" & SysAdminPass & "';") %> <% = 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", 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) %> <% If Publish <> "1" And LCase(Session("ECMallShopVisible")) <> LCase(GB_SchoolAdmin) Then %> <% = ActionButton3Image("ForceBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 136, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "非公開モールを強制表示", "tx1214w", "center", "document.form1.submit();") %> <% Else %> <% = ActionButton3Image("ForceBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 220, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "非公開のモール所属ショップを強制表示", "tx1214w", "center", "document.form1.submit();") %> <% End If %> ※あくまで現在利用しているPC上でのみ強制表示します。 ※他のPCからは非公開のままですのでご安心ください。

<% End Sub %>