home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / ins.cab / nnloghd.asp < prev    next >
Encoding:
Text File  |  1997-08-23  |  4.7 KB  |  222 lines
  1. <%
  2. REM LOCALIZATION
  3.  
  4. L_ENABLELOGGING_TEXT = "Enable Logging"
  5. L_CLIENTEVENTS_TEXT = "Log Client Events"
  6. L_APPEVENTS_TEXT = "Log Application Events"
  7. L_AVAILABLE_TEXT = "Available Formats"
  8. L_MSBINARY_TEXT = "Microsoft Binary Log Format"
  9. L_MSIIS_TEXT = "Microsoft IIS Log Format"
  10. L_MSCOMMON_TEXT="Microsoft Common Log Format"
  11. L_ODBC_TEXT = "ODBC Log Format"
  12. L_ADD_TEXT="Add"
  13. L_ACCESSDENIED_TEXT = "Access Denied"
  14.  
  15. REM END LOCALIZATION
  16. %>
  17.  
  18. <% If Request.ServerVariables("LOGON_USER") = "" Then%>
  19.     <% Response.Status = "401 access denied"%>    
  20.     <% Response.write L_ACCESSDENIED_TEXT%>
  21. <% Else %>
  22.  
  23. <%
  24. blanks = "" 
  25. for i = 0 to 23
  26.     blanks = blanks + " "
  27. next
  28.  
  29. REM path = trim(Session("path"))
  30. REM set currentobj = GetObject(path)
  31. set currentObj = Server.CreateObject("Nntpadm.VirtualServer.1")
  32. On Error Resume Next 
  33. %>
  34.  
  35. <!--#include file="nnset.inc"-->
  36.  
  37. <HTML>
  38. <HEAD>
  39. <SCRIPT LANGUAGE="JavaScript">
  40.  
  41.     function disableDefault(dir,fromCntrl, toCntrl){
  42.         if (!dir){
  43.             if (fromCntrl.value != ""){
  44.                 toCntrl.value = fromCntrl.value;
  45.                 fromCntrl.value = "";
  46.             }
  47.         }
  48.         else{
  49.             if (toCntrl.value != ""){
  50.                 fromCntrl.value = toCntrl.value;
  51.                 toCntrl.value = "";
  52.             }
  53.         }
  54.     }
  55.  
  56.     function enableDefault(chkCntrl){
  57.         chkCntrl.checked = true;
  58.     }
  59.  
  60.  
  61.     function warn(){
  62.     }
  63.  
  64. </SCRIPT>
  65. <TITLE></TITLE>
  66.  
  67. </HEAD>
  68.  
  69. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" onLoad="loadList();">
  70.  
  71. <FORM NAME="userform" onSubmit="return false">
  72.  
  73.  
  74. <FONT SIZE=1 FACE="Helv">
  75.     <%=checkbox("EnableLogging","loadList();",true)%> 
  76.     <B>
  77.         <%=L_ENABLELOGGING_TEXT%>
  78.     </B>
  79. </FONT>
  80.  
  81. <BLOCKQUOTE>
  82. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
  83. <TR>
  84.     <TD COLSPAN = 2>
  85.          <TABLE>
  86.         <TR><TD COLSPAN = 2>
  87.             <FONT SIZE=1 FACE="Helv">
  88.                 <%=checkbox("ClientEvents","",false)%> <%=L_CLIENTEVENTS_TEXT%>
  89.             </FONT>
  90.             <P>
  91.             <FONT SIZE=1 FACE="Helv">
  92.                 <%=checkbox("AppEvents","",false)%> <%=L_APPEVENTS_TEXT%>
  93.             </FONT>
  94.             <BR> 
  95.         </TD></TR>
  96.         <TR><TD VALIGN="top"> <FONT SIZE=1 FACE="Helv"><%=L_AVAILABLE_TEXT%><BR>
  97.             <SELECT SIZE = 8 NAME="LogFormat" MULTIPLE>
  98.                 <%=writeoption("LogFormat", L_MSBINARY_TEXT)%>
  99.                 <%=writeoption("LogFormat", L_MSIIS_TEXT)%>
  100.                 <%=writeoption("LogFormat", L_MSCOMMON_TEXT)%>
  101.                 <%=writeoption("LogFormat", L_ODBC_TEXT)%>
  102.                 <%=writeoption("LogFormat", blanks)%>    
  103.             </SELECT>
  104.             </TD>
  105.             <TD VALIGN = "top"><BR>
  106.                 <INPUT TYPE="button" VALUE="<%=L_ADD_TEXT%>" onClick="enableItem();";>
  107.             </TD>
  108.         </TR>
  109.         </TABLE>
  110.  
  111.  
  112.     </TD>
  113. </TR>
  114. </TABLE>
  115. </BLOCKQUOTE>
  116.  
  117. </FONT>
  118.  
  119. <SCRIPT LANGUAGE="JavaScript">
  120.  
  121.     function loadList(){
  122.         if (document.userform.chkEnableLogging.checked){
  123.             parent.list.location="nnlogls.asp";
  124.         }
  125.         else{
  126.             parent.list.location="blank.htm";
  127.         }
  128.     }
  129.  
  130.     function addItem(){
  131.         i = testList.length
  132.         testList[i] = new listObj("New Log Method");
  133.         document.hiddenform.index.value = i;
  134.         testList[i].updated = true;    
  135.         testList[i].newitem = true;
  136.         loadList();
  137.     }
  138.  
  139.     function delItem(){
  140.         i = eval(document.hiddenform.index.value);
  141.         testList[i].deleted = true;
  142.         testList[i].updated = true;    
  143.          i = i-1;
  144.         
  145.         <% REM run through the list to find the next non-deleted item %>
  146.         for (var j = i; j >=0; j--) {
  147.             if (testList[j].deleted){
  148.             }
  149.             else{
  150.                 break            
  151.             }
  152.         }
  153.  
  154.         document.hiddenform.index.value = j;
  155.         loadList();
  156.     }
  157.  
  158.     function buildListForm(){
  159.     }
  160.  
  161.     function setListVals(){
  162.     }
  163.  
  164.     function enableItem(){
  165.         var availList = document.userform.LogFormat
  166.  
  167.         for (i=0; i < testList.length;i++){
  168.             if (availList.options[i].selected){
  169.                 testList[i].enabled = true;
  170.                 availList.options[i].selected = false;
  171.             }
  172.             // now the spacer item...
  173.             availList.options[availList.length-1].selected = false;
  174.         }
  175.         loadList();
  176.     }
  177.  
  178.     function disableItem(){
  179.         var usedList = parent.list.document.userform.LogUsed;
  180.  
  181.         for (i=0; i < usedList.length;i++){
  182.             if (usedList.options[i].value != ""){
  183.                 if (usedList.options[i].selected){
  184.                     testList[usedList.options[i].value].enabled = false;
  185.                 }
  186.             }
  187.         }
  188.         loadList();
  189.     }
  190.  
  191.     function listFuncs(){
  192.         this.addItem = addItem;
  193.         this.delItem = delItem;
  194.         this.writeList = buildListForm;
  195.         this.setListVals = setListVals;
  196.         this.enableItem = enableItem;
  197.         this.disableItem = disableItem;
  198.     }
  199.  
  200.  
  201.  
  202.     function listObj(format){
  203.         this.format = format;
  204.         this.enabled = false;
  205.         this.deleted = false;
  206.         this.updated = false;
  207.         this.newitem = false;
  208.     }
  209.  
  210.     testList = new Array()
  211.     testList[0] = new listObj("<%=L_MSBINARY_TEXT%>");
  212.     testList[1] = new listObj("<%=L_MSIIS_TEXT%>");
  213.     testList[2] = new listObj("<%=L_MSCOMMON_TEXT%>");
  214.     testList[3] = new listObj("<%=L_ODBC_TEXT%>");
  215.  
  216.     listFunc = new listFuncs();
  217.  
  218. </SCRIPT>
  219.  
  220. </BODY>
  221. </HTML>
  222. <% end if %>