新規 登録
<% = 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();") %>
表示順
<%
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(" " & Content.Fields("名称") & " " & 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", "PracticeUpdate('" & Content.Fields("演習CD") & "');"))
Response.Write(" " & vbCrLf)
' Response.Write("⇑ " & vbCrLf)
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("⇓ " & vbCrLf)
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(" " & 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(" " & vbCrLf)
Response.Write(" " & vbCrLf)
Content.MoveNext
Loop
%>