home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ins.cab / nnsrv.asp < prev    next >
Text File  |  1997-10-12  |  4KB  |  162 lines
  1. <% Response.Expires = 0 %>
  2.  
  3. <%
  4. REM LOCALIZATION
  5.  
  6. L_MENUTITLE_TEXT = "Select Server"
  7. L_ENTERSERVERNAME_TEXT = "Please enter a server name."
  8. L_SERVERALPHANUMALERT_TEXT = "Server names can only contain alphanumeric characters."
  9. L_SERVERNUMALERT_TEXT = "Server names names cannot be longer than 50 characters."
  10. L_SERVERNAMELABEL_TEXT = "Server name:"
  11. L_OKLABEL_TEXT = "OK"
  12. L_CANCELLABEL_TEXT = "Cancel"
  13. L_HELPLABEL_TEXT = "Help"
  14.  
  15. REM END LOCALIZATION
  16. %>
  17.  
  18. <% svr = Request("svr") %>
  19. <% a = Request("a") %>
  20.  
  21. <!--#include file = "_cnst.asp" -->
  22.  
  23. <% if (cont=true) then %>
  24.  
  25. <HTML>
  26. <HEAD>
  27. <TITLE><% = L_MENUTITLE_TEXT %></TITLE>
  28. <SCRIPT LANGUAGE="javascript">
  29.  
  30.     function helpBox() 
  31.     {
  32.         window.open("help/nnsrvh.htm","<% = L_HELPLABEL_TEXT %>","toolbar=no,scrollbars=yes,directories=no,menubar=no,width=300,height=425");
  33.     }
  34.  
  35.     function checkSvr()
  36.     {
  37.     
  38.         svr = document.userform.svr.value
  39.  
  40.         if (svr == "") 
  41.         {
  42.             alert("<% = L_ENTERSERVERNAME_TEXT %>");
  43.         }
  44.         else 
  45.         {    
  46.             i = (svr.indexOf("'") + svr.indexOf('"') + svr.indexOf(document.userform.slash.value));
  47.             i = ( i + svr.indexOf("<") + svr.indexOf('>') + svr.indexOf('%'));
  48.             i = ( i + svr.indexOf("&")+ svr.indexOf("#") + svr.indexOf("("));
  49.             i = ( i + svr.indexOf("+")+ svr.indexOf(")") + svr.indexOf("@"));
  50.             i = ( i + svr.indexOf("~")+ svr.indexOf("`") + svr.indexOf("!"));
  51.             i = ( i + svr.indexOf("^")+ svr.indexOf("*") + svr.indexOf("="));
  52.             i = ( i + svr.indexOf("|")+ svr.indexOf("/") + svr.indexOf(";"));
  53.             i = ( i + svr.indexOf(",")+ svr.indexOf("?"));
  54.  
  55.             if (i != -23 ) 
  56.             {
  57.                 alert("<% = L_SERVERALPHANUMALERT_TEXT %>");
  58.             }
  59.             else
  60.             {
  61.                 if (svr.length >= 50) 
  62.                 {
  63.                     alert("<% = L_SERVERNUMALERT_TEXT %>");
  64.                 }
  65.                 else {
  66.                     return true;
  67.                 }
  68.             }
  69.         }
  70.         return false;
  71.     }
  72.  
  73. function changeSvr() 
  74. {
  75.     if (checkSvr()) 
  76.     {
  77.         document.userform.submit();
  78.     }
  79. }
  80. </SCRIPT>
  81. </HEAD>
  82. <% if (a = "save") then %>
  83.     <% Set admin = CreateObject("NntpAdm.Admin.1") %>
  84.     <% Set serv = CreateObject("NntpAdm.VirtualServer.1") %>
  85.     <% serv.Server = svr %>
  86.     <% serv.ServiceInstance = Session("ServiceInstance") %>
  87.  
  88.     <% On Error Resume Next %>
  89.     <% serv.Get %>
  90.     <% if (Err <> 0) then %>
  91.         <SCRIPT LANGUAGE="javascript">
  92.             alert("<% = Err.description %>");    
  93.         </SCRIPT>
  94.     <% else %>
  95.         <SCRIPT LANGUAGE = "javascript">    
  96.             close();    
  97.             opener.top.location = "nntp.asp?svr=<% = svr %>";
  98.         </SCRIPT>
  99.     <% end if %>
  100. <% end if %>
  101. <BODY BGCOLOR="#000000" TEXT="#000000" TOPMARGIN=15 LINK="#000000" VLINK="#000000" ALINK="#000000">
  102. <FORM NAME="userform" ACTION="nnsrv.asp" onSubmit="return checkSvr();">
  103. <INPUT TYPE="hidden" NAME="a" VALUE="save">
  104. <INPUT TYPE="hidden" NAME="slash" Value = "\">
  105. <P>
  106. <TABLE BORDER=1 BGCOLOR="#CCCCCC" WIDTH=100% CELLPADDING=10>
  107.     <TR>
  108.         <TD>
  109.         <FONT SIZE=2 FACE="Arial">
  110.         <IMG SRC="images/gnicttl.gif" HSPACE=4 HEIGHT=10 WIDTH=10><B><% = L_MENUTITLE_TEXT %></B>
  111.         <BLOCKQUOTE>
  112.         <% = L_SERVERNAMELABEL_TEXT %>  <INPUT TYPE="text" NAME="svr" SIZE = 25 VALUE="<% = svr %>">
  113.         </BLOCKQUOTE>
  114.         </FONT>
  115.         </TD>
  116.     </TR>
  117. </TABLE>
  118. </FORM>
  119. <P>
  120. <TABLE ALIGN="right" CELLPADDING=1 CELLSPACING=1>
  121. <TR>
  122.     <TD>
  123.     <TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  124.     <TR>
  125.         <TD VALIGN="middle">
  126.             <FONT FACE="Arial" SIZE=2>
  127.             <B><A HREF="javascript:changeSvr();"><IMG HEIGHT=16 WIDTH=16 ALIGN="top" SRC="images/gnicok.gif" BORDER=0 ALT="OK"></A>
  128.             <A HREF="javascript:changeSvr();"><% = L_OKLABEL_TEXT %></A></B>
  129.             </FONT>
  130.         </TD>
  131.     </TR>
  132.     </TABLE>
  133.     </TD>
  134.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  135.         <TR>
  136.             <TD VALIGN="middle">
  137.                 <FONT FACE="Arial" SIZE=2>
  138.                 <B><A HREF="javascript:close();"><IMG HEIGHT=16 WIDTH = 16 ALIGN="top" SRC="images/gniccncl.gif" BORDER=0 ALT="Cancel"></A>
  139.                 <A HREF="javascript:close();"><% = L_CANCELLABEL_TEXT %></A></B>
  140.                 </FONT>
  141.             </TD>
  142.         </TR>
  143.     </TABLE>
  144.     </TD>
  145.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  146.         <TR>
  147.             <TD VALIGN="middle">
  148.                 <FONT FACE="Arial" SIZE=2>
  149.                 <B><A HREF="javascript:helpBox();"><IMG HEIGHT=16 WIDTH=16 ALIGN="top" SRC="images/gnichelp.gif" BORDER=0 ALT="Help"></A>
  150.                 <A HREF="javascript:helpBox();"><% = L_HELPLABEL_TEXT %></A></B>
  151.                 </FONT>
  152.             </TD>
  153.         </TR>
  154.     </TABLE>
  155.     </TD>
  156.     <TD> </TD>
  157. </TR>
  158. </TABLE>
  159. </BODY>
  160. </HTML>
  161. <% end if %>
  162.