|
|
<%@ 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")=pathSession("SpecObj")=""Session("SpecProps")=""
Set currentobj=GetObject(path)
if Session("stype") = "www" then ExtSvcPath = EXTW3SVCPATHelse ExtSvcPath = EXTMSFTPSVCPATHend if
svctype = Mid(path, InStr(7,path, "/")+1)if Instr(svctype,"/") then svctype = Mid(svctype,1,Instr(svctype, "/")-1)end ifsvrname = 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>
|
