<% main() Sub main() If Not(InternetCheck()) Then Exit Sub End If ' If Not(VisitorCheck()) Then ' Exit Sub ' End If If Not(ShopAdminCheck()) Then Exit Sub End If 'Response.Write(GB_ShopAdmin) 'Exit Sub Dim ActShopID ActShopID = Request("ActShopID") If LCase(ActShopID) <> LCase(GB_ShopAdmin) Then Response.Write("別のウィンドウまたは別のタブページで現在と異なるIDでログインしました。
" & vbCrLf) Response.Write("同一PC上で複数のIDでログインすることはできません。
" & vbCrLf) Response.Write("
" & vbCrLf) Response.Write("戻る" & vbCrLf) Exit Sub End If %> <% Dim Query Dim Content Dim Content2 %>
履歴 <% = 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 & "shopadminmenu.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 = "exec SPF注文履歴取得 '' " Query = Query & " , " & GB_ShopAdmin & " " Query = Query & " , null, null, null " '商品ID,日時始,日時終 Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) %> <% Content.MoveNext Loop %>
受注日時 商品名 単価 数量 メールアドレス 氏名 郵便 住所 TEL
<% = Replace(Mid(Content.Fields("注文日時"), 3, Len(Content.Fields("注文日時")) - 5), " ", " ") %> <% = Content.Fields("名称") %> <% If Content.Fields("価格") = 0 Then %> 時価 <% Else %> <% = ConvIntToMoney(Content.Fields("価格"), False, False) %><% If "" & Content.Fields("消費税フラグ") = "1" Then %>(税込)<% Else %>(税別)<% End If %> <% End If %> <% = ConvIntToMoney(Content.Fields("数量"), False, False) %> <% = Replace(Content.Fields("メールアドレス"), "@", "@") %> <% If "" & Content.Fields("氏名") <> "" Then %><% = Content.Fields("氏名") %><% Else %>非登録<% End If %> <% If "" & Content.Fields("郵便番号") <> "" Then %><% = Replace(Content.Fields("郵便番号"), "-", "-") %><% Else %>非登録<% End If %> <% If "" & Content.Fields("住所") <> "" Then %><% = Content.Fields("住所") %><% Else %>非登録<% End If %> <% If "" & Content.Fields("電話番号") <> "" Then %><% = Replace(Content.Fields("電話番号"), "-", "-") %><% Else %>非登録<% End If %>
管理ログイン履歴 <% Query = "" Query = Query & " SELECT * " Query = Query & " FROM TFショップアクセスログ " Query = Query & " WHERE ショップID = " & GB_ShopAdmin & " " Query = Query & " ORDER BY ログイン日時 DESC " Query = Query & " " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) %> <% Content.MoveNext Loop %>
ログイン日時 IPアドレス 利用ブラウザ
現在の状態 <% = Request.ServerVariables("REMOTE_ADDR") %> <% = Request.ServerVariables("HTTP_USER_AGENT") %>
<% = Content.Fields("ログイン日時") %> <% = Content.Fields("IPアドレス") %> <% = Content.Fields("利用ブラウザ") %>
ビジターアクセス履歴 ※同一者による同日アクセスは初回アクセスのみ記録されます。 <% Query = "" Query = Query & " SELECT * " Query = Query & " FROM TFショップビジター履歴 " Query = Query & " WHERE ショップID = " & GB_ShopAdmin & " " If "" & GB_PracticeCD <> "" Then 'ローカルモードは演習単位 Query = Query & " AND 演習CD = " & GB_PracticeCD & " " Else Query = Query & " AND 演習CD IS NULL " End If Query = Query & " ORDER BY アクセス日時 DESC " Query = Query & " " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) %> <% Content.MoveNext Loop %>
アクセス日時 IPアドレス 利用ブラウザ
<% = Content.Fields("アクセス日時") %> <% = Content.Fields("IPアドレス") %> <% = Content.Fields("利用ブラウザ") %>
<% End Sub %>