<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Action Action = Request("Action") If Action = "" Then Action = "0" End If Dim TmpLoginID TmpLoginID = Request("TmpLoginID") Dim TmpShukei TmpShukei = Request("TmpShukei") Dim FromYmd FromYmd = Request("FromYmd") Dim ToYmd ToYmd = Request("ToYmd") Dim Query Dim Content Dim RouteType RouteType = Request("RouteType") %> <% = AppTitle %>
<% Response.Write(HtmlDesign(10)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "システム情報", "tblbtn( '/" & HomeAlias & "/admin/kihon/fm_kihon_view.asp')", "アクセスログ" , "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) If Action <> "1" Then If TmpLoginID = "" Then Response.Write(HttpL4("アクセスログ", " 全ログインID一覧 ")) Else Response.Write(HttpL4("アクセスログ", " " & TmpLoginID & " の一覧 ")) End If Else If TmpShukei = "LoginID" Then Response.Write(HttpL4("アクセスログ", "ログインID集計 ")) ElseIf TmpShukei = "IPAddr" Then Response.Write(HttpL4("アクセスログ", "接続元IPアドレス集計 ")) Else'If TmpShukei = "Kubun" Then Response.Write(HttpL4("アクセスログ", "ユーザー区分集計 ")) End If End If Response.Write(HttpL5("")) %>
<% = HtmlFooter %> <% End Sub %>