home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ins.cab / nnemnu.asp < prev    next >
Text File  |  1997-10-12  |  9KB  |  343 lines
  1. <% Response.Expires = 0 %>
  2.  
  3. <% 
  4. REM LOCALIZATION
  5.  
  6. L_PAGETITLE_TEXT = "Microsoft News Server Administration"
  7. L_UNSAVEDCHANGES_TEXT = "You have unsaved property changes. Do you want to save them now?"
  8. L_SERVER_TEXT = "Server"
  9. L_INVALIDACCOUNT_TEXT = "Invalid account name."
  10. L_INVALIDPASSWORD_TEXT = "Invalid password."
  11. L_FEED_TEXT = "Feed"
  12. L_PROPERTIES_TEXT = "Properties"
  13. L_SUBS_TEXT = "Subscriptions"
  14. L_SCHEDULE_TEXT = "Schedule"
  15. L_SECURITY_TEXT = "Security"
  16. L_NEWS_TEXT = "News"
  17. L_SERVERS_TEXT = "Services"
  18. L_SERVICE_TEXT = "Service"
  19. L_SESSIONS_TEXT = "Sessions"
  20. L_GENERAL_TEXT = "NNTP Settings"
  21. L_FEEDS_TEXT = "Feeds"
  22. L_EXPIRATION_TEXT = "Expiration"
  23. L_GROUPS_TEXT = "Groups"
  24. L_DIRECTORIES_TEXT = "Directories"
  25. L_DIRSECURITY_TEXT = "Security"
  26. L_HOMEDIRECTORY_TEXT = "Home Directory"
  27. L_POLICY_TEXT = "Policy"
  28. L_NEWSGROUPS_TEXT = "Newsgroups"
  29. L_ACCESSDENIED_ERRORMESSAGE = "Error: Access is Denied."
  30. L_UNSAVED_PROP_CHANGES_TEXT = "You have unsaved property changes. Do you want to save them now?"
  31.  
  32. CHANGELEVEL_TEXT    = "changelevel" 'internal string do NOT localize
  33. SAVE_TEXT            = "save" 'internal string do NOT localize
  34. CLOSE_TEXT            = "close" 'internal string do NOT localize
  35. TRUE_TEXT            = "true" 'internal string do NOT localize
  36. FALSE_TEXT            = "false"  'internal string do NOT localize
  37.  
  38.  
  39. REM END LOCALIZATION
  40. %>
  41.  
  42. <% REM Get variables %>
  43. <% REM svr = Server name %>
  44. <% REM save = Action to be performed by server-side code %>
  45. <% REM id = ID of expiration policy %>
  46. <% REM chpg = Page to be loaded in top level %>
  47. <% REM pg = Current page in main frame %>
  48.  
  49. <% save = Request("save") %>
  50. <% svr = Session("svr") %>
  51. <% id = Cint(Request("id")) %>
  52. <% chpg = Request("chpg") %>
  53. <% pg = Request("pg") %>
  54. <% REM If no main page is selected, set to Policy page %>
  55.  
  56.     <% if (pg = "") then %>
  57.         <% pg = "nnexppl" %>
  58.     <% end if %>
  59.  
  60.  
  61. <!--#include file="_cnst.asp" -->
  62.  
  63. <% if (cont = true) then %>
  64.  
  65. <% REM CREATE EXPIRATION OBJECT %>
  66. <% Set ExpireObj = Server.CreateObject("NntpAdm.Expiration") %>
  67. <% if Err <> 0 then %>
  68.     <script language="javascript">
  69.         <p>
  70.         <% = L_ACCESSDENIED_ERRORMESSAGE %>
  71.         alert("<% = Err.description %> ");
  72.     </script>
  73. <% end if %>
  74.  
  75. <% REM GET SERVER NAME %>
  76. <% ExpireObj.Server = svr %>
  77.  
  78. <% REM SET SERVICE INSTANCE %>
  79. <% ExpireObj.ServiceInstance = Session("ServiceInstance") %>
  80.  
  81. <% REM ENUMERATE EXPIRE OBJECTS %>
  82. <% ExpireObj.Enumerate %>
  83.  
  84. <% REM FIND OBJECT WHICH MATCHES ID %>
  85. <% index = ExpireObj.FindID(id) %>
  86.  
  87. <% REM GET OBJECT WHICH MATCHES ID %>
  88. <% On Error Resume Next %>
  89. <% ExpireObj.GetNth (index) %>
  90. <% if (Err <> 0) then %>
  91.     <script language="javascript">
  92.         alert("<% = Err.description %> ");
  93.     </script>
  94. <% end if %>
  95.  
  96. <HTML>
  97. <HEAD>
  98. <SCRIPT LANGUAGE="javascript">
  99.  
  100.     function changeToolbar(pg) 
  101.     {
  102.         tlpg = parent.frames[3].document.hiddenform.pg.value;
  103.         if (tlpg != pg) 
  104.         {
  105.             if ((pg == "nnser") || (pg == "nngen") || (pg == "nnlog") || (pg == "nnadv") || (pg == "nnexppl")) 
  106.             {
  107.                 if ((tlpg != "nnser") && (tlpg != "nngen") && (tlpg != "nnlog") && (tlpg != "nnadv") && (tlpg != "nnexppl")) 
  108.                 {
  109.                     return true;     
  110.                 }
  111.             }
  112.             else {
  113.                 if ((pg == "nnf") || (pg == "nnexp") || (pg == "nndir") || (pg == "nnexpg")) 
  114.                 {                
  115.                     if ((tlpg != "nnf") && (tlpg != "nnexp") && (tlpg != "nndir") && (tlpg != "nnexpg")) 
  116.                     {
  117.                         return true;
  118.                     }
  119.                 }
  120.                 else 
  121.                 {
  122.                     if ((pg == "nnses") && (tlpg != "nnses")) 
  123.                     {
  124.                         return true;
  125.                     }
  126.                     else 
  127.                     {
  128.                         if ((pg == "nngrp") && (tlpg != "nngrp")) 
  129.                         {
  130.                             return true;
  131.                         }
  132.                     }    
  133.                 }
  134.             }
  135.         }
  136.         return false;
  137.     }
  138.  
  139.     function expPage(pg) 
  140.     { 
  141.         if (pg != document.hiddenform.pg.value) 
  142.         {
  143.             document.hiddenform.pg.value = pg; 
  144.             document.hiddenform.helpfilename.value = "help/" + pg + "h.htm";
  145.             if (document.hiddenform.updated.value == "<% = TRUE_TEXT %>") 
  146.             {
  147.                 document.hiddenform.updated.value = "<% = FALSE_TEXT %>";    
  148.                 if (confirm("<% = L_UNSAVED_PROP_CHANGES_TEXT %>")) 
  149.                 {
  150.                     document.hiddenform.submit();
  151.                 }
  152.                 else 
  153.                 {
  154.                     self.location = "nnemnu.asp?svr=<% = svr %>&id=<% = id %>&pg=" + pg;
  155.                 }
  156.             }            
  157.             else 
  158.             {
  159.                 if (changeToolbar(pg)) 
  160.                 {
  161.                     top.frames[3].location = "nntl.asp?svr=<% = svr %>&pg=" + pg;
  162.                 }
  163.                 top.frames[2].location = "nneredir.asp?svr=<% = svr %>&id=<% = id %>&pg=" + pg; 
  164.             }
  165.         }
  166.     }
  167.  
  168.     function changeLevel(chpg) 
  169.     {
  170.         if (document.hiddenform.updated.value == "<% = TRUE_TEXT %>") 
  171.         {
  172.             document.hiddenform.updated.value = "<% = FALSE_TEXT %>";
  173.             if (confirm("<% = L_UNSAVED_PROP_CHANGES_TEXT %>")) 
  174.             {
  175.                 document.hiddenform.chpg.value = chpg;
  176.                 document.hiddenform.save.value = "<% = CHANGELEVEL_TEXT %>";
  177.                 document.hiddenform.submit();
  178.             }
  179.             else 
  180.             {
  181.                 self.location = "nnmnu.asp?svr=<% = svr %>&pg=" + chpg;
  182.             }
  183.         }
  184.         else 
  185.         {
  186.             self.location = "nnmnu.asp?svr=<% = svr %>&pg=" + chpg;
  187.         }
  188.     }
  189.  
  190. <% REM Javascript function changeSrv displays main tree control window %>
  191. <% REM "nnadv.asp" with the currently selected server                  %>
  192.  
  193. function changeSrv() 
  194.  
  195. {
  196.     top.location = "nnadv.asp?svr=<% = svr %>";
  197. }
  198.  
  199.     function verifyChange() 
  200.     {
  201.         if (document.hiddenform.updated.value == "<% = TRUE_TEXT %>") 
  202.         {
  203.             if (confirm("<% = L_UNSAVED_PROP_CHANGES_TEXT %>")) 
  204.             {
  205.                 document.hiddenform.save.value = "<% = CLOSE_TEXT %>";
  206.                 document.hiddenform.submit();
  207.             }
  208.         }
  209.     }
  210.  
  211. <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
  212.  
  213.     function imgAct(num) 
  214.     {
  215.          document.toc.location = "nnemnus.asp?sel=" + num;
  216.     }
  217.     
  218. <% else %>
  219.  
  220.     function imgAct(imgName) 
  221.     {
  222.            document.nnexppl.src = "images/gnictoc0.gif";    
  223.         document.nnexpg.src = "images/gnictoc0.gif";    
  224.         document [imgName].src = "images/gnictoc1.gif";
  225.     }
  226.     
  227. <% end if %>
  228.  
  229. </SCRIPT>
  230. <TITLE><% = L_PAGETITLE_TEXT %></TITLE>
  231.  
  232. </HEAD>
  233.  
  234. <BODY BACKGROUND="images/gnback.gif" LINK="#FFCC00" TEXT="#CCCCCC" ALINK="#FFCC00" VLINK="#FFCC00" BGCOLOR="#000000" LEFTMARGIN=10 TOPMARGIN=10 onUnload="verifyChange();">
  235.  
  236. <% if ((save = SAVE_TEXT) OR (save = CLOSE_TEXT) OR (save = CHANGELEVEL_TEXT)) then %>
  237.  
  238.     <% ExpTime = Request("ExpTime") %>
  239.  
  240.     <% ExpSizeHorizon = Request("ExpSizeHorizon") %>
  241.  
  242.     <% if ((ExpTime <> "") AND (ExpSizeHorizon <> "")) then %>
  243.  
  244.         <% if (ExpTime = "-1") then %>
  245.             <% ExpireObj.ExpireTime = -1 %>
  246.         <% else %>
  247.             <% ExpireObj.ExpireTime = (ExpTime * 24) %> 
  248.         <% end if %>
  249.  
  250.         <% ExpireObj.ExpireSize = ExpSizeHorizon %>
  251.  
  252.     <% elseif ((ExpTime <> "") and (ExpSizeHorizon = "")) then %>
  253.  
  254.         <% if (ExpTime = "-1") then %>
  255.             <% ExpireObj.ExpireTime = -1 %>
  256.         <% else %>
  257.             <% ExpireObj.ExpireTime = (ExpTime * 24) %> 
  258.         <% end if %>
  259.         <% ExpireObj.ExpireSize = -1 %>
  260.  
  261.     <% else %>
  262.  
  263.         <% ExpireObj.ExpireTime = -1 %> 
  264.         <% ExpireObj.ExpireSize = ExpSizeHorizon %>
  265.  
  266.     <% end if %>
  267.  
  268.     <% On Error Resume Next %>
  269.     <% ExpireObj.Set %>
  270.     <% if (Err <> 0) then %>
  271.         <script language="javascript">
  272.             alert("<% = Err.description %> " );
  273.         </script>
  274.     <% end if %>
  275.  
  276.         <% if (Error <> 0) then %>
  277.             <SCRIPT LANGUAGE="javascript">
  278.                     alert ("<% = nntp.ErrorToString ( Error ) %>" );
  279.             </SCRIPT>
  280.         <% end if %>
  281.  
  282.     <% if (a = CHANGELEVEL_TEXT) then %>
  283.  
  284.         <SCRIPT LANGUAGE="javascript">
  285.             self.location = "nnmnu.asp?svr=<% = svr %>&pg=<% = chpg %>";
  286.         </SCRIPT>
  287.  
  288.     <% end if %>
  289.     
  290. <% end if %>
  291. <% REM Determine browser to use either floating frame nav arrow (IE) or image replacement nav arrow (Netscape) %>
  292.  
  293. <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
  294.     <% browser = "ms" %>
  295.     <% if (pg = "nnexppl") then %>
  296.         <% num = 1 %>
  297.     <% elseif (pg = "nnexpg") then %>
  298.         <% num = 2 %>
  299.     <% end if %>
  300.     <!--#include file="nnemnums.asp"-->
  301. <% else %>
  302.     <% browser = "ns" %>
  303.     <!--#include file="nnemnuns.asp"-->
  304. <% end if %>
  305.  
  306. <FORM NAME="hiddenform" ACTION="nnemnu.asp" METHOD="post">
  307.  
  308.     <INPUT TYPE="hidden" NAME="save" VALUE="<% = SAVE_TEXT %>">
  309.     <INPUT TYPE="hidden" NAME="pg" VALUE="<%                = pg %>">
  310.     <INPUT TYPE="hidden" NAME="chpg" VALUE="<%              = chpg %>">
  311.     <INPUT TYPE="hidden" NAME="svr" VALUE="<%               = svr %>">
  312.     <INPUT TYPE="hidden" NAME="updated" VALUE="<% = FALSE_TEXT %>">
  313.     <INPUT TYPE="hidden" NAME="id" VALUE="<%                = id %>">
  314.     <INPUT TYPE="hidden" NAME="helpfilename" VALUE="help/<% = pg %>h.htm">
  315.  
  316. <% if (ExpireObj.ExpireTime = -1) then %>
  317.     <INPUT NAME="ExpTime" TYPE="hidden" VALUE="-1">
  318. <% else %>
  319.     <INPUT NAME="ExpTime" TYPE="hidden" VALUE="<%           = (ExpireObj.ExpireTime / 24) %>">
  320. <% end if %>
  321.     <INPUT NAME="ExpSizeHorizon" TYPE="hidden" VALUE="<%    = ExpireObj.ExpireSize %>">
  322.     
  323.     <% if ((save <> CLOSE_TEXT) AND (save <> CHANGELEVEL_TEXT)) then %>
  324.  
  325.         <SCRIPT LANGUAGE="javascript">
  326.             top.main.location = "nneredir.asp?svr=<% = svr %>&id=<% = id %>&pg=<% = pg %>"; 
  327.         </SCRIPT>
  328.  
  329.     <% end if %>
  330.  
  331. </FORM>
  332.  
  333. <% if (browser = "ns") then %>
  334. <SCRIPT LANGUAGE="javascript">
  335.     imgAct("<% = pg %>");
  336. </SCRIPT>
  337. <% end if %>
  338.  
  339. </BODY>
  340. </HTML>
  341.  
  342. <% end if %>
  343.