<% 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 ActShopID ActShopID = Request("ActShopID") If LCase(ActShopID) <> LCase(GB_ShopAdmin) Then Response.Write("別のウィンドウまたは別のタブページで現在と異なるIDでログインしました。
" & vbCrLf) Response.Write("同一PC上で複数のIDでログインすることはできません。
" & vbCrLf) Response.Write("
" & vbCrLf) Response.Write("戻る" & vbCrLf) Exit Sub End If %> <% Dim Query Dim Content Dim Content2 '画像フォルダ作成 Dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") Dim ImageFolder ImageFolder = "" & HomeAliasSL & IconFolderSL If Not(fso.FolderExists(Server.MapPath(ImageFolder))) Then fso.CreateFolder(Server.MapPath(ImageFolder)) End If ImageFolder = ImageFolder & GB_ShopAdmin & "/" If Not(fso.FolderExists(Server.MapPath(ImageFolder))) Then fso.CreateFolder(Server.MapPath(ImageFolder)) End If Dim Mode Mode = Request("Mode") If Mode = "" Then Mode = "Image" End If 'ショップ情報取得 Dim ShopName Dim Icon Set Icon = Server.CreateObject("Scripting.Dictionary") '連想配列 Dim ActName Set Content = QueryGetShopAdmin(GB_ShopAdmin, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then ShopName = "" & Content.Fields("名称") Icon(Mode) = "" & Content.Fields("画像" & Mode) ActName = "" & Content.Fields("名称") If ActName = "" Then ActName = "" & Content.Fields("学校名") End If End If Dim TmpImage If Icon(Mode) <> "" Then TmpImage = ImageFolder & Icon(Mode) Else If Mode <> "Image" And Mode <> "Bunner" Then TmpImage = HomeAliasSL & "images/shopicon_" & Mode & ".png" End If End If %>

[ <% = ActName %> ] のショップ管理 <% = Spacer(1, 10) %> 画像管理 <% = Spacer(7, 1) %> <% = ActionButton3Image("MenuBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 112, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "管理メニューに戻る", "tx1214w", "center", "location.href='" & HomeAliasSL & "shopadminmenu.asp';") %> <% = 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 & "';") %>

<% If Icon(Mode) <> "" Then %> <% End If %> <% = Spacer(1, 3) %> 種別 ?ActShopID=<% = ActShopID %>&Mode='+this.value;" class="select14"> selected<% End If %>>ショップイメージ selected<% End If %>>広告バナー selected<% End If %>>ボタン：店舗トップ selected<% End If %>>ボタン：商品一覧 selected<% End If %>>ボタン：お支払方法・送料について selected<% End If %>>ボタン：特定商取引法に基づく表記 <% = Spacer(1, 13) %> <% If Mode = "Image" Then %> <% If TmpImage <> "" Then %> <% Else %> 設定されていません <% End If %> ※ショップイメージはそのままのサイズで表示されます。 <% ElseIf Mode = "Bunner" Then %> <% If TmpImage <> "" Then %> <% Else %> 設定されていません <% End If %> ※広告バナー表示サイズは 468 x 60 ピクセル固定です。 <% Else %> ※ボタン表示サイズは高さ40ピクセル固定です。 <% End If %> <% = Spacer(1, 7) %> 画像ファイル指定  <% = ActionButton3Image("FileUploadBtn", "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, "アップロード", "tx1416w", "center", "SubmitCheck();") %> <% = Spacer(1, 13) %> <% = ActionButton3Image("FileDeleteBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 102, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "初期状態に戻す", "tx1416w", "center", "DeleteCheck();") %>

<% End Sub %>