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