<% 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 Mode Mode = Request("Mode") Dim UpdPrc UpdPrc = Request("UpdPrc") '更新対象 Dim Meisho Meisho = ConvProhiStr(Request("Meisho" & UpdPrc)) If Mode = "Insert" Then Meisho = ConvProhiStr(Request("Meisho0")) End If 'Response.Write(Meisho) 'Exit Sub Dim Enabled Enabled = Request("Enabled") Dim MotoOrder MotoOrder = Request("MotoOrder") Dim OrderMode OrderMode = Request("OrderMode") 'Response.Write(Mode & "
") 'Response.Write(Meisho & "
") 'Exit Sub If Mode = "Insert" And Meisho <> "" Then Dim NewPrc NewPrc = 1 Query = " SELECT MAX(演習CD) AS 最大演習CD FROM TM演習 " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then NewPrc = NewPrc + Content.Fields("最大演習CD") End If If "" & NewPrc = "" Then NewPrc = "1" End If Query = "" Query = Query & " INSERT INTO TM演習 (演習CD, 名称, 表示順) " Query = Query & " VALUES (" & NewPrc & ", '" & Meisho & "', " & NewPrc & ") " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) ElseIf UpdPrc <> "" Then If Mode = "Update" And Meisho <> "" Then Query = " UPDATE TM演習 " Query = Query & " SET 名称 = '" & Meisho & "' " Query = Query & " WHERE 演習CD = " & UpdPrc & " " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) ElseIf Mode = "Enabled" Then Query = " UPDATE TM演習 " Query = Query & " SET 有効 = '" & Enabled & "' " Query = Query & " WHERE 演習CD = " & UpdPrc & " " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) ElseIf Mode = "Order" Then Dim ChangeOrder ChangeOrder = 0 If OrderMode = "Up" Then Query = " SELECT MAX(表示順) AS 表示順 FROM TM演習 WHERE 表示順 < " & MotoOrder & " " '指定された表示順より少ない中の最大を取得 Else Query = " SELECT MIN(表示順) AS 表示順 FROM TM演習 WHERE 表示順 > " & MotoOrder & " " '指定された表示順より大きい中の最小を取得 End If Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then ChangeOrder = Content.Fields("表示順") End If If ChangeOrder > 0 Then Query = "" Query = Query & " UPDATE TM演習 " Query = Query & " SET 表示順 = 7777777 " Query = Query & " WHERE 表示順 = " & ChangeOrder & " " Query = Query & " UPDATE TM演習 " Query = Query & " SET 表示順 = " & ChangeOrder & " " Query = Query & " WHERE 表示順 = " & MotoOrder & " " Query = Query & " UPDATE TM演習 " Query = Query & " SET 表示順 = " & MotoOrder & " " Query = Query & " WHERE 表示順 = 7777777 " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) End If ElseIf Mode = "Delete" Then Query = " DELETE FROM TM演習 " Query = Query & " WHERE 演習CD = " & UpdPrc & " " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) End If 'Response.Write(Query) 'Exit Sub End If Response.Redirect("syspractice.asp") End Sub %>