home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ins.cab / nnadved.asp < prev    next >
Encoding:
Text File  |  1997-10-12  |  7.6 KB  |  281 lines
  1. <% Response.Expires = 0 %>
  2.  
  3. <% REM Advanced Page add/edit pop-up window %>
  4.  
  5. <% REM Get variables %>
  6. <% REM svr = Server name %>
  7. <% REM a = Action to be performed by server-side code (add,save,new,edit) %>
  8. <% REM SecListTypeGranted = Access type %>
  9. <% REM SecAddress = IP address %>
  10. <% REM SecMask = Subnet mask %>
  11. <%
  12. L_ADD_TEXT        = "add"    'internal string do NOT localize 
  13. L_SAVE_TEXT        = "save"    'REM internal string do NOT localize
  14. L_DEFAULTMASK_TEXT = "255.255.255.255"    ' REM internal string do NOT localize
  15. L_NEW_TEXT            = "new"                ' REM internal string do NOT localize
  16. L_SINGLE_TEXT        = "single"        'REM internal string do NOT localize
  17. L_GROUP_TEXT        = "group"        '    REM internal string do NOT localize
  18. <%
  19. L_DENY_TEXT            = "Deny "
  20. L_GRANT_TEXT        = "Grant "
  21. L_ACCESSON_TEXT        = "Access On"
  22. L_SINGLECOMPUTER_TEXT    = "Single computer"
  23. L_GROUPCOMP_TEXT        = "Group of computers"
  24. L_IPADDRESS_TEXT        = "IP address:"
  25. L_SUBNETMASK_TEXT        = "Subnet mask:"
  26. L_CANCEL_TEXT            = "Cancel"
  27.  
  28. %>
  29.  
  30. <% svr = Request("svr") %>
  31. <% a = Request("a") %>
  32. <% SecListTypeGranted = Request("SecListTypeGranted") %>
  33. <% SecAddress = Request("SecAddress") %>
  34. <% SecMask = Request("SecMask") %>
  35.  
  36.  
  37. <!--#include file="_cnst.asp" -->
  38.  
  39. <% if (cont = true) then %>
  40.  
  41. <HTML>
  42. <HEAD>
  43. <SCRIPT LANGUAGE="javascript">
  44.  
  45.     <% REM Javascript function onOK submits form when "OK" link is clicked %>
  46.  
  47.     function onOk() 
  48.     {
  49.         <% if (a = L_NEW_TEXT) then %>
  50.             document.userform.a.value = "<% = L_ADD_TEXT %>";
  51.         <% else %>
  52.             document.userform.a.value = "<% = L_SAVE_TEXT %>";
  53.         <% end if %>
  54.             document.userform.submit();
  55.     }
  56.  
  57.  
  58.     <% REM Javascript function maintainChk fills/clears "Mask" field accordingly when "Group" radio is clicked %>
  59.  
  60.     function maintainChk(group) 
  61.     {
  62.         if (group) 
  63.         {
  64.             if (document.userform.hdnSecMask.value != "<% = L_DEFAULTMASK_TEXT %>") 
  65.             { 
  66.                 document.userform.txtSecMask.value = document.userform.hdnSecMask.value;
  67.             }
  68.             document.userform.txtSecMask.focus();
  69.         }
  70.         else 
  71.         {
  72.             document.userform.txtSecMask.value = "";
  73.         }
  74.     }
  75.  
  76.  
  77.     <% REM Javascript function maintainTxt checks "Groups" radio button when "Mask" field is filled %>
  78.  
  79.     function maintainTxt()
  80.     {
  81.         document.userform.hdnSecMask.value = document.userform.txtSecMask.value;
  82.         if (!(document.userform.rdoSecAddressType[1].checked)) 
  83.         {
  84.             document.userform.rdoSecAddressType[1].checked = true;
  85.         }
  86.     }
  87.  
  88. </SCRIPT>
  89. <TITLE><% if (SecListTypeGranted = "0") then %><% = L_DENY_TEXT %><% else %><% = L_GRANT_TEXT %><% end if %><% = L_ACCESSON_TEXT %></TITLE>
  90. </HEAD>
  91.  
  92. <% REM Perform actions %>
  93.  
  94. <% if ((a = L_ADD_TEXT) OR (a = L_SAVE_TEXT))then %>
  95.  
  96.     <% set nntp = Server.CreateObject("MSWC.Nntp") %>
  97.  
  98.     <% txtSecAddress = Request("txtSecAddress") %>
  99.     <% txtSecMask = Request("txtSecMask") %>
  100.  
  101.     <% if (a = L_ADD_TEXT) then %>
  102.  
  103.         <% if (SecListTypeGranted = "0") then %>
  104.             <% nntp.SecTypeGranted = FALSE     %>
  105.         <% else %>
  106.             <% nntp.SecTypeGranted = TRUE %>
  107.         <% end if %>
  108.  
  109.         <% nntp.SecAddress = txtSecAddress %>
  110.     
  111.         <% if (Request("rdoSecAddressType") = L_SINGLE_TEXT) then %>
  112.             <% nntp.SecMask = L_DEFAULTMASK_TEXT %>
  113.         <% else %>
  114.             <% nntp.SecMask = txtSecMask %>
  115.         <% end if %>
  116.  
  117.         <% error = nntp.SecAdd %>
  118.     
  119.     <% elseif (a = L_SAVE_TEXT) then %>
  120.  
  121.         <% error = nntp.SecEnumerate %>
  122.  
  123.         <% if (SecListTypeGranted = "0") then %>
  124.             <% nntp.SecTypeGranted = FALSE %>
  125.         <% else %>
  126.             <% nntp.SecTypeGranted = TRUE %>
  127.         <% end if %>
  128.  
  129.         <% nntp.SecAddress = Request("hdnSecAddress") %>
  130.         <% error = nntp.SecGetInfo %>
  131.  
  132.         <% nntp.SecAddress = txtSecAddress %>
  133.  
  134.         <% if (Request("rdoSecAddressType") = L_SINGLE_TEXT) then %>
  135.             <% nntp.SecMask = L_DEFAULTMASK_TEXT %>
  136.         <% else %>
  137.             <% nntp.SecMask = txtSecMask %>
  138.         <% end if %>
  139.  
  140.         <% error = nntp.SecSetInfo %>
  141.  
  142.     <% end if %>
  143.  
  144.     <% if (error <> 0) then %>
  145.             <SCRIPT LANGUAGE="javascript">
  146.                     alert("<% = nntp.ErrorToString (error) %>");
  147.                self.location = "nnadved.asp?svr=<% = svr %>&SecAddress=<% = hdnSecAddress %>&SecMask=<% = txtSecMask %>";
  148.                </SCRIPT>    
  149.     <% else %>
  150.         <SCRIPT LANGUAGE="javascript">
  151.                 opener.location = "nnadvhd.asp?svr=<% = svr %>";
  152.                 self.close();
  153.         </SCRIPT>
  154.     <% end if %>
  155.     
  156. <% elseif (a = L_NEW_TEXT) then %>
  157.  
  158.     <% rdoSecAddressType = L_SINGLE_TEXT %>
  159.  
  160. <% elseif (a = L_EDIT_TEXT) then %>
  161.  
  162.     <% if (SecMask = L_DEFAULTMASK_TEXT) then %>
  163.         <% rdoSecAddressType = L_SINGLE_TEXT %>
  164.     <% else %>
  165.         <% rdoSecAddressType = L_GROUP_TEXT %>
  166.     <% end if %>
  167.         
  168. <% end if %>
  169.  
  170.  
  171. <BODY background="\images\black.gif" BGCOLOR="#CCCCCC" TEXT="#000000" TOPMARGIN=15 LINK="#000000" VLINK="#000000" ALINK="#000000">
  172.  
  173. <FORM NAME="userform" ACTION="nnadved.asp" onSubmit="return false;" METHOD="post">
  174.  
  175. <INPUT TYPE="hidden" NAME="svr" VALUE="<% = svr %>">
  176. <INPUT TYPE="hidden" NAME="SecListTypeGranted" VALUE="<% = SecListTypeGranted %>">
  177. <INPUT TYPE="hidden" NAME="a" VALUE="<% = a %>">
  178.  
  179. <P>
  180. <TABLE BORDER=1 BGCOLOR="#CCCCCC" WIDTH=100% CELLPADDING=10>
  181.  
  182. <TR><TD>
  183.  
  184.     <FONT SIZE=2 FACE="Arial">
  185.  
  186.     <B><IMG SRC="images/gnicttl.gif" ALIGN="textmiddle" HEIGHT=10 WIDTH=10> <% if (SecListTypeGranted = "0") then %>Deny <% else %>Grant <% end if %>Access On</B>
  187.  
  188.     <% if (rdoSecAddressType = L_SINGLE_TEXT) then %>
  189.         <P><INPUT NAME="rdoSecAddressType" TYPE="radio" onClick="maintainChk(false);" VALUE="<% = L_SINGLE_TEXT %>"CHECKED><% = L_SINGLECOMPUTER_TEXT %>
  190.         <P><INPUT NAME="rdoSecAddressType" TYPE="radio" onClick="maintainChk(true);" VALUE="<% = L_GROUP_TEXT %>"><% = L_GROUPCOMP_TEXT %> 
  191.     <% else %>
  192.         <P><INPUT NAME="rdoSecAddressType" TYPE="radio" onClick="maintainChk(false);" VALUE="<% = L_SINGLE_TEXT %>"><% = L_SINGLECOMPUTER_TEXT %>
  193.         <P><INPUT NAME="rdoSecAddressType" TYPE="radio" onClick="maintainChk(true);" VALUE="<% = L_GROUP_TEXT %>" CHECKED><% = L_GROUPCOMP_TEXT %>
  194.     <% end if %>
  195.  
  196.     <P>
  197.     <TABLE WIDTH=250>
  198.     
  199.         <TR>
  200.             <TD WIDTH=125><FONT SIZE=2 FACE="Arial"><% = L_IPADDRESS_TEXT %></TD>
  201.             <TD WIDTH=125><INPUT NAME="txtSecAddress" TYPE="text" VALUE="<% = SecAddress %>" SIZE=15></TD>
  202.                 <INPUT NAME="hdnSecAddress" TYPE="hidden" VALUE="<% = SecAddress %>">
  203.         </TR>
  204.  
  205.         <TR>
  206.             <TD HEIGHT=4 COLSPAN=2></TD>
  207.         </TR>
  208.     
  209.         <TR>
  210.             <TD WIDTH=125><FONT SIZE=2 FACE="Arial"><% = L_SUBNETMASK_TEXT %></TD>
  211.     
  212.             <% if (SecMask <> L_DEFAULTMASK_TEXT) then %>
  213.                 <TD WIDTH=125><INPUT NAME="txtSecMask" TYPE="text" VALUE="<% = SecMask %>" SIZE=15 onChange="maintainTxt();">
  214.             <% else %>
  215.                 <TD WIDTH=125><INPUT NAME="txtSecMask" TYPE="text" VALUE="" SIZE=15 onChange="maintainTxt();">
  216.             <% end if %>
  217.                     <INPUT TYPE="hidden" NAME="hdnSecMask" VALUE="<% = SecMask %>">
  218.                 </TD>
  219.  
  220.         </TR>
  221. </TABLE>
  222.  
  223. </TD></TR>
  224.  
  225. </TABLE>
  226.  
  227. <P>
  228. <TABLE ALIGN="right" CELLPADDING=1 CELLSPACING=1>
  229.  
  230. <TR>
  231.  
  232.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  233.  
  234.         <TR>
  235.                 
  236.             <TD VALIGN="middle">
  237.                 <FONT FACE="Arial" SIZE=2>
  238.                 <B><A HREF="javascript:onOk();">
  239.                 <IMG SRC="images/gnicok.gif" BORDER=0 ALIGN="top" HEIGHT=16 WIDTH=16></A>
  240.                 <A HREF="javascript:onOk();"><% = L_OK_TEXT %></A></B>
  241.                 </FONT>
  242.             </TD>    
  243.  
  244.         </TR>
  245.         
  246.     </TABLE></TD>
  247.  
  248.     <P>
  249.     <TD><TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  250.  
  251.         <TR>
  252.                 
  253.             <TD VALIGN="middle">
  254.                 <FONT FACE="Arial" SIZE=2>
  255.                 <B><A HREF="javascript:close();">
  256.                 <IMG SRC="images/gniccncl.gif" BORDER=0 ALIGN="top" HEIGHT=16 WIDTH=16></A>
  257.                 <A HREF="javascript:close();"><% = L_CANCEL_TEXT %></A></B>
  258.                 </FONT>
  259.             </TD>    
  260.  
  261.         </TR>
  262.         
  263.     </TABLE></TD>
  264.  
  265.     <TD> </TD>
  266.  
  267. </TR>
  268.  
  269. </TABLE>
  270.  
  271. </TD></TR>
  272.  
  273. </TABLE>
  274.     
  275. </FORM>
  276.  
  277. </BODY>
  278. </HTML>
  279.  
  280. <% end if %>
  281.