<% 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 Cat Dim SubCat Cat = Request("Cat") SubCat = Request("SubCat") Dim TmpCat Dim Cnt %>

<% If LocalMode <> "1" Or GB_PracticeCD <> "" 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("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 & " " Query = Query & " SELECT * " Query = Query & " FROM TM演習 " Query = Query & " ORDER BY 表示順 " 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) Content.MoveNext Loop %> 新規 登録 <% = 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", "PracticeInsert();") %> 表示順 " & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) ' Response.Write(" " & Content.Fields("名称") & " " & 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", "PracticeUpdate('" & Content.Fields("演習CD") & "');")) Response.Write(" ⇑ " & vbCrLf) Response.Write(ActionButton3Image("UpBtn" & Content.Fields("演習CD"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 16, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "⇑", "tx1618w", "center", "PracticeOrder('" & Content.Fields("演習CD") & "','" & Content.Fields("表示順") & "','Up');")) Response.Write(" ⇓ " & vbCrLf) Response.Write(ActionButton3Image("DnBtn" & Content.Fields("演習CD"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 16, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "⇓", "tx1618w", "center", "PracticeOrder('" & Content.Fields("演習CD") & "','" & Content.Fields("表示順") & "','Dn');")) Response.Write(" " & vbCrLf) 'Response.Write("" & vbCrLf) Response.Write(ActionButton3Image("DltBtn" & 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", "PracticeDelete('" & Content.Fields("演習CD") & "','');")) Response.Write("

<% End Sub %>