<% ' ' %> <% main() Sub main() If Session("AccessLogAdmin") <> "FESACLOG" Then Session("AccessLogAdmin") = UCase(Request("admin")) End If Dim Query Dim Content Dim Content2 Dim SystemCD SystemCD = Request("SystemCD") Dim SystemMeisho Dim TmpLoginID TmpLoginID = Request("TmpLoginID") Dim TmpShukei TmpShukei = Request("TmpShukei") Dim FromYmd FromYmd = Request("FromYmd") Dim ToYmd ToYmd = Request("ToYmd") Dim Page Page = Request("Page") If Page <> "" Then Page = CInt(Page) Else Page = 0 End If Dim MaxRow MaxRow = 20 Query = "" Query = Query & " SELECT 表示順 " Query = Query & " FROM TA区分 " Query = Query & " WHERE 分類 = 'システム情報' " Query = Query & " AND 区分 = 'MaxRow' " Query = Query & " AND 名称 = 'ページ表示行数' " Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If "" & Content.Fields("表示順") <> "" Then MaxRow = Content.Fields("表示順") End If End If Dim RowCnt RowCnt = 0 Dim FileName If TmpShukei = "3" Then FileName = "ユーザー区分集計" ElseIf TmpShukei = "2" Then FileName = "接続元IPアドレス集計" ElseIf TmpShukei = "1" Then FileName = "ログインID集計" ElseIf TmpLoginID <> "" Then FileName = "ログインID「" & TmpLoginID & "」一覧" Else FileName = "全ログインID一覧" End If If FromYmd <> "" Then FileName = FileName & " " & Replace(FromYmd, "/", "") End If If FromYmd <> "" Or ToYmd <> "" Then FileName = FileName & " 〜" End If If ToYmd <> "" Then FileName = FileName & " " & Replace(ToYmd, "/", "") End If FileName = FileName & ".csv" Dim OutFile OutFile = 0 %>

" name="form1"> <% If Session("AccessLogAdmin") <> "FESACLOG" Then %> キーワード：

<% Else %>

?SystemCD=' + this.value + '&TmpShukei=' + form1.TmpShukei.value;" class="tbox2"> 全アプリケーション表示 <% '対象ソフトウェア選択メニュー Query = "" Query = Query & " SELECT TA区分.区分, TA区分.名称, TA区分.表示順 " Query = Query & " FROM TA区分 " Query = Query & " INNER JOIN TAログ " 'TAログ内部結合によりログが存在するソフトウェアのみ取得 Query = Query & " ON TA区分.区分 = TAログ.システムCD " Query = Query & " WHERE 分類 = 'システムCD' " Query = Query & " GROUP BY TA区分.区分, TA区分.名称, TA区分.表示順 " Query = Query & " ORDER BY 表示順 DESC " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("" & Content.Fields("名称") & "" & vbCrLf) Content.MoveNext Loop FileName = SystemMeisho & FileName %> <% 'バージョン情報 Query = "" Query = Query & " SELECT 名称 " Query = Query & " FROM TA区分 " Query = Query & " WHERE 分類 = 'システム情報' " Query = Query & " AND 区分 = 'Version' " Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Response.Write("　　Version：" & Content.Fields("名称")) End If %>

<% If 0=0 Or SystemCD <> "" Then %>

ログインIDで抽出 全ログインID表示 <% Query = "exec SP0アクセスログログインID一覧 '" & SystemCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("" & Content.Fields("ログインID") & "" & vbCrLf) Content.MoveNext Loop %>     集計一覧表示 集計しない <% Query = "" Query = Query & " SELECT * " Query = Query & " FROM TA区分 " Query = Query & " WHERE 分類 = '集計区分' " Query = Query & " ORDER BY 表示順 DESC " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("" & Content.Fields("名称") & "" & vbCrLf) Content.MoveNext Loop %>

期間指定 〜

<% If TmpShukei = "" Then 'ログインID一覧 %> <% If Page > 0 Then %> <% End If 'ログインID一覧 Query = "exec SP0アクセスログ一覧 '" & SystemCD & "'" Query = Query & ", '" & TmpLoginID & "'" 'ログインID If FromYmd <> "" Then Query = Query & ", '" & FromYmd & " 00:00:00'" '集計開始日 Else Query = Query & ", '1753/01/01 12:00:00.00'" End If If ToYmd <> "" Then Query = Query & ", '" & ToYmd & " 23:59:59.99'" '集計終了日 Else Query = Query & ", '9999/12/31 23:59:59.99'" End If Set Content = OpenQuery(Query) 'ページカウント分だけ飛ばす RowCnt = 0 Do While Not(Content.EOF Or Content.EOF) OutFile = 1 If RowCnt => Page * MaxRow Then Exit Do End If RowCnt = RowCnt + 1 Content.MoveNext Loop RowCnt = 0 Do While Not(Content.EOF Or Content.EOF) If RowCnt => MaxRow Then Exit Do End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) RowCnt = RowCnt + 1 Content.MoveNext Loop If Not(Content.EOF Or Content.EOF) Then %> <% End If Else '集計一覧 Dim ShukeiMeisho Query = "" Query = Query & " SELECT * " Query = Query & " FROM TA区分 " Query = Query & " WHERE 分類 = '集計区分' " Query = Query & " AND 区分 = '" & TmpShukei & "' " Set Content = OpenQuery(Query) If Not(Content.EOF Or Content.EOF) Then ShukeiMeisho = Content.Fields("名称") End If %>

接続日時	アプリケーション	ログインID	パスワード	接続元IPアドレス	接続の成否
前ページ
" & Content.Fields("ログイン試行日時") & "	" & Content.Fields("システム名称") & "	" & Content.Fields("ログインID") & "	" & Content.Fields("ログインパスワード") & "	" & Content.Fields("リモートアドレス") & "	") If Content.Fields("接続成否") = "0" Then Response.Write("") ElseIf Content.Fields("接続成否") = "2" Or Content.Fields("接続成否") = "4" Then Response.Write("") ElseIf Content.Fields("接続成否") = "3" Then Response.Write("") End If Response.Write(" " & Content.Fields("ユーザー区分") & " ") Response.Write("") Response.Write("
次ページ

<% If Page > 0 Then %> <% End If '集計一覧 Query = "exec SP0アクセスログ集計 '" & SystemCD & "'" Query = Query & ", '" & TmpShukei & "'" '集計区分 If FromYmd <> "" Then Query = Query & ", '" & FromYmd & " 00:00:00'" '集計開始日 Else Query = Query & ", '1753/01/01 12:00:00.00'" End If If ToYmd <> "" Then Query = Query & ", '" & ToYmd & " 23:59:59.99'" '集計終了日 Else Query = Query & ", '9999/12/31 23:59:59.99'" End If Set Content = OpenQuery(Query) 'ページカウント分だけ飛ばす RowCnt = 0 Do While Not(Content.EOF Or Content.EOF) OutFile = 1 If RowCnt => Page * MaxRow Then Exit Do End If RowCnt = RowCnt + 1 Content.MoveNext Loop RowCnt = 0 Do While Not(Content.EOF Or Content.EOF) If RowCnt => MaxRow Then Exit Do End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) RowCnt = RowCnt + 1 Content.MoveNext Loop If Not(Content.EOF Or Content.EOF) Then %> <% End If End If %>

<% = ShukeiMeisho %>	回数
前ページ
" & Content.Fields("集計名称") & "	" & Content.Fields("集計回数") & "
次ページ

<% If OutFile > 0 Then 'CSV出力 %>

<% End If End If %> <% End If %> <% End Sub %>