<% 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 & "';") %>
<% If Cat <> "" Then Query = " SELECT TMカテゴリ.* FROM TMカテゴリ WHERE カテゴリID = " & Cat & " " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then %>
「<% = Content.Fields("名称") %>」のサブカテゴリ一覧 <% = Spacer(7, 1) %> <% = ActionButton3Image("CatReturnBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 120, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "メインカテゴリに戻る", "tx1214w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "';") %>
<% End If Else Response.Write("メインカテゴリ一覧") End If %>
<% TmpCat = "" If Cat <> "" Then Query = "exec SPMサブカテゴリ取得 " & Cat & "" 'サブカテゴリ一覧 Else Query = " SELECT TMカテゴリ.* FROM TMカテゴリ ORDER BY TMカテゴリ.表示順 " End If Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) 'カテゴリ一覧は全て、全一覧は重複を除外 If Cat <> "" Or "" & Content.Fields("カテゴリID") <> TmpCat Then TmpCat = "" & Content.Fields("カテゴリID") Response.Write("" & vbCrLf) If Cat <> "" Then If "" & Content.Fields("サブカテゴリID") <> "" Then 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) End If Else 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) End If Response.Write("" & vbCrLf) End If Content.MoveNext Loop %>
新規
登録
<% TmpCat = "0" If Cat <> "" Then TmpCat = Cat 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", "CatInsert('" & TmpCat & "');") %> 表示順
" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) 'Response.Write("" & vbCrLf) Response.Write(ActionButton3Image("UpdBtn" & Content.Fields("カテゴリID") & "_" & 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", "CatUpdate('" & Content.Fields("カテゴリID") & "','" & Content.Fields("サブカテゴリID") & "');")) Response.Write("" & vbCrLf) Response.Write(ActionButton3Image("UpBtn" & Content.Fields("カテゴリID") & "_" & Content.Fields("サブカテゴリID"), "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", "CatOrder('" & Content.Fields("カテゴリID") & "','" & Content.Fields("サブカテゴリID") & "','" & Content.Fields("サブカテゴリ表示順") & "','Up');")) Response.Write("" & vbCrLf) Response.Write(ActionButton3Image("DnBtn" & Content.Fields("カテゴリID") & "_" & Content.Fields("サブカテゴリID"), "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", "CatOrder('" & Content.Fields("カテゴリID") & "','" & Content.Fields("サブカテゴリID") & "','" & Content.Fields("サブカテゴリ表示順") & "','Dn');")) 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", "CatDelete('" & Content.Fields("カテゴリID") & "','" & Content.Fields("サブカテゴリID") & "');")) 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(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", "CatUpdate('" & Content.Fields("カテゴリID") & "','');")) Response.Write("" & vbCrLf) Response.Write(ActionButton3Image("UpBtn" & Content.Fields("カテゴリID"), "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", "CatOrder('" & Content.Fields("カテゴリID") & "','','" & Content.Fields("表示順") & "','Up');")) Response.Write("" & vbCrLf) Response.Write(ActionButton3Image("DnBtn" & Content.Fields("カテゴリID"), "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", "CatOrder('" & Content.Fields("カテゴリID") & "','','" & Content.Fields("表示順") & "','Dn');")) Response.Write("" & vbCrLf) 'Response.Write("" & vbCrLf) Response.Write(ActionButton3Image("SubCatBtn" & Content.Fields("カテゴリID"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 98, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "サブカテゴリ管理", "tx1214w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?Cat=" & Content.Fields("カテゴリID") & "';")) 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", "CatDelete('" & Content.Fields("カテゴリID") & "','');")) Response.Write("
<% End Sub %>