<% main() Sub main() If Not(InternetCheck()) Then Exit Sub End If If Not(VisitorCheck()) Then Exit Sub End If If Not(SysAdminCheck()) Then Exit Sub End If 'Response.Write(GB_ShopAdmin) 'Exit Sub %> <% Dim Query Dim Content Dim Content2 Dim Cnt Dim TmpColumn Dim TmpSelected '学校配列作成 Dim PrefAry ReDim PrefAry(99) Query = " SELECT * FROM TM都道府県 ORDER BY 都道府県CD " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) PrefAry(Content.Fields("都道府県CD")) = "" & Content.Fields("名称") Content.MoveNext Loop %>

学校管理 <% = 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 & "sysadminmenu.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 & "';") %>

<% Query = "" Query = Query & " SELECT * FROM TM学校 ORDER BY 学校CD " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Content.MoveNext Loop %> 学校CD パスワード 学校名（団体名） 都道府県 ホスト名     <% For Cnt = 0 to 47 Response.Write("" & PrefAry(Cnt) & "" & vbCrLf) Next %> <% = ActionButton3Image("AddBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 26, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "登録", "tx1214w", "center", "SchoolInsert();") %>  ← 新規登録 " & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) ' Response.Write(" " & Content.Fields("名称") & " " & vbCrLf) ' Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) For Cnt = 0 to 47 Response.Write("" & PrefAry(Cnt) & "" & vbCrLf) Next Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) 'Response.Write("" & vbCrLf) Response.Write(ActionButton3Image("UpdBtn" & Content.Fields("学校CD"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 26, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "更新", "tx1214w", "center", "SchoolUpdate('" & Content.Fields("学校CD") & "');")) Response.Write(" " & vbCrLf) 'Response.Write("" & vbCrLf) Response.Write(ActionButton3Image("EditBtn" & Content.Fields("学校CD"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 100, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "所属ショップ管理", "tx1214w", "center", "location.href='sysshop.asp?School=" & Content.Fields("学校CD") & "';")) Response.Write(" " & vbCrLf) 'Response.Write("" & vbCrLf) Response.Write(ActionButton3Image("LoginBtn" & Content.Fields("学校CD"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 100, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "学校管理ログイン", "tx1214w", "center", "location.href='adminlogin_bin.asp?LoginID=" & Content.Fields("学校CD") & "&Password=" & Content.Fields("パスワード") & "&AutoLogin=2';")) Response.Write("

<% End Sub %>