<% main() Sub main() If Not(InternetCheck()) Then Exit Sub End If ' If Not(VisitorCheck()) Then ' Exit Sub ' End If If Not(ShopAdminCheck()) Then Exit Sub End If 'Response.Write(GB_ShopAdmin) 'Exit Sub %> <% Dim Query Dim Content Dim Content2 'ショップ情報取得 Dim ActName Dim Publish Dim LoginID Set Content = QueryGetShopAdmin(GB_ShopAdmin, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then ActName = "" & Content.Fields("名称") If ActName = "" Then ActName = "" & Content.Fields("学校名") End If Publish = "" & Content.Fields("公開フラグ") LoginID = "" & Content.Fields("ログインID") End If %>

<% If LocalMode = "1" Then %> <% End If %> <% If LocalMode <> "1" Then %> <% End If %> <% 'NULLは先頭一致でNULLと合致してしまうので別条件 '既に所属学校モールが強制表示ならそちらを優先（ログインIDの先頭一致） %> <% If Publish <> "1" And (Session("ECMallShopVisible") = "" Or (LCase(Session("ECMallShopVisible")) <> LCase(LoginID) And LCase(Session("ECMallShopVisible")) <> LCase(Left(LoginID, Len(Session("ECMallShopVisible")))))) Then %> <% End If %> [ <% = ActName %> ] のショップ管理 <% = Spacer(1, 10) %> <% If GB_AutoLogin = 2 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) %> レイアウトを管理する <% = Spacer(1, 10) %> TOPページを管理する <% = Spacer(1, 10) %> 履歴を閲覧する <% = Spacer(1, 10) %> 管理者よりの通知を閲覧する <% = Spacer(1, 10) %> <% = ActionButton3Image("ForceBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 148, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "非公開ショップを強制表示", "tx1214w", "center", "document.form1.submit();") %> ※あくまで現在利用しているPC上でのみ強制表示します。 ※他のPCからは非公開のままですのでご安心ください。

<% End Sub %>