<% 'このファイルは廃止 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") 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 LocalMode <> "1" And School <> "All" Then %> <% End If %> ショップ管理 ＜CSVインポート＞ <% = 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 & "';") %>

対象演習：<% Query = "" Query = Query & " SELECT * FROM TM演習 " Query = Query & " WHERE 演習CD = " & School & " " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then Response.Write("" & Content.Fields("名称") & "" & vbCrLf) End If %> <% = Spacer(7, 1) %> <% = ActionButton3Image("PrevBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 32, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "戻 る", "tx1214w", "center", "location.href='" & HomeAliasSL & "sysshop.asp?School=" & School & "';") %>

CSVファイル指定

<% = ActionButton3Image("ImportBtn", "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", "SubmitCheck();") %>

<% End Sub %>