393 lines
11 KiB
Plaintext
393 lines
11 KiB
Plaintext
|
<%@ LANGUAGE = VBScript %>
|
||
|
|
<% Option Explicit %>
|
||
|
|
<!-- #include file="directives.inc" -->
|
||
|
|
|
||
|
|
<!--#include file="iilogmn.str"-->
|
||
|
|
|
||
|
|
<%
|
||
|
|
Const MD_UNLIMITED_FILESIZE = "&HFFFFFFFF"
|
||
|
|
Const ISM_FILESIZE_DEFAULT = "512"
|
||
|
|
Const EXTW3SVCPATH = "IIS://localhost/w3svc"
|
||
|
|
Const EXTMSFTPSVCPATH = "IIS://localhost/msftpsvc"
|
||
|
|
Const CUSTOMLOGPATH = "IIS://localhost/Logging/Custom Logging"
|
||
|
|
Const CUSTOMLOGKEYTYPE = "IISCustomLogModule"
|
||
|
|
|
||
|
|
'On Error Resume Next
|
||
|
|
|
||
|
|
Dim path, currentobj, lfSize, svctype, svrname, ExtSvcPath,objExtSVC
|
||
|
|
|
||
|
|
path=Session("spath")
|
||
|
|
Session("path")=path
|
||
|
|
Session("SpecObj")=""
|
||
|
|
Session("SpecProps")=""
|
||
|
|
|
||
|
|
Set currentobj=GetObject(path)
|
||
|
|
|
||
|
|
if Session("stype") = "www" then
|
||
|
|
ExtSvcPath = EXTW3SVCPATH
|
||
|
|
else
|
||
|
|
ExtSvcPath = EXTMSFTPSVCPATH
|
||
|
|
end if
|
||
|
|
|
||
|
|
svctype = Mid(path, InStr(7,path, "/")+1)
|
||
|
|
if Instr(svctype,"/") then
|
||
|
|
svctype = Mid(svctype,1,Instr(svctype, "/")-1)
|
||
|
|
end if
|
||
|
|
svrname = Mid(path, InStrRev(path, "/")+1)
|
||
|
|
|
||
|
|
%>
|
||
|
|
|
||
|
|
<!--#include file="iiset.inc"-->
|
||
|
|
<!--#include file="iisetfnt.inc"-->
|
||
|
|
|
||
|
|
<%
|
||
|
|
' Do not use top.title.Global.update flag if page is loaded into a dialog
|
||
|
|
bUpdateGlobal = false
|
||
|
|
%>
|
||
|
|
<HTML>
|
||
|
|
<HEAD>
|
||
|
|
<TITLE></TITLE>
|
||
|
|
|
||
|
|
<% if Session("canBrowse") then %>
|
||
|
|
<SCRIPT LANGUAGE="JavaScript" SRC="JSDirBrowser/JSBrowser.js">
|
||
|
|
</SCRIPT>
|
||
|
|
|
||
|
|
<SCRIPT LANGUAGE="JavaScript">
|
||
|
|
JSBrowser = new BrowserObj(null,false,TDIR,<%= Session("FONTSIZE") %>);
|
||
|
|
</SCRIPT>
|
||
|
|
|
||
|
|
<% end if %>
|
||
|
|
|
||
|
|
<SCRIPT LANGUAGE="JavaScript">
|
||
|
|
|
||
|
|
var aLogFileNames = Array("<%= L_LIMITLOG %>", "<%= L_DAYLOG %>","<%= L_WEEKLOG %>","<%= L_MONTHLOG %>","<%= L_HOURLOG %>");
|
||
|
|
var aHiddenFields = Array();
|
||
|
|
|
||
|
|
function buildListForm(){
|
||
|
|
<% if Session("setLogUI") = "EXT" then %>
|
||
|
|
setParentFlag();
|
||
|
|
<% end if %>
|
||
|
|
qstr="numrows=0";
|
||
|
|
top.hlist.location.href="iihdn.asp?"+qstr;
|
||
|
|
}
|
||
|
|
|
||
|
|
function SetListVals(){
|
||
|
|
}
|
||
|
|
|
||
|
|
function setParentFlag()
|
||
|
|
{
|
||
|
|
<% if Session("setLogUI") <> "ODBC" then %>
|
||
|
|
<% if Session("IsIE") then %>
|
||
|
|
var extform = document.EXTFRAME.document.extuserform;
|
||
|
|
<% else %>
|
||
|
|
var extform = document.extuserform;
|
||
|
|
<% end if %>
|
||
|
|
var extformsize = extform.elements.length;
|
||
|
|
var extformflags = 0;
|
||
|
|
var fldname = "";
|
||
|
|
|
||
|
|
for (var i=0; i < aHiddenFields.length; i++)
|
||
|
|
{
|
||
|
|
document.userform[aHiddenFields[i]].value = 0;
|
||
|
|
}
|
||
|
|
for (var i=0; i < extformsize; i++)
|
||
|
|
{
|
||
|
|
if (extform.elements[i].checked)
|
||
|
|
{
|
||
|
|
//this is quite ridiculous, but necessary.. otherwise it treats these values as strings & concats 'em...
|
||
|
|
oldval = new Number(document.userform[extform.elements[i].name].value);
|
||
|
|
newval = new Number(extform.elements[i].value);
|
||
|
|
x = newval + oldval;
|
||
|
|
document.userform[extform.elements[i].name].value = x ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
<% end if %>
|
||
|
|
}
|
||
|
|
|
||
|
|
function calcLFSize(mbCntrl)
|
||
|
|
{
|
||
|
|
num = parseInt(mbCntrl.value);
|
||
|
|
if (!isNaN(num))
|
||
|
|
{
|
||
|
|
mbCntrl.value = num;
|
||
|
|
|
||
|
|
// We only want to update if file size radio is checked.
|
||
|
|
// Note: we are depending on the radio being the last one in the list.
|
||
|
|
if( document.userform.rdoLogFilePeriod[document.userform.rdoLogFilePeriod.length - 1].checked )
|
||
|
|
{
|
||
|
|
document.userform.LogFileTruncateSize.value = mbCntrl.value * 1048576;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
alert("<%= L_INTEGERREQ_TEXT %>");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function noUNCPaths(pathCntrl)
|
||
|
|
{
|
||
|
|
var pathval = pathCntrl.value;
|
||
|
|
if (pathval.substring(0,1) == "\\\\")
|
||
|
|
{
|
||
|
|
alert("<%= L_NOUNCS %>");
|
||
|
|
pathCntrl.value = "";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function listFuncs(){
|
||
|
|
this.bHasList = false;
|
||
|
|
this.writeList=buildListForm;
|
||
|
|
this.SetListVals=SetListVals;
|
||
|
|
this.mainframe = top.opener.top;
|
||
|
|
}
|
||
|
|
|
||
|
|
function setLogFile(intLogType)
|
||
|
|
{
|
||
|
|
document.userform.LogFilePeriod.value = intLogType;
|
||
|
|
document.userform.hdnLogFileName.value = "<%= svctype %><%= svrname %>\\" + aLogFileNames[intLogType];
|
||
|
|
}
|
||
|
|
|
||
|
|
<% if Session("setLogUI") = "ODBC" then %>
|
||
|
|
|
||
|
|
function chkPassword(pass2, pass1)
|
||
|
|
{
|
||
|
|
if (pass1.value != pass2.value)
|
||
|
|
{
|
||
|
|
alert("<%= L_PASSNOTMATCH_TEXT %>");
|
||
|
|
pass2.value = "";
|
||
|
|
pass2.focus();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
<% end if %>
|
||
|
|
|
||
|
|
listFunc=new listFuncs();
|
||
|
|
</SCRIPT>
|
||
|
|
|
||
|
|
</HEAD>
|
||
|
|
|
||
|
|
<BODY TOPMARGIN=10 LEFTMARGIN=10 BGCOLOR="silver" LINK="#000000" VLINK="#000000" <%if Session("setLogUI") <> "ODBC" then %>onLoad="setLogFile(document.userform.LogFilePeriod.value);"<% end if %>>
|
||
|
|
|
||
|
|
<%= sFont("","","",True) %>
|
||
|
|
<% if Session("setLogUI") = "ODBC" then %>
|
||
|
|
<FORM NAME="userform">
|
||
|
|
<A NAME="ODBC"></A>
|
||
|
|
<TABLE WIDTH =100% HEIGHT = <%= L_PAGEHEIGHT_NUM %>>
|
||
|
|
<TR>
|
||
|
|
<TD COLSPAN = 2>
|
||
|
|
<%= sFont("","","",True) %>
|
||
|
|
<B><%= L_ODBCOPTIONS_TEXT %></B><P>
|
||
|
|
</FONT>
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
<TR>
|
||
|
|
<TD COLSPAN = 2 VALIGN="top">
|
||
|
|
<%= sFont("","","",True) %>
|
||
|
|
|
||
|
|
<%= L_ODBCDSNAME_TEXT %><BR>
|
||
|
|
<%= text("LogOdbcDataSource",L_ODBCTEXTFIELDS_NUM,"","", "",False,False) %><P>
|
||
|
|
<%= L_TABLE_TEXT %><BR>
|
||
|
|
<%= text("LogOdbcTableName",L_ODBCTEXTFIELDS_NUM,"","", "",False,False) %><P>
|
||
|
|
<%= L_USER_TEXT %><BR>
|
||
|
|
<%= text("LogOdbcUserName",L_ODBCTEXTFIELDS_NUM,"","", "",False,False) %><P>
|
||
|
|
<%= L_PASSWORD_TEXT %><BR>
|
||
|
|
<%= pword("LogOdbcPassword",L_ODBCTEXTFIELDS_NUM,"hdnLogODBCPassword.value='';","", "",False,False) %><P>
|
||
|
|
<%= L_CONFIRMPASSWORD_TEXT %><BR>
|
||
|
|
<%= inputbox(0,"PASSWORD","hdnLogODBCPassword", currentobj.LogOdbcPassword,L_ODBCTEXTFIELDS_NUM,"","","chkPassword(this,LogOdbcPassword);",False,False,False) %>
|
||
|
|
</TR>
|
||
|
|
</TABLE>
|
||
|
|
</FORM>
|
||
|
|
|
||
|
|
<% else %>
|
||
|
|
<A NAME="GENERAL">
|
||
|
|
<FORM NAME="userform">
|
||
|
|
<TABLE WIDTH =100% HEIGHT = <%= L_PAGEHEIGHT_NUM %>>
|
||
|
|
<TR>
|
||
|
|
<TD COLSPAN = 2>
|
||
|
|
<%= sFont("","","",True) %>
|
||
|
|
<B><%= L_GENERAL_TEXT %></B>
|
||
|
|
(<%= Session("LogName") %>)
|
||
|
|
<P>
|
||
|
|
</FONT>
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
<TR>
|
||
|
|
<TD COLSPAN = 2 VALIGN="top">
|
||
|
|
<%= sFont("","","",True) %>
|
||
|
|
<IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">
|
||
|
|
<%= L_NEWTIMEPERIOD_TEXT %>
|
||
|
|
<IMG SRC="images/hr.gif" WIDTH=<%= L_NEWTIMEPERIOD_HR %> HEIGHT=2 BORDER=0 ALIGN="middle">
|
||
|
|
<P>
|
||
|
|
<INPUT TYPE="hidden" NAME="LogFilePeriod" VALUE="<%= currentobj.LogFilePeriod %>">
|
||
|
|
<%= printradio("LogFilePeriod", currentobj.LogFilePeriod = 4, "setLogFile(4);",False) %>
|
||
|
|
<%= L_HOURLY_TEXT %><BR>
|
||
|
|
<%= printradio("LogFilePeriod", currentobj.LogFilePeriod = 1, "setLogFile(1);",False) %>
|
||
|
|
<%= L_DAILY_TEXT %><BR>
|
||
|
|
<%= printradio("LogFilePeriod", currentobj.LogFilePeriod = 2, "setLogFile(2);",False) %>
|
||
|
|
<%= L_WEEKLY_TEXT %><BR>
|
||
|
|
<%= printradio("LogFilePeriod", currentobj.LogFilePeriod = 3, "setLogFile(3);",False) %>
|
||
|
|
<%= L_MONTHLY_TEXT %><BR>
|
||
|
|
<%= printradio("LogFilePeriod", currentobj.LogFilePeriod = 0 and currentobj.LogFileTruncateSize = CLng(MD_UNLIMITED_FILESIZE), "setLogFile(0);document.userform.LogFileTruncateSize.value='" & CLng(MD_UNLIMITED_FILESIZE) & "';",False) %>
|
||
|
|
<%= L_UNLIMITED_TEXT %><BR>
|
||
|
|
<%= printradio("LogFilePeriod", currentobj.LogFilePeriod = 0 and currentobj.LogFileTruncateSize <> CLng(MD_UNLIMITED_FILESIZE), "setLogFile(0);document.userform.LogFileTruncateSize.value=document.userform.hdnLogFileTruncateSize.value * 1048576;",False) %>
|
||
|
|
<%= L_LIMITED_TEXT %>
|
||
|
|
|
||
|
|
<%
|
||
|
|
' Set the defualt value for the hdnLogFileTruncateSize text box
|
||
|
|
if currentobj.LogFileTruncateSize = CLng(MD_UNLIMITED_FILESIZE) then
|
||
|
|
lfSize = ISM_FILESIZE_DEFAULT
|
||
|
|
else
|
||
|
|
lfSize = currentobj.LogFileTruncateSize/1048576
|
||
|
|
end if
|
||
|
|
%>
|
||
|
|
<%= inputbox(0,"text", "hdnLogFileTruncateSize",lfSize,L_FILESIZETEXT_NUM,"","", "calcLFSize(this);",True,False,False) %> <%= L_MB_TEXT %>
|
||
|
|
<INPUT TYPE="hidden" NAME="LogFileTruncateSize" VALUE="<%= currentobj.LogFileTruncateSize %>">
|
||
|
|
<BR>
|
||
|
|
<% if Session("setLogUI") = "EXT" then %>
|
||
|
|
<%= checkbox("LogFileLocaltimeRollover","",False) %>
|
||
|
|
<%= L_LOCALTIME_TEXT %>
|
||
|
|
|
||
|
|
<%
|
||
|
|
mainWriteLoggingFields
|
||
|
|
|
||
|
|
Sub mainWriteLoggingFields()
|
||
|
|
'On Error Resume Next
|
||
|
|
Dim objExtCustomLogging, objExtCustomModule, objExtW3SVC, sOutputScript
|
||
|
|
|
||
|
|
Set objExtSVC = GetObject(EXTSVCPATH)
|
||
|
|
Set objExtCustomLogging = GetObject(CUSTOMLOGPATH)
|
||
|
|
|
||
|
|
'Run through all of our custom modules, looking for new fields
|
||
|
|
sOutputScript = writeCustomLogField(objExtCustomLogging, objExtSVC, 0, "")
|
||
|
|
Response.write "<SCRIPT LANGUAGE='JavaScript'>" & sOutputScript & "</SCRIPT>"
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Function writeCustomLogField(objExtCustomModule, objExtSVC, itemCounter, lastField)
|
||
|
|
'On Error Resume Next
|
||
|
|
|
||
|
|
Dim objExtAttributes, objCustomProp, thisOutputScript
|
||
|
|
Dim foundit, service
|
||
|
|
|
||
|
|
if objExtCustomModule.KeyType = EXTCUSTOMLOGKEYTYPE then
|
||
|
|
'Response.write objExtCustomModule.Name & "<BR>"
|
||
|
|
|
||
|
|
foundit = false
|
||
|
|
for each service in objExtCustomModule.LogCustomPropertyServicesString
|
||
|
|
if (UCase(service) = UCase(objExtSVC.Name)) then
|
||
|
|
foundit = true
|
||
|
|
exit for
|
||
|
|
end if
|
||
|
|
next
|
||
|
|
if foundit then
|
||
|
|
if objExtCustomModule.LogCustomPropertyID <> 0 then
|
||
|
|
Set objExtAttributes = objExtSVC.getPropertyAttribObj(objExtCustomModule.LogCustomPropertyID)
|
||
|
|
if InStr(lastField,objExtAttributes.PropName)<= 0 then
|
||
|
|
thisOutputScript = "aHiddenFields[" & itemCounter & "] = '" & objExtAttributes.PropName & "';"
|
||
|
|
Response.write "<INPUT TYPE='hidden' NAME='" & objExtAttributes.PropName & "' VALUE='" & currentobj.Get(objExtAttributes.PropName) & "'>"
|
||
|
|
itemCounter = itemCounter + 1
|
||
|
|
lastField = lastField & "," & objExtAttributes.PropName
|
||
|
|
end if
|
||
|
|
end if
|
||
|
|
For Each objCustomProp In objExtCustomModule
|
||
|
|
thisOutputScript = thisOutputScript & writeCustomLogField(objCustomProp, objExtSVC, itemCounter, lastField)
|
||
|
|
Next
|
||
|
|
end if
|
||
|
|
end if
|
||
|
|
writeCustomLogField = thisOutputScript
|
||
|
|
End Function
|
||
|
|
|
||
|
|
%>
|
||
|
|
<P>
|
||
|
|
<% end if %>
|
||
|
|
|
||
|
|
<IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">
|
||
|
|
<%= L_LOGFILEPROPS_TEXT %>
|
||
|
|
<IMG SRC="images/hr.gif" WIDTH=<%= L_LOGFILEPROPS_HR %> HEIGHT=2 BORDER=0 ALIGN="middle">
|
||
|
|
<P>
|
||
|
|
<TABLE>
|
||
|
|
<TR>
|
||
|
|
<TD> <%= sFont("","","",True) %>
|
||
|
|
<%= L_LOGDIR_TEXT %>
|
||
|
|
</TD>
|
||
|
|
<TD>
|
||
|
|
<%= sFont("","","",True) %>
|
||
|
|
<%= text("LogFileDirectory",L_LOGDIRTEXT_NUM,"","", "noUNCPaths(this);",False,False) %>
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
<TR>
|
||
|
|
<TD COLSPAN = 2 ALIGN="right">
|
||
|
|
<% if Session("canBrowse") then %>
|
||
|
|
<INPUT TYPE="button" NAME="hdnBrowser" VALUE="<%= L_BROWSE_TEXT %>" OnClick="JSBrowser = new BrowserObj(document.userform.LogFileDirectory,true,TFILE,<%= Session("FONTSIZE") %>);">
|
||
|
|
<% end if %>
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
<TR HEIGHT = 3>
|
||
|
|
<TD COLSPAN = 2>
|
||
|
|
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
<TR>
|
||
|
|
<TD>
|
||
|
|
<%= sFont("","","",True) %>
|
||
|
|
<%= L_LOGFILE_TEXT %>
|
||
|
|
</TD>
|
||
|
|
<TD>
|
||
|
|
<%= sFont("","","",True) %>
|
||
|
|
<INPUT TYPE="text" NAME="hdnLogFileName" VALUE="" SIZE=<%= L_LOGFILETEXT_NUM %> DISABLED onChange="setLogFile(document.userform.LogFilePeriod.value);" <%= Session("DEFINPUTSTYLE") %>>
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
</TABLE>
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
</TABLE>
|
||
|
|
</FORM>
|
||
|
|
</A>
|
||
|
|
|
||
|
|
|
||
|
|
<% if Session("setLogUI") = "EXT" then %>
|
||
|
|
<A NAME="EXT">
|
||
|
|
<TABLE WIDTH =90% HEIGHT = <%= L_PAGEHEIGHT_NUM %>>
|
||
|
|
<TR>
|
||
|
|
<TD COLSPAN = 2>
|
||
|
|
<%= sFont("","","",True) %>
|
||
|
|
<B><%= L_EXTPROPERTIES_TEXT %></B>
|
||
|
|
</FONT>
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
<TR>
|
||
|
|
<TD VALIGN= "TOP" >
|
||
|
|
<P>
|
||
|
|
|
||
|
|
<% if Session("IsIE") then %>
|
||
|
|
<IFRAME NAME="EXTFRAME" WIDTH = <%= L_PROPTREEFRAME_W %> HEIGHT = <%= L_PROPTREEFRAME_H %> SRC="iilogext.asp">
|
||
|
|
<FRAME NAME="EXTFRAME" WIDTH = <%= L_PROPTREEFRAME_W %> HEIGHT = <%= L_PROPTREEFRAME_H %> SRC="iilogext.asp">
|
||
|
|
</IFRAME>
|
||
|
|
<% else %>
|
||
|
|
<!--#include file="iilogext.inc"-->
|
||
|
|
<% end if %>
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
</TABLE>
|
||
|
|
</FORM>
|
||
|
|
</A>
|
||
|
|
<% end if %>
|
||
|
|
<% end if %>
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
<SCRIPT LANGUAGE="JavaScript">
|
||
|
|
<% if not Session("setLogUI") = "ODBC" then %>
|
||
|
|
<% if Session("hasDHTML") then %>
|
||
|
|
self.location.href="#GENERAL";
|
||
|
|
<% else %>
|
||
|
|
<% if not Session("IsIE") then %>
|
||
|
|
document.userform.rdoLogFilePeriod[0].focus();
|
||
|
|
<% end if %>
|
||
|
|
<% end if %>
|
||
|
|
<% end if %>
|
||
|
|
</SCRIPT>
|
||
|
|
</FONT>
|
||
|
|
|
||
|
|
</BODY>
|
||
|
|
</HTML>
|