<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% Const L_GENERAL_TEXT = "General Logging Options" Const L_EXTPROPERTIES_TEXT = "Extended Logging Options" Const L_NEWTIMEPERIOD_TEXT = "New Log Time Period" Const L_DAILY_TEXT = "Daily" Const L_WEEKLY_TEXT= "Weekly" Const L_MONTHLY_TEXT = "Monthly" Const L_UNLIMITED_TEXT = "Unlimited file size" Const L_LIMITED_TEXT = "When file size reaches:" Const L_MB_TEXT = "MB" Const L_LOGDIR_TEXT = "Log file directory:" Const L_LOGFILE_TEXT = "Log file name:" Const L_BROWSE_TEXT = "Browse..." Const L_DATE_TEXT = "Date" Const L_TIME_TEXT = "Time" Const L_CLIENTIPADDRESS_TEXT = "Client IP Address" Const L_USERNAME_TEXT = "User Name" Const L_SERVICENAME_TEXT = "Service Name" Const L_SERVERNAME_TEXT = "Server Name" Const L_SERVERIP_TEXT = "Server IP" Const L_SERVERPORT_TEXT = "Server Port" Const L_METHOD_TEXT = "Method" Const L_URISTEM_TEXT = "URI Stem" Const L_URIQUERY_TEXT = "URI Query" Const L_HTTPSTATUS_TEXT = "Http Status" Const L_WIN32STATUS_TEXT = "Win32 Status" Const L_BYTESSENT_TEXT = "Bytes Sent" Const L_BYTESRECEIVED_TEXT = "Bytes Received" Const L_TIMETAKEN_TEXT = "Time Taken" Const L_USERAGENT_TEXT = "User Agent" Const L_COOKIE_TEXT = "Cookie" Const L_REFERER_TEXT = "Referer" Const L_HTTPVER_TEXT = "W3C Version" Const L_ODBCOPTIONS_TEXT = "ODBC Logging Options" Const L_ODBCDSNAME_TEXT = "ODBC Data Source Name (DSN)" Const L_TABLE_TEXT = "Table" Const L_USER_TEXT = "User Name" Const L_PASSWORD_TEXT = "Password" Const MD_UNLIMITED_FILESIZE = "&HFFFFFFFF" On Error Resume Next Dim path, currentobj, lfSize path=Session("spath") Session("path")=path Session("SpecObj")="" Session("SpecProps")="" Set currentobj=GetObject(path) function writeLogFileName() writeLogFileName = "xxyyzz.log" end function %> <% if Session("canBrowse") then %> <% end if %>

<% if Session("setLogUI") = "ODBC" then %>

<%= L_ODBCOPTIONS_TEXT %>
<%= L_ODBCDSNAME_TEXT %> <%= text("LogOdbcDataSource",50,"","", "",False,False) %> <%= L_TABLE_TEXT %> <%= text("LogOdbcTableName",50,"","", "",False,False) %> <%= L_USER_TEXT %> <%= text("LogOdbcUserName",50,"","", "",False,False) %> <%= L_PASSWORD_TEXT %> <%= pword("LogOdbcPassword",50,"","", "",False,False) %>

<% else %>

<%= L_GENERAL_TEXT %>

<%= L_NEWTIMEPERIOD_TEXT %>

<%= printradio("LogFilePeriod", currentobj.LogFilePeriod = 1, "document.userform.LogFilePeriod.value=1;",False) %> <%= L_DAILY_TEXT %>
<%= printradio("LogFilePeriod", currentobj.LogFilePeriod = 2, "document.userform.LogFilePeriod.value=2;",False) %> <%= L_WEEKLY_TEXT %>
<%= printradio("LogFilePeriod", currentobj.LogFilePeriod = 3, "document.userform.LogFilePeriod.value=3;",False) %> <%= L_MONTHLY_TEXT %>
<%= printradio("LogFilePeriod", currentobj.LogFilePeriod = 0, "document.userform.LogFilePeriod.value=0;document.userform.LogFileTruncateSize.value='" & CLng(MD_UNLIMITED_FILESIZE) & "';",False) %> <%= L_UNLIMITED_TEXT %>
<%= printradio("LogFilePeriod", currentobj.LogFilePeriod = 0 and currentobj.LogFileTruncateSize <> CLng(MD_UNLIMITED_FILESIZE), "document.userform.LogFilePeriod.value=0;document.userform.LogFileTruncateSize.value=document.userform.hdnLogFileTruncateSize.value * 1048576;",False) %> <%= L_LIMITED_TEXT %>

<% if currentobj.LogFilePeriod <> 0 or currentobj.LogFileTruncateSize = CLng(MD_UNLIMITED_FILESIZE) then lfSize = "" else lfSize = currentobj.LogFileTruncateSize/1048576 end if %> <%= inputbox(0,"text", "hdnLogFileTruncateSize",lfSize,10,"","", "calcLFSize(this);",True,False,False) %> <%= L_MB_TEXT %>

<%= L_LOGDIR_TEXT %>

<%= text("LogFileDirectory",40,"","", "",False,False) %> <% if Session("canBrowse") then %> );"> <% end if %>

<% if Session("setLogUI") = "EXT" then %> <% if not Session("IsIE") then %>