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