<!-- #include file="../../include.asp" --> <!-- #include file="../../admin/kihon/fm_accesslog_main_in.asp" --> <% '<!-- '################################################ ' 名称 :アクセスログ ' 作成日 :2008/6/17 ' 作成者 :小野 '################################################ '--> %> <% main() Sub main() 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") %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache"> <meta http-equiv="Expires" content="-1"> <link href="../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="../../include.js?<% = TimeUniq() %>"></script> <script language="JScript" src="../../includesj.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../include_enc.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../includesj_enc.js?<% = TimeUniq() %>"></script> <script type="text/javascript" src="../../javascript.js?<% = TimeUniq() %>"></script> </head> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 0 ;--> </SCRIPT> <body onload="this.focus();window.print();" onkeydown="if(ExitFlg==2)ExitFlg=3;" topmargin="0" leftmargin="0"> <% Response.Write(AccessLog(TmpLoginID, TmpShukei, FromYmd, ToYmd, Action, 0, 1)) %> </body> <% End Sub %>