<% 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 ActSchoolCD ActSchoolCD = Request("ActSchoolCD") If LCase(ActSchoolCD) <> LCase(GB_SchoolAdmin) 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 & SchoolIconFolderSL If Not(fso.FolderExists(Server.MapPath(ImageFolder))) Then fso.CreateFolder(Server.MapPath(ImageFolder)) End If ImageFolder = ImageFolder & GB_SchoolAdmin & "/" 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 Icon Set Icon = Server.CreateObject("Scripting.Dictionary") '連想配列 Dim ActName 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 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 <> "School" Then TmpImage = HomeAliasSL & "images/schoolicon_" & Mode & ".png" End If End If %>

<% If LocalMode <> "1" Then %> [ <% = ActName %> ] のモール管理 <% = Spacer(1, 10) %> <% End If %> <% If LocalMode <> "1" Or GB_PracticeCD <> "" Then %> <% End If %> 画像管理 <% = Spacer(7, 1) %> <% If LocalMode <> "1" Then %> <% = 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 & "schooladminmenu.asp';") %> <% Else %> <% = 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 & "adminlogin_bin.asp?LoginID=" & SysAdminID & "&Password=" & SysAdminPass & "';") %> <% 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", 76, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "モールに戻る", "tx1214w", "center", "location.href='" & HomeAliasSL & "';") %>

<% If Icon(Mode) <> "" Then %> <% End If %> <% = Spacer(1, 3) %> 種別 ?ActSchoolCD=<% = ActSchoolCD %>&Mode='+this.value;" class="select14"> selected<% End If %>>タイトルロゴ selected<% End If %>>学校リンク <% = Spacer(1, 13) %> <% If Mode = "Image" Then %> ※タイトルロゴ表示サイズは 240x60 ピクセル固定です。 <% ElseIf Mode = "School" Then %> <% If TmpImage <> "" Then %> <% End If %> ※学校リンクは表示サイズは幅190ピクセル固定、高さは不問です。 <% 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 %>