home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / ins.cab / nngrped.asp < prev    next >
Encoding:
Text File  |  1997-08-26  |  9.9 KB  |  383 lines

  1. <% Response.Expires = 0 %>
  2.  
  3. <%
  4. REM LOCALIZATION
  5.  
  6. L_MENU_TITLETXT = "MCIS-NS Administration"
  7. L_ERROR_ACCESS_DENIEDTXT = "Error: Access is Denied."
  8. L_ERRORTXT = "Error is: "
  9. L_ADD_TITLETXT = "Add Newsgroup"
  10. L_EDIT_TITLETXT = "Edit Newsgroup Properties"
  11. L_ENTER_NAMETXT = "Please enter a newsgroup name."
  12. L_ADD_LABELTXT = "Add Newsgroup on"
  13. L_EDIT_LABELTXT = "Edit Newsgroup on"
  14. L_NEWSGROUP_LABELTXT = "Newsgroup:"
  15. L_DESCRIPTION_LABELTXT = "Description:"
  16. L_READ_ONLY_LABELTXT = "Read only"
  17. L_MODERATED_LABELTXT = "Moderated"
  18. L_MODERATOR_LABELTXT = "Moderator:"
  19. L_OK_LABELTXT = "OK"
  20. L_CANCEL_LABELTXT = "Cancel"
  21. L_HELP_LABELTXT = "Help"
  22. L_NO_SERVICE_TXT            = "The NNTP Service is not started, You must start the service before you can add/or edit a Group."
  23. L_STARTED        = 2
  24.  
  25. REM END LOCALIZATION
  26. %>
  27.  
  28. <% svr = Request ("svr") %>
  29. <% a = Request ("a") %>
  30. <% svcInstance = 1 %>
  31. <% Description = Request ("txtDescription") %>
  32. <% Moderated = Request ("hdnModerated") %>
  33. <% Moderator = Request ("txtModerator") %>
  34. <% ReadOnly = Request ("hdnReadOnly") %>
  35. <% index    = Request("index") %>
  36.  
  37. <% Group = Request ("Group") %>
  38. <!--#include file="_cnst.asp" -->
  39.  
  40. <% if (cont = true) then %>
  41.  
  42. <% REM Create Nntp admin object To check to see if the service is running%>
  43.  
  44. <% On Error Resume Next %>
  45. <% Set Admin = Server.CreateObject("NntpAdm.Admin.1") %>
  46. <% if Err <> 0 then %>
  47.     <script language="javascript>
  48.         alert("<% = Err.description %> : Line #42");
  49.     </script>
  50. <% end if %>
  51.  
  52. <% On Error Resume Next %>
  53. <% set nntpService = Server.CreateObject("Nntpadm.VirtualServer.1") %>
  54. <% if (Err <> 0 ) then %>    
  55.     <script language="javascript">
  56.         alert("<% = L_SERVICE_ERROR%><%  = Err.description %>");
  57.     </script>
  58. <% end if %>
  59.  
  60. <% REM Set nntp Service Server %>
  61. <% On Error Resume Next %>
  62. <% nntpService.Server = svr %>
  63. <% if (Err <> 0 ) then %>    
  64.     <script language="javascript">
  65.         alert("<% = L_SERVICE_ERROR%><%  = Err.description %>");
  66.     </script>
  67. <% end if %>
  68.  
  69. <% REM Set nntp Service Service Instance %>
  70. <% On Error Resume Next %>
  71. <% nntpService.ServiceInstance = Session("ServiceInstance") %>
  72. <% if (Err <> 0 ) then %>    
  73.     <script language="javascript">
  74.         alert("<% = L_SERVICE_ERROR%><%  = Err.description %>");
  75.     </script>
  76. <% end if %>
  77.  
  78.  
  79. <% nntpService.Get %>
  80. <% ServerState = nntpService.State %>
  81.  
  82. <% if (ServerState <> L_STARTED) then %>
  83.     <script language="javascript">
  84.         alert("<% = L_NO_SERVICE_TXT %>");
  85.         self.close();
  86.     </script>
  87. <% else %>
  88.  
  89.  
  90. <% On Error Resume Next %>
  91. <% Set GroupAdm = Server.CreateObject("nntpadm.groups") %>
  92. <% if Err <> 0 then %>
  93.     <script language="javascript">
  94.         <p>
  95.         <% = L_ERROR_ACCESS_DENIEDTXT %>
  96.         alert('<% = L_ERRORTXT %><% = Err.description %> ');
  97.     </script>
  98. <% end if %>
  99.  
  100. <% REM get server name %>
  101. <% GroupAdm.Server = svr %>
  102.  
  103. <% REM set service instance %>
  104. <% GroupAdm.ServiceInstance = svcInstance %>
  105.  
  106. <HTML>
  107. <HEAD>
  108.  
  109. <% if (a = "new") then %>
  110.     <TITLE><% = L_ADD_TITLETXT %></TITLE>
  111. <% else %>
  112.     <TITLE><% = L_EDIT_TITLETXT %></TITLE>
  113. <% end if %>
  114.  
  115. <SCRIPT LANGUAGE="javascript">
  116.  
  117.     <!--#include file="nnisfull.htm" -->
  118.  
  119.     function maintainCheck () {
  120.         if (document.userform.chkModerated.checked == true) {
  121.             document.userform.txtModerator.value = document.userform.hdnModerator.value;
  122.             document.userform.txtModerator.focus();
  123.         }
  124.         else {
  125.             document.userform.hdnModerator.value = document.userform.txtModerator.value;
  126.             document.userform.txtModerator.value = "";
  127.         }
  128.     }
  129.  
  130.     function convertChktoHdn(chkControl, hdnControl) 
  131.     {
  132.         if (chkControl.checked == true) 
  133.         {
  134.             hdnControl.value = "1";
  135.         }
  136.         else 
  137.         {
  138.             hdnControl.value = "0";
  139.         }
  140.     }
  141.  
  142.     function maintainText () {
  143.         if (document.userform.txtModerator.value != "") {
  144.             document.userform.chkModerated.checked = true;
  145.             document.userform.hdnModerator.value = document.userform.txtModerator.value;
  146.         }
  147.     }
  148.  
  149.     function checkModerator() {
  150.         if ((document.userform.chkModerated.checked == true) && (document.userform.txtModerator.value == "")) {
  151.             alert("Moderated newsgroups must have a moderator. Please enter a moderator name.");
  152.             return false;
  153.         }
  154.         else {
  155.             return true;
  156.         }
  157.     }
  158.  
  159.     function checkNgrp() {
  160.         if (document.userform.Group.value!="") {
  161.             return true;
  162.         }
  163.         else {
  164.             alert("<% = L_ENTER_NAMETXT %>")
  165.             return false;
  166.         }
  167.     }
  168.  
  169.         function onOk() {
  170.         if ((checkNgrp())&&(checkModerator())) {
  171.             convertChktoHdn(document.userform.chkReadOnly, document.userform.hdnReadOnly);
  172.             convertChktoHdn(document.userform.chkModerated, document.userform.hdnModerated);
  173.         <% if (a = "new") then %>
  174.             document.userform.a.value = "add";
  175.         <% else %>
  176.             document.userform.a.value = "save";
  177.         <% end if %>
  178.                  document.userform.submit();
  179.         }
  180.     }
  181.  
  182.     function helpBox() 
  183.     {
  184.         window.open("help/nngrpedh.htm","Help","toolbar=no,scrollbars=yes,directories=no,menubar=no,width=300,height=425");
  185.     }
  186.  
  187.     function closeWin()
  188.     {
  189.             <% if (a = "add") then %>
  190.                 refresh();
  191.             <% else %>
  192.             <% REM index = window.opener.uForm.selectedItem; %>
  193.                 window.opener.parent.list.location = "nngrpls.asp?svr=<% = svr %>";
  194.             <% end if %>
  195.         self.close();
  196.     }
  197.     
  198.     function refresh()
  199.     {
  200.         window.opener.location = "nngrphd.asp?srv=<% = srv %>&startNum=&find=" + window.opener.parent.parent.menu.document.hiddenform.txtFindNewsgroup.value;
  201.     }
  202.     
  203.  
  204. </SCRIPT>
  205.  
  206. </HEAD>
  207.  
  208. <% if ((a = "add") OR (a = "save")) then %>
  209.  
  210.     <% if (a = "add") then %>
  211.  
  212.         <% GroupAdm.Newsgroup = Group %>
  213.         <% GroupAdm.Description = Description %>
  214.         <% GroupAdm.Moderator = Moderator %>
  215.         <% GroupAdm.ReadOnly = ReadOnly %>
  216.         <% On Error Resume Next %>
  217.         <% GroupAdm.Add %>
  218.         <% if (Err <> 0) then %>
  219.             <script language = "javascript">
  220.                 alert ( '<% = L_ERRORTXT %><% = Err.Description %> ' );
  221.             </script>
  222.         <% end if %>
  223.         
  224.         <BODY BGCOLOR="#000000" TOPMARGIN=15 LINK="#000000" VLINK="#000000" ALINK="#000000" onLoad="closeWin();">
  225.  
  226.     <% elseif (a = "save" ) then %>
  227.         <% GroupAdm.Newsgroup = Group %>
  228.         <% GroupAdm.Description = Description %>
  229.         <% GroupAdm.Moderator = Moderator %>
  230.         <% GroupAdm.ReadOnly = ReadOnly %>
  231.  
  232.         <% On Error Resume Next %>
  233.         <% GroupAdm.Set %>
  234.         <% if ( Err <> 0 ) then %>
  235.             <SCRIPT language="JavaScript">
  236.                 alert ( '<% = L_ERRORTXT %><% = Err.description %>' );
  237.             </SCRIPT>
  238.         <% end if %>
  239.  
  240.         <BODY BGCOLOR="#000000" TEXT="#000000" TOPMARGIN=15 LINK="#000000" VLINK="#000000" ALINK="#000000" onLoad="closeWin();">
  241.  
  242.     <% end if %>
  243.  
  244. <% else %>
  245.  
  246.     <% if (a = "edit") then %>
  247.         <% On Error Resume Next %>
  248.         <% GroupAdm.Get(Group) %>
  249.             <% if ( Err <> 0 ) then %>
  250.                     <SCRIPT LANGUAGE = "JavaScript">
  251.                             alert ('<% = L_ERRORTXT %><% = Err.Description %>' );
  252.                     </SCRIPT>
  253.             <% end if %>
  254.     <% end if %>
  255.  
  256. <BODY BGCOLOR="#000000" TEXT="#000000" TOPMARGIN=15 LINK="#000000" VLINK="#000000" ALINK="#000000">
  257.  
  258. <FORM NAME="userform" ACTION="nngrped.asp" onSubmit="return false" METHOD="post">
  259.  
  260. <TABLE BORDER=1 BGCOLOR="#CCCCCC" WIDTH=100% CELLPADDING=10>
  261.  
  262. <TR><TD>
  263.  
  264.     <FONT SIZE=2 FACE="Arial">
  265.  
  266.     <P><IMG SRC="images/gnicttl.gif" ALIGN="textmiddle" HEIGHT=10 WIDTH=10> <FONT SIZE=2 FACE="Arial"><B>
  267.  
  268.     <% if (a = "new") then %>
  269.         <% = L_ADD_LABELTXT %> 
  270.     <% else %>
  271.         <% = L_EDIT_LABELTXT %> 
  272.     <% end if %>
  273.  
  274.     </B></FONT><FONT FACE="Times New Roman" SIZE=3><I> <% = svr %></I></FONT>
  275.  
  276.     <P>
  277.  
  278.     <INPUT TYPE="hidden" NAME="svr" VALUE="<% = svr %>">
  279.     <INPUT TYPE="hidden" NAME="a" VALUE="<% = a %>">
  280.  
  281.     <% = L_NEWSGROUP_LABELTXT %>  
  282.  
  283.     <% if (a = "new") then %>
  284.         <INPUT NAME="Group" TYPE = "text" VALUE = "<% = Group %>" SIZE=25>
  285.     <% else %>
  286.         <% = Group %>
  287.         <INPUT NAME="Group" TYPE = "hidden" VALUE = "<% = Group %>" SIZE=25>
  288.     <% end if %>
  289.  
  290.     <P><% = L_DESCRIPTION_LABELTXT %>  
  291.  
  292.     <INPUT NAME="txtDescription" TYPE = "text" VALUE="<% = GroupAdm.Description %>" SIZE = 25>
  293.     <INPUT NAME ="hdnDescription" TYPE = "hidden" VALUE = "<% = GroupAdm.Description %>" >
  294.  
  295.     <P>
  296.     <INPUT NAME="chkReadOnly" TYPE = "checkbox"
  297.     <% if ( GroupAdm.ReadOnly <> 0 ) then %> CHECKED <% end if %>>
  298.     
  299.           <% = L_READ_ONLY_LABELTXT %>
  300.     <INPUT NAME="hdnReadOnly" TYPE = "hidden">
  301.  
  302.     <P>
  303.     <INPUT NAME="chkModerated" TYPE = "checkbox"
  304.     <% if ( GroupAdm.Moderator <> "" ) then %> CHECKED <% end if %>onClick = "maintainCheck();" >
  305.     
  306.           <% = L_MODERATED_LABELTXT %>
  307.     <INPUT NAME="hdnModerated" TYPE = "hidden">
  308.  
  309.     <BLOCKQUOTE>
  310.         <% = L_MODERATOR_LABELTXT %>  
  311.         <INPUT NAME="txtModerator" TYPE="text" onChange = "maintainText();" VALUE = "<% = GroupAdm.Moderator %>" SIZE=25>
  312.         <INPUT NAME="hdnModerator" TYPE="hidden" VALUE = "<% = GroupAdm.Moderator %>">
  313.     </BLOCKQUOTE>
  314.  
  315. </TD></TR>
  316.  
  317. </TABLE>
  318.  
  319. </FORM>
  320.  
  321. <P>
  322. <TABLE ALIGN="right" CELLPADDING=1 CELLSPACING=1>
  323.  
  324. <TR>
  325.  
  326.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  327.  
  328.         <TR>
  329.                 
  330.             <TD VALIGN="middle">
  331.                 <FONT FACE="Arial" SIZE=2>
  332.                 <B><A HREF="javascript:onOk();">
  333.                 <IMG SRC="images/gnicok.gif" BORDER=0 ALIGN="top" HEIGHT=16 WIDTH=16></A>
  334.                 <A HREF="javascript:onOk();"><% = L_OK_LABELTXT %></A></B>
  335.                 </FONT>
  336.             </TD>    
  337.  
  338.         </TR>
  339.         
  340.     </TABLE></TD>
  341.  
  342.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  343.  
  344.         <TR>
  345.                 
  346.             <TD VALIGN="middle">
  347.                 <FONT FACE="Arial" SIZE=2>
  348.                 <B><A HREF="javascript:close();">
  349.                 <IMG SRC="images/gniccncl.gif" BORDER=0 ALIGN="top" HEIGHT=16 WIDTH=16></A>
  350.                 <A HREF="javascript:close();"><% = L_CANCEL_LABELTXT %></A></B>
  351.                 </FONT>
  352.             </TD>    
  353.  
  354.         </TR>
  355.         
  356.     </TABLE></TD>
  357.  
  358.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  359.         <TR>
  360.             <TD VALIGN="middle">
  361.                 <FONT FACE="Arial" SIZE=2>
  362.                 <B><A HREF="javascript:helpBox();"><IMG HEIGHT=16 WIDTH=16 ALIGN="top" SRC="images/gnichelp.gif" BORDER=0 ALT="Help"></A>
  363.                 <A HREF="javascript:helpBox();"><% = L_HELP_LABELTXT %></A></B>
  364.                 </FONT>
  365.             </TD>
  366.         </TR>
  367.  
  368.     </TABLE></TD>
  369.  
  370.  
  371.     <TD> </TD>
  372.  
  373. </TR>
  374.  
  375. </TABLE>
  376.  
  377. <% end if %>
  378.  
  379. </BODY>
  380. </HTML>
  381.  
  382. <% end if %>
  383. <% end if %>