home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ins.cab / nnser.asp.4 < prev    next >
Text File  |  1997-10-22  |  7KB  |  273 lines
  1. <% Response.Expires = 0 %>
  2.  
  3. <%
  4. REM LOCALIZATION
  5.  
  6. L_PAGETITLE_TEXT = "Microsoft News Server Administration"
  7. L_SVCINSTNCPROPS_TEXT = "NNTP Server Properties for"
  8. L_DESCRIPTION_TEXT = "Description:"
  9. L_PATHHEADERFIELD_TEXT = "Path Header Field:"
  10. L_IPADDRESS_TEXT = "IP Address:"
  11. L_IPPORT_TEXT = "IP port:"
  12. L_SSLPORT_TEXT = "SSL port:"
  13. L_CONNECTIONS_TEXT = "Connections"
  14. L_LIMITEDTO_TEXT = "Limited to:"
  15. L_CONNECTIONTIMEOUT_TEXT = "Connection timeout:"
  16. L_ENABLELOGGING_TEXT        = "Enable Logging"
  17. L_NNTPSITEID_TEXT        = "NNTP Site Identification"
  18. L_ENTERANINT_ERRORMESSAGE = "Please enter an integer between 0 and "
  19. L_ALLUNASSIGNED_TEXT        = "All Unassigned"
  20.  
  21. REM END LOCALIZATION
  22. %>
  23.  
  24. <% REM Service Page %> 
  25.  
  26. <% REM Get variables %>
  27. <% REM svr = Server name %>
  28.  
  29. <% svr = Request("svr") %>
  30.  
  31. <HTML>
  32. <HEAD>
  33.  
  34. <SCRIPT LANGUAGE="javascript">
  35.  
  36. <% REM Create uForm object and methods %>
  37.  
  38.     uForm = new Object();
  39.     uForm.writeForm = writeForm;
  40.     uForm.readCache = readCache; 
  41.  
  42. <% REM Javascript function readCache loads fields from hiddenform in sidebar %>
  43.  
  44.     function readCache() 
  45.     {
  46.         hform = top.menu.document.hiddenform;
  47.         uform = document.userform;
  48.         uform.txtDescription.value = hform.txtDescription.value;
  49.         uform.txtPathHeaderField.value = hform.txtPathHeaderField.value;
  50.         uform.txtIPAddress.value = hform.txtIPAddress.value;
  51.         uform.txtTCPPort.value = hform.txtTCPPort.value;
  52.         uform.txtSSLPort.value = hform.txtSSLPort.value;
  53.         uform.txtMaxConnections.value = hform.txtMaxConnections.value;
  54.         uform.txtConnectionTimeout.value = hform.txtConnectionTimeout.value;
  55.         uform.hdnEnableLogging.value = hform.txtEnableLogging.value;
  56.         uform.chkEnableLogging.checked = txttochk(uform.hdnEnableLogging);
  57.  
  58.         if(uform.txtIPAddress.value == "")
  59.         {
  60.             uform.txtIPAddress.value = "<% = L_ALLUNASSIGNED_TEXT %>";
  61.         }
  62.  
  63.     }
  64.  
  65. <% REM Javascript function writeForm sets values in hiddenform %>
  66.  
  67.     function writeForm() 
  68.     {
  69.         hform = top.menu.document.hiddenform;
  70.         uform = document.userform;
  71.         hform.txtDescription.value= uform.txtDescription.value;
  72.         hform.txtPathHeaderField.value = uform.txtPathHeaderField.value;
  73.         hform.txtTCPPort.value = uform.txtTCPPort.value;
  74.         hform.txtSSLPort.value = uform.txtSSLPort.value;
  75.         hform.txtMaxConnections.value = uform.txtMaxConnections.value;
  76.         hform.txtConnectionTimeout.value = uform.txtConnectionTimeout.value;
  77.         hform.txtEnableLogging.value = uform.hdnEnableLogging.value;
  78.  
  79.         if(uform.txtIPAddress.value == "<% = L_ALLUNASSIGNED_TEXT %>")
  80.         {
  81.             uform.txtIPAddress.value = "";
  82.         }
  83.         hform.txtIPAddress.value                = uform.txtIPAddress.value;
  84.  
  85.     }
  86.  
  87. <% REM Javascript function chkToTxt converts checkbox bools to text value for hiddenform %>
  88. function txttochk(txtControl)
  89. {
  90.     if ((txtControl.value == "0") || (txtControl.value == ""))
  91.     {
  92.         return false;
  93.     }
  94.     else
  95.     {
  96.         return true;
  97.     }
  98. }
  99.  
  100. function convertchk(txtControl)
  101. {
  102.     uform = document.userform;
  103.  
  104.     txtControl.value = chkToTxt(uform.chkEnableLogging);
  105.     
  106. }
  107.  
  108.         
  109.  
  110. function chkToTxt(chkControl)
  111. {
  112.     if (chkControl.checked)
  113.     {
  114.         return "-1";
  115.     }
  116.     else
  117.     {
  118.         return "0";
  119.     }
  120. }
  121.  
  122. <% REM Javascript function setUpdated sets "updated" flag in hiddenform when a field is changed %>
  123.  
  124.     function setUpdated() 
  125.     {
  126.         top.menu.document.hiddenform.updated.value = "true";    
  127.     }    
  128.  
  129. <% REM Javascript function setTcpUpdated sets "tcpUpdated" flag in hiddenform %>
  130.  
  131.     function setTcpUpdated()
  132.     {
  133.         top.menu.document.hiddenform.tcpUpdated.value = "true";
  134.     }
  135.  
  136. <% REM Javascript function checkRange checks values between 0 and specified range %>
  137.  
  138.     function checkRange(thisControl,range) 
  139.     {
  140.         if (isFull(thisControl.value) && isNum(thisControl.value))
  141.         {
  142.             if (thisControl.value > range) 
  143.             {
  144.                 alert("<% = L_ENTERANINT_ERRORMESSAGE %>" + range + ".");
  145.                 thisControl.focus()
  146.             }
  147.         }
  148.     }
  149. </SCRIPT>
  150. <% REM Generic Javascript functions %>
  151.  
  152.     <!--#include file="nnisnum.htm" -->
  153.     <!--#include file="nnisfull.htm" -->
  154.     
  155.  
  156. <TITLE><% = L_PAGETITLE_TEXT %></TITLE>
  157. </HEAD>
  158.  
  159. <BODY BGCOLOR="#CCCCCC" TEXT="#000000" TOPMARGIN=10">
  160.  
  161. <FORM NAME="userform" onSubmit="return false;">
  162.  
  163. <P><IMG SRC="images/gnicttl.gif" ALIGN="textmiddle" HEIGHT=10 WIDTH=10> <FONT SIZE=2 FACE="Arial"><B><% = L_SVCINSTNCPROPS_TEXT %>  </B></FONT><FONT FACE="Times New Roman" SIZE=3><I><% = svr %></I></FONT>
  164.  
  165. <FONT FACE="Arial" SIZE=2>
  166.  
  167. <P>    
  168. <P>
  169. <B><% = L_NNTPSITEID_TEXT %></B>
  170. <p>
  171. <blockquote>
  172. <TABLE border=0 WIDTH=340>
  173.     <TR>
  174.         <TD WIDTH=140>
  175.             <FONT SIZE=2 FACE="Arial"><% = L_DESCRIPTION_TEXT %></FONT>
  176.         </TD>
  177.         <TD WIDTH=200>
  178.             <INPUT NAME="txtDescription" TYPE="text" VALUE="" onBlur="setUpdated();" onChange="setUpdated();" SIZE=25>
  179.         </TD>
  180.     </TR>
  181.     <TR>
  182.         <TD HEIGHT=4></TD>
  183.     </TR>
  184.     <TR>
  185.         <TD WIDTH=140>
  186.             <FONT SIZE=2 FACE="Arial"><% = L_PATHHEADERFIELD_TEXT %></FONT>
  187.         </TD>
  188.         <TD WIDTH=200>
  189.             <INPUT NAME="txtPathHeaderField" TYPE="text" VALUE="" onBlur="setUpdated();" onChange="setUpdated();" SIZE=25>
  190.         </TD>
  191.     </TR>
  192.     <TR>
  193.         <TD HEIGHT=4></TD>
  194.     </TR>
  195.     <TR>
  196.         <TD WIDTH=140>
  197.             <FONT SIZE=2 FACE="Arial"><% = L_IPADDRESS_TEXT %></FONT>
  198.         </TD>
  199.         <TD WIDTH=200>
  200.             <INPUT NAME="txtIPAddress" TYPE="text" VALUE="" onBlur="setUpdated();" onChange="setUpdated();" SIZE=25>
  201.         </TD>
  202.     </TR>
  203.     <TR>
  204.         <TD HEIGHT=4></TD>
  205.     </TR>
  206.     <TR>
  207.         <TD WIDTH=140>
  208.             <FONT SIZE=2 FACE="Arial"><% = L_IPPORT_TEXT %></FONT>
  209.         </TD>
  210.         <TD WIDTH=200>
  211.             <INPUT NAME="txtTCPPort" TYPE="text" VALUE="" onBlur="checkRange(this,65535);setUpdated();setTcpUpdated();" onChange="setUpdated();setTcpUpdated();" SIZE=5>
  212.         </TD>
  213.     </TR>
  214.     <TR>
  215.         <TD HEIGHT=4></TD>
  216.     </TR>
  217.     <TR>
  218.         <TD WIDTH=140>
  219.             <FONT SIZE=2 FACE="Arial"><% = L_SSLPORT_TEXT %></FONT>
  220.         </TD>
  221.         <TD WIDTH=200>
  222.             <INPUT NAME="txtSSLPort" TYPE="text" VALUE="" onBlur="checkRange(this,65535);setUpdated();setTcpUpdated();" onChange="setUpdated();" SIZE=5>
  223.         </TD>
  224.     </TR>
  225. </TABLE>
  226. </BLOCKQUOTE>
  227. <P>
  228. <B><% = L_CONNECTIONS_TEXT %></B>
  229. <P>
  230. <BLOCKQUOTE>
  231. <TABLE BORDER=0 WIDTH=340>
  232.     <TR>
  233.         <TD ALIGN="left" WIDTH=140>
  234.             <FONT SIZE=2 FACE="Arial">
  235.             <% = L_LIMITEDTO_TEXT %>  
  236.             </FONT>
  237.         </TD>
  238.         <TD WIDTH=200>
  239.             <INPUT NAME="txtMaxConnections" TYPE="text" VALUE="" onBlur="checkRange(this,15000);setUpdated();" onChange="setUpdated();" SIZE=5>
  240.         </TD>
  241.     </TR>
  242.     <TR>
  243.         <TD HEIGHT=4>
  244.         </TD>
  245.     </TR>
  246.     <TR>
  247.         <TD WIDTH=140>
  248.             <FONT SIZE=2 FACE="Arial"><% = L_CONNECTIONTIMEOUT_TEXT %></FONT>
  249.         </TD>
  250.         <TD WIDTH=200>
  251.             <INPUT NAME="txtConnectionTimeout" TYPE="text" VALUE="" onBlur="checkRange(this,2000000000);setUpdated();" onChange="setUpdated();" SIZE=5>
  252.         </TD>
  253.     </TR>
  254.     <tr><td colspan="2"> </td></tr>
  255.     <tr>
  256.         <td colspan="2">
  257.             <FONT SIZE=2 FACE="Arial">
  258.             <INPUT NAME="chkEnableLogging" TYPE="checkbox" VALUE="" checked="false" OnClick="convertchk(hdnEnableLogging);setUpdated();">
  259.             <% = L_ENABLELOGGING_TEXT %>
  260.             <INPUT NAME="hdnEnableLogging" TYPE="hidden" VALUE="">
  261.             </font>
  262.         </td>
  263.     </tr>
  264. </TABLE>
  265. </BLOCKQUOTE>
  266. </FORM> 
  267. <script language="javascript">
  268.     readCache();
  269. </script>
  270. </BODY>
  271. </HTML>
  272.  
  273.