<% 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 Cnt 'モール情報取得 Dim Publish Dim Password Dim Pref Dim Host Dim Title Dim LinkURL Dim ActName Dim Banner Dim NewTopic Dim Osusume Dim NewItem Dim ItemList Dim ItemSort Dim ShopList 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 Password = "" & Content.Fields("パスワード") Pref = "" & Content.Fields("都道府県CD") Host = "" & Content.Fields("ホスト名") Title = "" & Content.Fields("タイトル") LinkURL = "" & Content.Fields("学校リンク") ActName = "" & Content.Fields("名称") Banner = "" & Content.Fields("バナー広告表示") NewTopic = "" & Content.Fields("最新トピック表示") Osusume = "" & Content.Fields("おすすめ商品表示") NewItem = "" & Content.Fields("新着商品表示") ItemList = "" & Content.Fields("商品表示") ItemSort = "" & Content.Fields("商品初期ソート") ShopList = "" & Content.Fields("ショップ一覧表示") Publish = "" & Content.Fields("公開") End If If Banner = "" Then Banner = "2" End If If NewTopic = "" Then NewTopic = "1" End If If Osusume = "" Then Osusume = "2" End If If NewItem = "" Then NewItem = "2" End If If ItemList = "" Then ItemList = "2" End If If ItemSort = "" Then ItemSort = "0" End If If ShopList = "" Then ShopList = "2" 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 LocalMode <> "1" Then %> <% Else %> <% End If %>
checked<% End If %>> モールを公開する
公開するとインターネットに公開され、不特定多数が閲覧できる状態になります。
非公開状態での準備段階においては絶対に公開しないでください。
<% = Spacer(1, 7) %>
パスワード  
<% = Spacer(1, 5) %>
モールタイトル  
<% = Spacer(1, 5) %>
学校リンクURL  
<% = Spacer(1, 5) %>
<% If LocalMode <> "1" Then %> <% Else %> <% End If %> <% If LocalMode <> "1" Then %> <% Else %> <% End If %> <% If LocalMode <> "1" Then %> <% Else %> <% End If %>
モールトップに最新トピックを表示する  
<% = Spacer(1, 5) %>
モールトップの広告バナーに表示するショップ  
<% = Spacer(1, 5) %>
モールトップに「おすすめ商品」を表示する  
<% = Spacer(1, 5) %>
モールトップに「新着商品」を表示する  
<% = Spacer(1, 5) %>
カテゴリ商品一覧・検索商品一覧に表示する商品  
<% = Spacer(1, 5) %>
カテゴリ商品一覧・検索商品一覧の初期ソート順  
<% = Spacer(1, 5) %>
ショップ一覧の表示範囲  
<% = Spacer(1, 5) %>
<% = ActionButton3Image("SubmitBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 72, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "更 新", "tx1416w", "center", "SubmitCheck();") %>
<% End Sub %>