<% End If %> <% Dim ii, jj ii = 0 jj = 0 If TmpLoginID = "ALL" Then Query = "exec SP0アクセスログ一覧 '" & GB_SystemCD & "', '%'" Else Query = "exec SP0アクセスログ一覧 '" & GB_SystemCD & "', '" & TmpLoginID & "'" End If Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Dim Setsuzoku If Content.Fields("接続成否") = "3" Then Setsuzoku = "運用管理者" ElseIf Content.Fields("接続成否") = "2" Then Setsuzoku = "演習管理者" ElseIf Content.Fields("接続成否") = "1" Then Setsuzoku = "通常ユーザー" Else Setsuzoku = "ログイン認証失敗" End If Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") Content.MoveNext Loop For jj = ii To 15 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next %>

" & Content.Fields("ログイン試行日時") & "	" & Content.Fields("ログインID") & "	" & Content.Fields("ログインパスワード") & "	" & Content.Fields("リモートアドレス") & "	" & Setsuzoku & "

<% If PrintFlg <> 1 Then %>

<% End If %> <% 'ログインIDで集計するクエリ（学生Mを内部結合するので管理者は除外されます） Query = "" Query = Query & " SELECT TC0アクセスログ.ログインID, COUNT(TC0アクセスログ.ログインID) AS ログイン回数, TC0アクセスログ.ログインパスワード, TC5学生M.氏名, TC3学生グループM.グループ名称 " Query = Query & " FROM TC0アクセスログ " Query = Query & " INNER JOIN TC5学生M " Query = Query & " ON TC5学生M.システムCD = TC0アクセスログ.システムCD " Query = Query & " AND TC5学生M.学生番号 = TC0アクセスログ.ログインID " Query = Query & " AND TC5学生M.パスワード = TC0アクセスログ.ログインパスワード " Query = Query & " INNER JOIN TC3学生グループM " Query = Query & " ON TC3学生グループM.システムCD = TC0アクセスログ.システムCD " Query = Query & " AND TC3学生グループM.学生グループCD = TC5学生M.学生グループCD " Query = Query & " WHERE TC0アクセスログ.システムCD = '" & GB_SystemCD & "' " If FromYmd <> "" Then Query = Query & " AND TC0アクセスログ.ログイン試行日時 >= '" & FromYmd & " 00:00:00.00' " End If If ToYmd <> "" Then Query = Query & " AND TC0アクセスログ.ログイン試行日時 <= '" & ToYmd & " 23:59:59.99' " End If Query = Query & " AND TC0アクセスログ.接続成否 > 0 " Query = Query & " GROUP BY TC0アクセスログ.ログインID, TC0アクセスログ.ログインパスワード, TC5学生M.氏名, TC3学生グループM.グループ名称 " Query = Query & " ORDER BY TC3学生グループM.グループ名称, TC5学生M.氏名, TC0アクセスログ.ログインID " Query = Query & " " Set Content = OpenQuery(Query) 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("") Content.MoveNext Loop %>

" & Content.Fields("ログインID") & "

" & Content.Fields("氏名") & "

" & Content.Fields("グループ名称") & "

" & Content.Fields("ログイン回数") & "

<% If PrintFlg <> 1 Then %>

<% End If %> <% Dim WhereField If TmpShukei = "IPAddr" Then WhereField = "リモートアドレス" Else'If TmpShukei = "Kubun" Then WhereField = "接続成否" End If Query = "" Query = Query & " SELECT " & WhereField & ", COUNT(" & WhereField & ") AS アクセス回数 " Query = Query & " FROM TC0アクセスログ " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " If FromYmd <> "" Then Query = Query & " AND ログイン試行日時 >= '" & FromYmd & " 00:00:00.00' " End If If ToYmd <> "" Then Query = Query & " AND ログイン試行日時 <= '" & ToYmd & " 23:59:59.99' " End If Query = Query & " AND 接続成否 > 0 " Query = Query & " GROUP BY " & WhereField & " " Query = Query & " " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Content.MoveNext Loop %>

") If TmpShukei = "IPAddr" Then Response.Write(Content.Fields(WhereField)) Else'If TmpShukei = "Kubun" Then If Content.Fields(WhereField) = "3" Then Response.Write("運用管理者") ElseIf Content.Fields(WhereField) = "2" Then Response.Write("演習管理者") Else'If Content.Fields(WhereField) = "1" Then Response.Write("通常ユーザー") End If End If Response.Write("

" & Content.Fields("アクセス回数") & "

<% If PrintFlg <> 1 Then %>