<% 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 %> <% Dim Mode Mode = Request("Mode") If Mode = "" Then Mode = "Juchu" End If Dim Query Dim Content Dim Content2 '管理ログインと同じIPアドレスを集計から除外するため羅列化する。 Dim JogaiAddr JogaiAddr = "" Query = "" Query = Query & " SELECT TFショップアクセスログ.IPアドレス " Query = Query & " FROM TFショップアクセスログ " Query = Query & " WHERE TFショップアクセスログ.IPアドレス IS NOT NULL AND TFショップアクセスログ.IPアドレス <> '' " Query = Query & " GROUP BY TFショップアクセスログ.IPアドレス " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) If JogaiAddr <> "" Then JogaiAddr = JogaiAddr & ", " End If JogaiAddr = JogaiAddr & "'" & Content.Fields("IPアドレス") & "'" Content.MoveNext Loop 'Response.Write(JogaiAddr) %>

<% If LocalMode <> "1" Then %> <% End If %> <% If Mode = "Juchu" Then %> <% ElseIf Mode = "Kanri" Then %> <% ElseIf Mode = "Visit" Then %> <% ElseIf Mode = "IP" Then %> <% ElseIf Mode = "Host" Then %> <% End If %>

<% 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 & "';") %>

<% = ActionButton3Image("JuchuBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 100, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "ショップ受注履歴", "tx1214w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?Mode=Juchu';") %> <% = Spacer(7, 1) %> <% = ActionButton3Image("KanriBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 100, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "管理ログイン履歴", "tx1214w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?Mode=Kanri';") %> <% = Spacer(7, 1) %> <% = ActionButton3Image("VisitBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 136, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "ショップ閲覧ビジター数", "tx1214w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?Mode=Visit';") %> <% = Spacer(7, 1) %> <% = ActionButton3Image("IPBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 136, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "ビジターIPアドレス分布", "tx1214w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?Mode=IP';") %> <% = Spacer(7, 1) %> <% = ActionButton3Image("HostBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 160, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "ビジター接続対象ホスト分布", "tx1214w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?Mode=Host';") %>

ショップ受注履歴　※商品名・単価は受注当時のものです。現在設定されている値とは異なる場合があります。 <% = Spacer(1, 7) %> <% If LocalMode <> "1" Then %> <% End If %> <% Query = "exec SPF注文履歴取得 '' " Query = Query & " , null " 'ショップID Query = Query & " , null, null, null " '商品ID,日時始,日時終 Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) %> <% If LocalMode <> "1" Then %> <% End If %> <% Content.MoveNext Loop %> 受注日時 学校名 ショップ名 商品名 単価 数量 メールアドレス 氏名 郵便 住所 TEL <% = Replace(Mid(Content.Fields("注文日時"), 3, Len(Content.Fields("注文日時")) - 5), " ", " ") %> <% = Content.Fields("学校名") %> <% = Content.Fields("ショップ名") %> <% = 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) %> <% If LocalMode <> "1" Then %> <% = Replace(Content.Fields("メールアドレス"), "@", "@") %> <% Else %> <% = Content.Fields("メールアドレス") & "@hsns.sfc-jpn.jp" %> <% End If %> <% 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 %>

管理ログイン履歴 <% = Spacer(1, 7) %> <% Query = "" Query = Query & " SELECT TFショップアクセスログ.*, TMショップ.*, TM学校.名称 AS 学校モール名 " ' Query = Query & " SELECT TOP 50 TFショップアクセスログ.*, TMショップ.*, TM学校.名称 AS 学校モール名 " Query = Query & " FROM TFショップアクセスログ " Query = Query & " LEFT OUTER JOIN TMショップ " Query = Query & " ON TMショップ.ショップID = TFショップアクセスログ.ショップID " Query = Query & " LEFT OUTER JOIN TM学校 " Query = Query & " ON TM学校.学校CD = TFショップアクセスログ.学校CD " ' Query = Query & " WHERE ショップID = " & GB_ShopAdmin & " " Query = Query & " WHERE TFショップアクセスログ.IPアドレス NOT LIKE '192.168.0.%' " Query = Query & " AND TFショップアクセスログ.IPアドレス NOT IN ('122.208.47.113', '122.208.47.114', '122.208.47.115', '122.208.47.116', '122.208.47.117', '122.208.47.118', '122.208.47.119', '122.208.47.120', '122.208.47.121', '122.208.47.122', '122.208.47.123', '122.208.47.124', '122.208.47.125', '122.208.47.126') " Query = Query & " ORDER BY TFショップアクセスログ.ログイン日時 DESC " Query = Query & " " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Do While Not(Content.BOF Or Content.EOF) %> <% Content.MoveNext Loop %> ログイン日時 学校名 ショップ名 IPアドレス 利用ブラウザ（先頭76文字） <% = Left(Content.Fields("ログイン日時"), Len(Content.Fields("ログイン日時")) - 3) %> <% If "" & Content.Fields("学校名") <> "" Then %> <% = Content.Fields("学校名") %> <% Else %> <% = Content.Fields("学校モール名") %> <% End If %> <% = Content.Fields("名称") %> <% = Content.Fields("IPアドレス") %> <% = Left(Content.Fields("利用ブラウザ"), 76) %>

ショップ閲覧ビジター数　※同一者による同日アクセスは1回にカウントされます <% = Spacer(1, 7) %> <% Query = "" Query = Query & " SELECT COUNT(TFショップビジター履歴.ショップID) AS アクセス数 " Query = Query & " , TMショップ.名称 " Query = Query & " , MAX(TFショップビジター履歴.アクセス日時) AS 最終アクセス日時 " Query = Query & " FROM TFショップビジター履歴 " Query = Query & " INNER JOIN TMショップ " Query = Query & " ON TFショップビジター履歴.ショップID = TMショップ.ショップID " Query = Query & " WHERE TFショップビジター履歴.演習CD IS NULL " 'ローカルモードは除外 Query = Query & " AND TMショップ.公開フラグ = '1' " Query = Query & " GROUP BY TFショップビジター履歴.ショップID " Query = Query & " , TMショップ.名称 " 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 %> 累計閲覧回数 ショップ名 最終アクセス日時 <% = Content.Fields("アクセス数") %> <% = Content.Fields("名称") %> <% = Content.Fields("最終アクセス日時") %>

ビジターIPアドレス分布　※直近100アドレス （管理ログインで利用されたIPアドレスは除外） Node = 同一IPでの接続ノード数　Cart = 買い物かごに入れた商品点数 <% = Spacer(1, 7) %> <% Query = "" Query = Query & " SELECT TOP 100 COUNT(TMビジター.IPアドレス) AS ノード数, MAX(TMビジター.最終アクセス日時) AS 最終アクセス日時, TMビジター.IPアドレス, COUNT(TF買い物かご.商品ID) AS カート入数 " Query = Query & " FROM TMビジター " Query = Query & " LEFT OUTER JOIN TF買い物かご " Query = Query & " ON TF買い物かご.ビジターYMD = TMビジター.ビジターYMD " Query = Query & " AND TF買い物かご.ビジターID = TMビジター.ビジターID " Query = Query & " WHERE TMビジター.IPアドレス IS NOT NULL AND TMビジター.IPアドレス <> '' " Query = Query & " AND TMビジター.IPアドレス NOT LIKE '192.168.0.%' " Query = Query & " AND TMビジター.IPアドレス NOT IN ('122.208.47.113', '122.208.47.114', '122.208.47.115', '122.208.47.116', '122.208.47.117', '122.208.47.118', '122.208.47.119', '122.208.47.120', '122.208.47.121', '122.208.47.122', '122.208.47.123', '122.208.47.124', '122.208.47.125', '122.208.47.126') " If JogaiAddr <> "" Then Query = Query & " AND TMビジター.IPアドレス NOT IN (" & JogaiAddr & ") " End If Query = Query & " GROUP BY TMビジター.IPアドレス " ' Query = Query & " ORDER BY ノード数 DESC, 最終アクセス日時 DESC " 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アドレス Node Cart <% = Left(Content.Fields("最終アクセス日時"), Len(Content.Fields("最終アクセス日時")) - 3) %> <% = Content.Fields("IPアドレス") %> <% = Content.Fields("ノード数") %> <% = Content.Fields("カート入数") %>

ビジター接続対象ホスト分布 （管理ログインで利用されたIPアドレスは除外） <% = Spacer(1, 7) %> <% Query = "" Query = Query & " SELECT COUNT(TMビジター.対象ホスト名) AS ノード数, MAX(TMビジター.最終アクセス日時) AS 最終アクセス日時, TMビジター.対象ホスト名 " Query = Query & " , TM学校.名称 " Query = Query & " FROM TMビジター " Query = Query & " INNER JOIN TM学校 " Query = Query & " ON TMビジター.対象ホスト名 = TM学校.ホスト名 " Query = Query & " WHERE TMビジター.IPアドレス IS NOT NULL AND TMビジター.IPアドレス <> '' " Query = Query & " AND TMビジター.IPアドレス NOT LIKE '192.168.0.%' " Query = Query & " AND TMビジター.IPアドレス NOT IN ('122.208.47.113', '122.208.47.114', '122.208.47.115', '122.208.47.116', '122.208.47.117', '122.208.47.118', '122.208.47.119', '122.208.47.120', '122.208.47.121', '122.208.47.122', '122.208.47.123', '122.208.47.124', '122.208.47.125', '122.208.47.126') " If JogaiAddr <> "" Then Query = Query & " AND TMビジター.IPアドレス NOT IN (" & JogaiAddr & ") " End If Query = Query & " AND TMビジター.対象ホスト名 IS NOT NULL " Query = Query & " AND TMビジター.対象ホスト名 <> '' " Query = Query & " GROUP BY TMビジター.対象ホスト名, TM学校.名称 " ' Query = Query & " ORDER BY ノード数 DESC, 最終アクセス日時 DESC " ' Query = Query & " ORDER BY 最終アクセス日時 DESC " 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 %> ホスト名 学校名 Node <% = Content.Fields("対象ホスト名") %> <% = Content.Fields("名称") %> <% = Content.Fields("ノード数") %>

<% End Sub %>