home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ins.cab / nnexphd.asp < prev    next >
Text File  |  1997-10-12  |  6KB  |  229 lines
  1. <% Response.Expires = 0 %>
  2. <% svr = Request("svr") %>
  3. <% a = Request("a") %>
  4. <% id = Request("id") %>
  5. <% NewsName = Request("Name") %>
  6.  
  7. <%
  8. L_PAGETITLE_TEXT        = "Microsoft Internet Service Manager"
  9. L_UNLIMITED_TEXT            = "Unlimited"
  10. L_EXPIRATIONREMOVE_TEXT        = "Are you sure you want to remove this expiration policy?"
  11. L_NAME_TEXT                    = "Name"
  12. l_NEWSGROUPS_TEXT            = "Newsgroups"
  13. L_SIZE_TEXT                    = "Size (MB)"
  14. L_TIME_TEXT                    = "Time (Days)"
  15. L_MYID_TEXT                    = "ID"
  16. L_ID_TEXT                    = "ID"
  17. L_EXPIRATIONPOLICIESON_TEXT    = "Expiration Policies on"
  18.  
  19. L_REMOVE_TEXT                = "remove" 'Internal string do NOT localize
  20. L_ADD_TEXT                    = "add" 'Internal string do NOT localize
  21. %>
  22. <!--#include file="_cnst.asp" -->
  23.  
  24. <% if (cont = true) then %>
  25.  
  26. <% On Error Resume Next %>
  27. <% Set AdminObj = Server.CreateObject("NntpAdm.Admin.1") %>
  28. <% if Err <> 0 then %>
  29.     <script language="javascript">
  30.         alert('<% = Err.description %> ');
  31.     </script>
  32. <% end if %>
  33.  
  34. <% On Error Resume Next %>
  35. <% Set ExpireObj = Server.CreateObject("NntpAdm.Expiration") %>
  36. <% if Err <> 0 then %>
  37.     <script language="javascript">
  38.         alert('<% = Err.description %> ');
  39.     </script>
  40. <% end if %>
  41.  
  42. <% REM get server name %>
  43. <% ExpireObj.Server = svr %>
  44.  
  45. <% REM set service instance %>
  46. <% ExpireObj.ServiceInstance = Session("ServiceInstance") %>
  47.  
  48. <% if (a = L_REMOVE_TEXT) then %>
  49.  
  50.     <% ExpireObj.Enumerate %>
  51.     <% On Error Resume Next %>
  52.     <% ExpireObj.Remove(id) %>
  53.     <% if (Err <> 0) then %>
  54.         <script language="javascript">
  55.             alert ('<% = Err.description %> ' );
  56.         </script>
  57.     <% else %>
  58.         <SCRIPT LANGUAGE="javascript">
  59.             self.location = "nnexphd.asp?svr=<% = svr %>";
  60.         </SCRIPT>
  61.     <% end if %>
  62.  
  63. <% elseif (a = L_ADD_TEXT) then %>
  64.  
  65.     <SCRIPT LANGUAGE="javascript">
  66.         top.toolbar.location = "nntl.asp?svr=<% = svr %>&pg=nnexpg";
  67.         top.menu.location = "nnemnu.asp?svr=<% = svr %>&pg=nnexpg&id=<% = id %>";
  68.         parent.location = "nnredir.asp";
  69.     </SCRIPT>
  70.  
  71. <% end if %>
  72.  
  73. <HTML>
  74. <HEAD>
  75.  
  76. <SCRIPT LANGUAGE="javascript">
  77.  
  78. <% REM Determine browser to set pop-up window size %>
  79.  
  80. <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
  81.     winstr = "toolbar=no,width=460,height=275,directories=no,status=no,scrollbars=auto,resize=no,menubar=no";
  82. <% else %>
  83.     winstr = "toolbar=no,width=460,height=275,directories=no,status=no,scrollbars=auto,resize=no,menubar=no";
  84. <% end if %>
  85.  
  86. <% REM Create uForm object and methods %>
  87.  
  88. var uForm = new Object();
  89. uForm.itemList = new Array();
  90. uForm.selectedItem = 0;
  91. uForm.selectItem = selectItem;
  92. uForm.loadList = loadList;
  93. uForm.editItem = editItem;
  94. uForm.removeItem = removeItem;
  95. uForm.addItem = addItem;
  96.  
  97. <% On Error Resume Next %>
  98. <% ExpireObj.Enumerate %>
  99. <% if (Err <> 0) then %>
  100.     alert('<% = Err.description %> ' );
  101. <% end if %>
  102.  
  103. var i = 0;
  104.  
  105. <% count = ExpireObj.count %>
  106.  
  107. <% For i = 0 To count - 1 %>
  108.     <% ExpireObj.GetNth (i) %>
  109.     <% Dim x %>
  110.     <% x = ExpireObj.NewsgroupsVariant %>
  111.     <% low = LBound(x) %>
  112.     <% high = UBound(x) %>
  113.     <% result = "" %>
  114.     <% For j = low To high %>
  115.         <% if (high < 1) then %>
  116.             <% result = result & x(j) %>
  117.         <% else %>
  118.             <% result = result & x(j) & ";" %>
  119.         <% end if %>
  120.     <% Next %>
  121.     <% result = AdminObj.Truncate (result, 23) %>
  122.     <% strNewsgroups = result %>    
  123.     uForm.itemList[i] = new Object();
  124.     uForm.itemList[i].id = "<% = ExpireObj.ExpireId %>";
  125.     uForm.itemList[i].expString = "<% = strNewsgroups %>";
  126.     uForm.itemList[i].name = "<% = ExpireObj.PolicyName %>"
  127.  
  128.     <% If ( ExpireObj.ExpireSize <> -1 ) Then %>
  129.         uForm.itemList[i].expSizeHorizon = "<% = ExpireObj.ExpireSize %>";
  130.     <% else %>
  131.         uForm.itemList[i].expSizeHorizon = "<% = L_UNLIMITED_TEXT %>";
  132.     <% end if %>
  133.  
  134.     <% if ( ExpireObj.ExpireTime > 0 ) then %>
  135.         uForm.itemList[i].expTime = "<% = ExpireObj.ExpireTime %>";
  136.     <% else %>
  137.         uForm.itemList[i].expTime = "<% = L_UNLIMITED_TEXT %>";
  138.     <% end if %>
  139.     i++;
  140. <% Next %>
  141.  
  142. <% REM Javascript function selectItem (if IE, reloads list at specified position -- broken in Netscape) %>
  143. function selectItem(index)
  144.     {
  145.         uForm.selectedItem = index;
  146.         <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"IE") then %>
  147.         if (index == 0)
  148.         {
  149.             parent.list.location = "nnexpls.asp"
  150.         }
  151.         else
  152.         {
  153.             parent.list.location = "nnexpls.asp#" + (index-1);
  154.         }            
  155.         <% else %>
  156.             parent.list.location = "nnexpls.asp"
  157.         <% end if %>
  158.     }
  159.  
  160. function addItem()
  161. {
  162.     win = window.open("nnexpad.asp?svr=<% = svr %>", "PropWindow",winstr);
  163.     if (win.opener == null)
  164.     {
  165.         win.opener = self;
  166.     }
  167. }
  168.  
  169. function removeItem()
  170. {
  171.     if(uForm.itemList.length > 0)
  172.     {
  173.         if (confirm("<% = L_EXPIRATIONREMOVE_TEXT %>"))
  174.         {
  175.             var id = uForm.itemList[uForm.selectedItem].id;
  176.             self.location = "nnexphd.asp?svr=<% = svr %>&a=remove&id=" + id;
  177.         }
  178.     }
  179. }
  180.  
  181. function editItem()
  182. { 
  183.     if (uForm.itemList.length > 0)
  184.     {
  185.     top.toolbar.location = "nntl.asp?svr=<% = svr %>&pg=nnexppl";
  186.        top.menu.location="nnemnu.asp?svr=<% = svr %>&id="+ uForm.itemList[uForm.selectedItem].id;
  187.     }
  188. }
  189.  
  190. <% REM Javascript function loadList loads list frame after header is completed %>
  191. function loadList()
  192. {
  193.     parent.list.location = "nnexpls.asp?svr=<% = svr %>";
  194. }    
  195.  
  196. </SCRIPT>
  197. <TITLE><% = L_PAGETITLE_TEXT %></TITLE>
  198.  
  199. </HEAD>
  200.  
  201. <BODY BGCOLOR="#CCCCCC" TEXT="#000000" TOPMARGIN=10>
  202.  
  203. <TABLE CELLPADDING=2 CELLSPACING=0 BORDER=0 WIDTH=500>
  204.     <TR>
  205.         <TD COLSPAN=6>
  206.             <IMG SRC="images/gnicttl.gif" ALIGN="textmiddle" HEIGHT=10 WIDTH=10> <FONT SIZE=2 FACE="Arial"><B><% = L_EXPIRATIONPOLICIESON_TEXT %>  </B></FONT><FONT SIZE=3 FACE="Times New Roman"><I><% = svr %></I><BR> </FONT>
  207.         </TD>
  208.  
  209.     </TR>
  210.     <TR>
  211.         <TD WIDTH=30> </TD>
  212.         <TD ALIGN="left" WIDTH=150><FONT SIZE=2 FACE="Arial"><B><% = L_NAME_TEXT %></B></FONT></TD>
  213.         <TD ALIGN="left" WIDTH=150><FONT SIZE=2 FACE="Arial"><B><% = L_NEWSGROUPS_TEXT %></B></FONT></TD>
  214.         <TD ALIGN=left WIDTH=100><FONT SIZE=2 FACE="Arial"><B><% = L_SIZE_TEXT %></B></FONT></TD>
  215.         <TD ALIGN=left WIDTH=100><FONT SIZE=2 FACE="Arial"><B><% = L_TIME_TEXT %></B></FONT></TD>
  216.         <TD ALIGN=left WIDTH=100><FONT SIZE=2 FACE="Arial"><B><% = L_MYID_TEXT %></FONT></TD>
  217.     </TR>
  218. </TABLE>
  219. <SCRIPT LANGUAGE="javascript">
  220.     timeList = setTimeout('loadList()',500);
  221. </SCRIPT>
  222. </BODY>
  223. </HTML>
  224. <% end if %>
  225.  
  226.  
  227.  
  228.  
  229.