<% 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 %>
素材集(ご自由にお使いください)
<% = Spacer(1, 10) %>
<% = 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';") %> <% = 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 & "';") %>
<% = ActionButton3Image("DownloadBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 124, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "まとめてダウンロード", "tx1214w", "center", "location.href='" & HomeAliasSL & "sozai/hsnslogosozai.zip';") %>
<% = 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) %>
(背景透過)
<% = Spacer(1, 10) %>
(背景白)
<% = Spacer(1, 10) %>
(背景透過)
<% End Sub %>