home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ins.cab / nndirhd.asp < prev    next >
Text File  |  1997-10-12  |  8KB  |  286 lines
  1. <% Response.Expires = 0 %>
  2.  
  3. <% REM Directories Page head frame (in frameset with head, list) %>
  4. <%
  5. L_PAGETITLE_TEXT        = "Microsoft Internet Service Manager"
  6. L_NEWSGROUPSUBTREE_TEXT            = "Newsgroup Subtree"
  7. L_PATH_TEXT                        = "Path"
  8. L_REMOVEDIRQUESTION_TEXT        = "Are you sure you want to remove this directory?"
  9. L_REMOVEHOMEDIR_TEXT            = "If you remove the home directory, you may not be able to configure the server in the future. Are you sure you want to remove the home directory?"
  10. L_REMOVEDIR_ERRORMESSAGE        = "Cannot remove directory. A minimum of one directory is required."
  11. %>
  12.  
  13. <% REM Get variables %>
  14. <% REM svr = Server name %>
  15. <% REM a = Action to be performed by server-side code (remove) %>
  16.  
  17. <% svr = Session("svr") %>
  18. <% a = Request("a") %>
  19.  
  20. <% REM Index of Directory to Remove %>
  21. <% removeIndex = Request("removeIndex") %>
  22.  
  23. <% REM Include _cnst file to force logon by anonymous users (if access denied, body of file ignored) %>
  24.  
  25. <!--#include file="_cnst.asp" -->
  26.  
  27. <% if (cont = true) then %>
  28.  
  29. <% On Error Resume Next %>
  30. <% Set admin = Server.CreateObject("Nntpadm.Admin.1") %>
  31. <% if (Err <> 0) then %>
  32.     <script language="javascript">
  33.         alert("<% = Err.description %>");
  34.     </script>
  35. <% end if %>
  36.  
  37. <% REM Instantiate Virtual Server object %>
  38. <% On Error Resume Next %>
  39. <% Set VServer = CreateObject("NntpAdm.VirtualServer") %>
  40. <% if (Err <> 0) then %>
  41.     <script language="javascript">
  42.         alert("<% = Err.description %>");
  43.     </script>
  44. <% end if %>
  45.  
  46. <% REM Set Server %>
  47. <% On Error Resume Next %>
  48. <% VServer.Server = svr %>
  49. <% if (Err <> 0) then %>
  50.     <script language="javascript">
  51.         alert("<% = Err.description %>");
  52.     </script>
  53. <% end if %>
  54.  
  55. <% REM Set Service Instance %>
  56. <% On Error Resume Next %>
  57. <% VServer.ServiceInstance = Session("ServiceInstance") %>
  58. <% if (Err <> 0) then %>
  59.     <script language="javascript">
  60.         alert("<% = Err.description %>");
  61.     </script>
  62. <% end if %>
  63.  
  64. <% REM Get pointer to VirtualRoots %>
  65. <% On Error Resume Next %>
  66. <% set Vroots = VServer.VirtualRoots %>
  67. <% if (Err <> 0) then %>
  68.     <script language="javascript">
  69.         alert("<% = Err.description %>");
  70.     </script>
  71. <% end if %>
  72.  
  73. <% REM Set Server %>
  74. <% On Error Resume Next %>
  75. <% Vroots.Server = svr %>
  76. <% if (Err <> 0) then %>
  77.     <script language="javascript">
  78.         alert("<% = Err.description %>");
  79.     </script>
  80. <% end if %>
  81.  
  82. <% REM Set Service Instance %>
  83. <% On Error Resume Next %>
  84. <% Vroots.ServiceInstance = Session("ServiceInstance") %>
  85. <% if (Err <> 0) then %>
  86.     <script language="javascript">
  87.         alert("<% = Err.description %>");
  88.     </script>
  89. <% end if %>
  90.  
  91. <% REM Enumerate Vroots %>
  92. <% On Error Resume Next %>
  93. <% Vroots.Enumerate %>
  94. <% if (Err <> 0) then %>
  95.     alert("<% = Err.description %>");
  96. <% end if %>
  97.  
  98. <% REM Perform remove action %>
  99.  
  100. <% if (a = "remove") then %>
  101.  
  102.     <% On Error Resume Next %>    
  103.     <% Vroots.Remove(removeIndex) %>    
  104.     <% if (Err <> 0) then %>
  105.         <script language="javascript">
  106.             alert("<% = Err.description %>");
  107.         </script>
  108.     <% end if %>
  109.  
  110. <% end if %>
  111.  
  112. <HTML>
  113. <HEAD>
  114.  
  115. <SCRIPT LANGUAGE="javascript">
  116.  
  117. <% REM Create uForm object and methods %>
  118.  
  119.     var uForm = new Object();
  120.     uForm.itemList = new Array();
  121.     uForm.DirHome = "false";
  122.     uForm.selectedItem = 1;
  123.     uForm.selectItem = selectItem;
  124.     uForm.addItem = addItem;
  125.     uForm.removeItem = removeItem;
  126.     uForm.editItem = editItem;
  127.  
  128. <% REM Enumerate directories into uForm.itemList array %>
  129. <% On Error Resume Next %>
  130. <% Vroots.Enumerate %>
  131. <% if (Err <> 0) then %>
  132.     alert("<% = Err.description %>");
  133. <% end if %>
  134.  
  135. <% REM Get count of Virtual Directories %>
  136. <% cVroots = Vroots.Count %>
  137.     
  138. <% For i = 0 to cVroots - 1 %>
  139.  
  140.     <% set thisVroot = Vroots.Item(i) %>
  141.     <% DirDirectory = admin.Tokenize(thisVroot.Directory) %>
  142.     <% DirRoot = thisVroot.NewsgroupSubtree %>
  143.     <% REM DirAddEntryError = serv.DirAddEntryError %>
  144.  
  145.     <% REM SelectedRoot variable (passed from pop-up) indicates which item had been selected before page was reloaded %>
  146.     <% REM If SelectedRoot equals current DirRoot, set selectedItem variable to current index %>
  147.  
  148.     <% if ((DirRoot = Request("SelectedRoot")) AND (Request("SelectedRoot") <> "")) then %>
  149.     uForm.selectedItem = <% = i %>;
  150.     <% end if %>
  151.  
  152.  
  153.     <% REM if (DirAddEntryError <> 0) then %>
  154.         <% REM DirError = serv.ErrorToString(DirAddEntryError) %>
  155.     <% REM end if %>
  156.     uForm.itemList[<% = i %>] = new Object();
  157.     uForm.itemList[<% = i %>].DirDirectory = "<% = DirDirectory %>";
  158.     uForm.itemList[<% = i %>].DirRoot = "<% = DirRoot %>";
  159.     uForm.itemList[<% = i %>].DirError = "";    
  160.  
  161. <% Next %>
  162.  
  163.  
  164. <% REM Determine browser to set pop-up window size %>
  165.  
  166. <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"IE") then %>
  167.     var winstr = "width=420,height=490,directories=no,status=no,scrollbars=auto,resize=no";
  168. <% else %>
  169.     var winstr = "width=450,height=580,directories=no,status=no,scrollbars=auto,resize=no";
  170. <% end if %>
  171.  
  172. <% REM Javascript function selectItem changes selectedItem value, reloads list at specified position %>
  173.  
  174.     function selectItem(index) 
  175.     {
  176.         uForm.selectedItem = index;
  177.         parent.list.location = "nndirls.asp"
  178.     }
  179.  
  180.  
  181.  
  182. <% REM Javascript function addItem opens pop-up window %>
  183. <% REM DirHome variable (true/false) specifies whether a home directory already exists %>
  184.  
  185.     function addItem() 
  186.     {
  187.         win = window.open("nndired.asp?a=new&svr=<% = svr %>&DirHome=" + uForm.DirHome,"PropWindow",winstr);
  188.         if (win.opener == null) 
  189.         {
  190.             win.opener = self;
  191.         }
  192.     }
  193.  
  194.  
  195. <% REM Javascript function removeItem displays confirm, reloads head frame with "a=remove" parameter %>
  196. <% REM Displays alert message if user attempts to remove last directory; displays confirm if user attempts to remove home directory %>
  197.  
  198.     function removeItem() 
  199.     {
  200.         if (uForm.itemList.length == 1) 
  201.         {
  202.             alert("<% = L_REMOVEDIR_ERRORMESSAGE %>");
  203.             return
  204.         }
  205.         else 
  206.         {
  207.             index = uForm.selectedItem;
  208.             DirRoot = uForm.itemList[index].DirRoot;
  209.             if (DirRoot == "") 
  210.             {
  211.                 if (confirm("<% = L_REMOVEHOMEDIR_TEXT %>")) 
  212.                 {
  213.                     self.location = "nndirhd.asp?svr=<% = svr %>&a=remove&removeIndex=" + index;
  214.                 }
  215.             }
  216.             else 
  217.             {
  218.                 if (confirm("<% = L_REMOVEDIRQUESTION_TEXT %>")) 
  219.                 {
  220.                     self.location = "nndirhd.asp?svr=<% = svr %>&a=remove&removeIndex=" + index;
  221.                 }
  222.             }
  223.         }
  224.     }
  225.  
  226.  
  227.  
  228. <% REM Javascript function editItem opens pop-up with specific parameters %>
  229. <% REM DirHome variable (true/false) specifies whether a home directory already exists %>
  230.     
  231.     function editItem() 
  232.     {
  233.         if(uForm.itemList.length > 1)
  234.         {
  235.         index = uForm.selectedItem;
  236.         DirRoot = uForm.itemList[index].DirRoot;
  237.          win = window.open("nndired.asp?svr=<% = svr %>&a=edit&DirRoot=" + DirRoot + "&DirHome=" + uForm.DirHome + "&index=" + index,"PropWindow",winstr);
  238.         if (win.opener == null) 
  239.         {
  240.             win.opener = self;
  241.         }
  242.         }
  243.     }
  244.  
  245.  
  246. <% REM Javascript function loadList loads list frame after header is completed %>
  247.  
  248.     function loadList() 
  249.     {
  250.         parent.list.location = "nndirls.asp";
  251.     }    
  252.  
  253. </SCRIPT>
  254. <TITLE><% = L_PAGETITLE_TEXT %></TITLE>
  255.  
  256. </HEAD>
  257.  
  258. <BODY BGCOLOR="#CCCCCC" TEXT="#000000" TOPMARGIN=10>
  259.  
  260. <TABLE BORDER=0 WIDTH=600 CELLPADDING=2>
  261.     <TR>
  262.         <TD COLSPAN=3>
  263.             <IMG SRC="images/gnicttl.gif" ALIGN="textmiddle" HEIGHT=10 WIDTH=10> <FONT SIZE=2 FACE="Arial"><B>Directories on  </B></FONT><FONT SIZE=3 FACE="Times New Roman"><I><% = svr %></I><BR> </FONT>
  264.         </TD>
  265.     </TR>
  266.     <TR>
  267.         <TD WIDTH=200><FONT SIZE=2 FACE="Arial"><B><% = L_NEWSGROUPSUBTREE_TEXT %></B></FONT></TD>
  268.         <TD WIDTH=200><FONT SIZE=2 FACE="Arial"><B><% = L_PATH_TEXT %></B></FONT></TD>
  269.         <TD WIDTH=200><FONT SIZE=2 FACE="Arial"> </FONT></TD>
  270.     </TR>
  271. </TABLE>
  272.  
  273.  
  274. <% REM Load list frame after head frame is finished loading %>
  275.  
  276. <SCRIPT LANGUAGE="javascript">
  277.     timeList = setTimeout('loadList()',500);
  278. </SCRIPT>
  279.  
  280. </BODY>
  281. </HTML>
  282.  
  283. <% end if %>
  284.  
  285.  
  286.