<% 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 School 'ローカルモードでは演習CDで利用する School = Request("School") If School = "" Then School = "All" End If Dim Page Page = Request("Page") If Page = "" Or Not(IsNumeric(Page)) Then Page = 1 End If Dim PageRow PageRow = 20 Dim Cnt Dim TmpColumn Dim TmpSelected '学校情報代入用 Dim SchoolPass Dim SchoolMei Dim SchoolAddr '自動登録用 Dim MaxSeq MaxSeq = 0 Dim TmpStr %>

<% If Page > 1 Then %> <% End If %> <% If Not(Content.BOF Or Content.EOF) Then %> <% End If %>

<% If LocalMode <> "1" And School <> "All" Then %> <% End If %> ショップ管理 <% = 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("SchoolBtn", "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, "学校管理に戻る", "tx1214w", "center", "location.href='" & HomeAliasSL & "sysschool.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 LocalMode = "1" And School <> "" And IsNumeric(School) Then %> <% End If %> <% If LocalMode = "1" Then %> 対象演習 <% End If %> 全て <% If LocalMode <> "1" Then Query = "" Query = Query & " SELECT * FROM TM学校 " Query = Query & " ORDER BY CASE WHEN 学校CD = 'hsns' THEN 学校CD ELSE '0' END, 学校CD " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) TmpSelected = "" If Content.Fields("学校CD") = School Then TmpSelected = " selected" SchoolPass = Content.Fields("パスワード") SchoolMei = Content.Fields("名称") SchoolAddr = Content.Fields("メールアドレス") End If Response.Write("" & Content.Fields("名称") & "" & vbCrLf) Content.MoveNext Loop Else Query = "" Query = Query & " SELECT * FROM TM演習 " Query = Query & " ORDER BY 表示順 " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) TmpSelected = "" If "" & Content.Fields("演習CD") = School Then TmpSelected = " selected" End If Response.Write("" & Content.Fields("名称") & "" & vbCrLf) Content.MoveNext Loop End If %> <% = Spacer(7, 1) %> <% = ActionButton3Image("ImportBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 172, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "CSVから対象演習にインポート", "tx1214w", "center", "location.href='" & HomeAliasSL & "sysshopimport.asp?School=" & School & "';") %>

<% = ActionButton3Image("PrevBtn", "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 & "sysshop.asp?Page=" & Page - 1 & "&School=" & School & "';") %>

<% If LocalMode = "1" Then %> <% Else %> <% End If %> <% If LocalMode = "1" Then If School = "All" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Else %> <% End If %> <% If School <> "All" And LocalMode <> "1" Then %> <% End If %> <% Dim RowCnt RowCnt = 1 If LocalMode <> "1" Then Set Content = QueryGetShopAdmin(School, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Else 'ローカルモードは常にAllで取得しASP側で絞り込む（演習CDは数値のためショップIDと混同してしまう） Set Content = QueryGetShopAdmin("All", SQLServer, DatabaseName, DatabaseUser, DatabasePass) End If Do While Not(Content.BOF Or Content.EOF) TmpStr = LCase(Content.Fields("ログインID")) If Left(TmpStr, Len(School)) = LCase(School) And InStr(TmpStr, "-") > 0 Then TmpStr = Replace(TmpStr, LCase(School) & "-", "") 'Response.Write(TmpStr) If TmpStr <> "" And IsNumeric(TmpStr) Then If MaxSeq < CInt(TmpStr) Then MaxSeq = CInt(TmpStr) End If End If End If If LocalMode <> "1" Or School = "All" Or "" & Content.Fields("演習CD") = School Then If RowCnt > (Page -1) * PageRow Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If LocalMode = "1" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If RowCnt = RowCnt + 1 If RowCnt - (Page -1) * PageRow > PageRow Then Exit Do End If End If Content.MoveNext Loop %> ID ログインID パスワード ショップ名<% If LocalMode <> "1" Then %>（学校名・団体名）<% End If %> 所属演習 連絡先メールアドレス 管理開始 管理終了 管理制限日 新規 "1" Then %><% = School %><% End If %>" style="width:80px;" class="tb1416"> " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TM演習 " Query = Query & " ORDER BY 表示順 " Set Content2 = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content2.BOF Or Content2.EOF) TmpSelected = "" ' If "" & Content2.Fields("演習CD") = School Then ' TmpSelected = " selected" ' End If Response.Write("" & Content2.Fields("名称") & "" & vbCrLf) Content2.MoveNext Loop Response.Write("" & vbCrLf) Response.Write("  " & vbCrLf) Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TM演習 " Query = Query & " WHERE 演習CD = " & School & " " Set Content2 = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content2.BOF Or Content2.EOF) Then Response.Write(Content2.Fields("名称") & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("  <% For Cnt = 0 To 23 TmpColumn = "" If Cnt < 10 Then TmpColumn = " " End If TmpSelected = "" If Cnt = DefAdminStart Then TmpSelected = " selected" End If Response.Write("" & TmpColumn & Cnt & "時" & vbCrLf) Next %> <% For Cnt = 0 To 23 TmpColumn = "" If Cnt < 10 Then TmpColumn = " " End If TmpSelected = "" If Cnt = DefAdminEnd Then TmpSelected = " selected" End If Response.Write("" & TmpColumn & Cnt & "時" & vbCrLf) Next %> selected<% End If %>> selected<% End If %>>日・祝 selected<% End If %>>土日祝 <% = 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", "ShopInsert();") %> <% = ActionButton3Image("AutoAddBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 74, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "自動連番登録", "tx1214w", "center", "ShopInsertAuto();") %> " & vbCrLf) Response.Write("" & Content.Fields("ショップID") & vbCrLf) Response.Write(" " & 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) Response.Write("" & vbCrLf) Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TM演習 " Query = Query & " ORDER BY 表示順 " Set Content2 = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content2.BOF Or Content2.EOF) TmpSelected = "" If "" & Content2.Fields("演習CD") = "" & Content.Fields("演習CD") Then TmpSelected = " selected" End If Response.Write("" & Content2.Fields("名称") & "" & vbCrLf) Content2.MoveNext Loop Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) For Cnt = 0 To 23 TmpColumn = "" If Cnt < 10 Then TmpColumn = " " End If TmpSelected = "" If Cnt = Content.Fields("ログイン許可始") Then TmpSelected = " selected" End If Response.Write("" & TmpColumn & Cnt & "時" & vbCrLf) Next Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) For Cnt = 0 To 23 TmpColumn = "" If Cnt < 10 Then TmpColumn = " " End If TmpSelected = "" If Cnt = Content.Fields("ログイン許可終") Then TmpSelected = " selected" End If Response.Write("" & TmpColumn & Cnt & "時" & vbCrLf) Next Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) TmpSelected = "" If "" & Content.Fields("ログイン制限日") = "1" Then TmpSelected = " selected" End If Response.Write("日・祝" & vbCrLf) TmpSelected = "" If "" & Content.Fields("ログイン制限日") = "2" Or "" & Content.Fields("ログイン制限日") = "" Then TmpSelected = " selected" End If Response.Write("土日祝" & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) 'Response.Write("" & vbCrLf) Response.Write(ActionButton3Image("UpdBtn" & Content.Fields("ショップID"), "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", "ShopUpdate('" & Content.Fields("ショップID") & "');")) Response.Write(" " & vbCrLf) 'Response.Write("" & vbCrLf) Response.Write(ActionButton3Image("LoginBtn" & Content.Fields("ショップID"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 122, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "ショップ管理ログイン", "tx1214w", "center", "location.href='adminlogin_bin.asp?LoginID=" & Content.Fields("ログインID") & "&Password=" & Content.Fields("パスワード") & "&AutoLogin=2';")) Response.Write(" " & vbCrLf) 'Response.Write("" & vbCrLf) Response.Write(ActionButton3Image("DltBtn" & Content.Fields("ショップID"), "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", "ShopDelete('" & Content.Fields("ショップID") & "');")) Response.Write("

<% = ActionButton3Image("NextBtn", "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 & "sysshop.asp?Page=" & Page + 1 & "&School=" & School & "';") %>

<% End Sub %>