home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ims.cab / smcomm.asp < prev    next >
Text File  |  1997-10-12  |  8KB  |  350 lines
  1. <% Response.Expires = 0 %>
  2. <%
  3.  
  4. REM Begin localization 
  5.  
  6. Const L_NOTIMPLEMENTED_ERRORMESSAGE="This feature is not yet implemented."
  7. Const L_SECURE_TEXT="Secure Communications"
  8. Const L_ONCEKEYCERT_TEXT="Once a valid Key Certificate from a Certificate Authority is installed on this Virtual Server, you can require that access to this Virtual Directory take place on a secure channel."
  9. Const L_REQUIRESECCHANNEL_TEXT="Require Secure Channel"
  10. Const L_IFSECURECHANNEL_TEXT="If a Secure Channel is required for this Virtual Directory, access can also be limited by the strength of the encryption. Default strength is 40-bit encryption."
  11. Const L_REQUIRE128_TEXT="Require 128-bit Encryption"
  12. Const L_PATHSYNTAX_TEXT = "The path syntax is incorrect."
  13. Const L_OK_TEXT="OK"
  14. Const L_HELP_TEXT="Help"
  15. Const L_CANCEL_TEXT="Cancel"
  16.  
  17. REM end localization
  18.  
  19. %>
  20.  
  21.  
  22.  
  23. <% REM Get variables %>
  24. <% REM svr = Server name %>
  25. <% REM a = Action to be performed by server-side code (new/add,edit/save) %>
  26.  
  27. <% svr = Session("svr") %>
  28. <% if svr = "" then svr = Request.ServerVariables("SERVER_NAME") %>
  29. <% ServiceInstance = Session("ServiceInstance") %>
  30. <% if ServiceInstance = "" then ServiceInstance = 1 %>
  31. <% a = Request("a") %>
  32. <%
  33. SSL = Request("hdnAccessSSL")
  34. SSL128 = Request("hdnAccessSSL128")
  35.  
  36. %>
  37. <% REM Include _cnst file to force logon by anonymous users (if access denied, body of file ignored) %>
  38.  
  39. <!--#include file="_cnst.asp" -->
  40.  
  41.  
  42. <% if (cont = true) then %>
  43. <% 
  44. On Error Resume Next
  45. Set SvrObj = GetObject("IIS://" & svr & "/SmtpSvc/" & ServiceInstance)
  46. if (SSL = "") then
  47.     SSL = SvrObj.AccessSSL
  48. end if
  49.  
  50. if (SSL128 = "") then
  51.     SSL128 = SvrObj.AccessSSL128
  52. end if
  53.  
  54.  
  55.  %>
  56.  
  57. <HTML>
  58. <HEAD>
  59. <TITLE>
  60.     <%= L_SECURE_TEXT %>
  61. </TITLE>
  62.  
  63. <SCRIPT LANGUAGE="javascript">
  64.  
  65. <% if (a <> "save") then %>
  66.  
  67. var fNested = false;
  68.  
  69. function onOK()
  70. {
  71.     
  72.     uform = document.userform;
  73.     PutChecks();
  74.     uform.a.value = "save";
  75.     uform.submit();
  76.     
  77. }
  78.  
  79.     
  80.  
  81. function txtTochk(thisControl)
  82. {
  83.     if (thisControl.value == null)
  84.     {
  85.         return false;
  86.     }
  87.  
  88.     if (thisControl.value == "True")
  89.     {
  90.         return true;
  91.     }
  92.         
  93.     return false;
  94. }
  95.                 
  96.  
  97. function chkToTxt(chkControl) 
  98. {
  99.     if (chkControl.checked) 
  100.     {
  101.         return "True";
  102.     }
  103.     else 
  104.     {
  105.         return "False";
  106.     }
  107. }
  108.  
  109.  
  110. function PutChecks()
  111. {
  112.     uform = document.userform;
  113.     uform.hdnAccessSSL.value = chkToTxt(uform.chkAccessSSL);
  114.     uform.hdnAccessSSL128.value = chkToTxt(uform.chkAccessSSL128);
  115. }
  116.  
  117.  
  118. function GetChecks()
  119. {
  120.     uform = document.userform;
  121.     uform.chkAccessSSL.checked = txtTochk(uform.hdnAccessSSL);
  122.     if (uform.chkAccessSSL.checked)
  123.         uform.chkAccessSSL128.checked = txtTochk(uform.hdnAccessSSL128);
  124.     else
  125.         uform.chkAccessSSL128.checked = false;
  126. }
  127.  
  128.  
  129. <% REM Javascript function helpBox %>
  130.  
  131.     function helpBox() 
  132.     {
  133.         window.open("help/smcommh.htm","Help","toolbar=no,scrollbars=yes,directories=no,menubar=no,width=300,height=425");
  134.     }
  135.     
  136.             
  137. function CheckNested(iChecked)
  138. {
  139.        uform = document.userform;
  140.     if (iChecked == 1) //first box clicked
  141.     {
  142.         if (!uform.chkAccessSSL.checked)
  143.         {
  144.             fNested = uform.chkAccessSSL128.checked; //save old value
  145.             uform.chkAccessSSL128.checked = false; //cancel nested checkbox
  146.         }
  147.         else
  148.         {
  149.             uform.chkAccessSSL128.checked = fNested;
  150.         }
  151.     }
  152.     else
  153.     {
  154.         if (!uform.chkAccessSSL.checked)
  155.         {
  156.             uform.chkAccessSSL128.checked = false; //cancel nested checkbox
  157.         }
  158.     }
  159. }    
  160.  
  161. <% REM Initialize function reads values from object and plugs them  into the controls on the form %>
  162.  
  163. function Initialize()
  164. {
  165.     uform = document.userform;
  166.  
  167.     GetChecks();
  168. }
  169. <% end if %>
  170. </SCRIPT>
  171.  
  172. </HEAD>
  173.  
  174. <BODY BGCOLOR="#000000" TEXT="#000000" TOPMARGIN=15 LINK="#000000" VLINK="#000000" ALINK="#000000">
  175.  
  176. <% if (a = "save") then 
  177.  
  178.     If (Request("hdnAccessSSL") = "True") then
  179.         SvrObj.AccessSSL = True
  180.     Else
  181.         SvrObj.AccessSSL = False
  182.     End If
  183.     If (Request("hdnAccessSSL128") = "True") then
  184.         SvrObj.AccessSSL128 = True
  185.     Else
  186.         SvrObj.AccessSSL128 = False
  187.     End If
  188.     On Error Resume Next     
  189.     SvrObj.SetInfo
  190.     if (Err <> 0) then %>
  191.         alert("<% = Err.description %> : Line #168");
  192.     <% end if %>
  193.     
  194.  
  195.  
  196.     <SCRIPT LANGUAGE="javascript">
  197.             close();
  198.     </SCRIPT>
  199.     
  200. <% else %>
  201.  
  202. <FORM NAME="userform" ACTION="smcomm.asp"  METHOD="post" onSubmit="">
  203.  
  204. <INPUT TYPE="hidden" NAME="svr"                 VALUE="<% = svr %>">
  205. <INPUT TYPE="hidden" NAME="a"                   VALUE="">
  206. <INPUT TYPE="hidden" NAME="blank"                 VALUE="">
  207. <INPUT TYPE="hidden" NAME="hdnAccessSSL"         VALUE="<% = SSL %>">
  208. <INPUT TYPE="hidden" NAME="hdnAccessSSL128"     VALUE="<% = SSL128 %>">
  209.  
  210.  
  211. <TABLE BORDER=1 BGCOLOR="#CCCCCC" WIDTH=100% CELLPADDING=10>
  212.  
  213. <TR><TD>
  214.  
  215. <P><IMG SRC="images/gnicttl.gif" ALIGN="textmiddle" HEIGHT=10 WIDTH=10> <FONT SIZE=2 FACE="Arial"><B>
  216.     <%= L_SECURE_TEXT %>
  217. </B></FONT><FONT FACE="Times New Roman" SIZE=3><I><% = svr %></I></FONT>
  218.  
  219. <TABLE BORDER=0 BGCOLOR="#CCCCCC" WIDTH="99%"  CELLPADDING=10 CELLSPACING=0>
  220.     <TR><TD>
  221.         <FONT FACE="Helv" SIZE=1>
  222.         <B><%= L_SECURE_TEXT %></B>
  223.         <Table border="1">
  224.             <TR><TD><FONT FACE="Helv" SIZE=1><br>
  225.             <BLOCKQUOTE><%= L_ONCEKEYCERT_TEXT %>
  226.                     <TABLE BORDER=0>
  227.                         <TR>
  228.                             <TD VALIGN="top" COLSPAN=2>
  229.                                 <FONT FACE="Helv" SIZE=1>
  230.                                         <input type="CHECKBOX" name="chkAccessSSL" OnClick="CheckNested(1);">
  231.                                          
  232.                                         <B><%= L_REQUIRESECCHANNEL_TEXT %></B>
  233.                                         <table border="1">
  234.                                             <TR>
  235.                                                 <TD>
  236.                                                 <FONT FACE="Helv" SIZE=1><br><%= L_IFSECURECHANNEL_TEXT %>
  237.                                                 <br><br><input type="CHECKBOX" name="chkAccessSSL128" OnClick="CheckNested(2);">
  238.                                                 <FONT FACE="Helv" SIZE=1><B><%= L_REQUIRE128_TEXT %></B>
  239.                                                 </td>
  240.                                             </tr>
  241.                                         </table>
  242.                                 </FONT>
  243.                             </TD>
  244.                         </TR>
  245.                     </TABLE>
  246.                     </BLOCKQUOTE>
  247.                 </FONT>
  248.                 </td></tr>
  249.                 </table>
  250.             </TD>
  251.         </TR>
  252.     </TABLE>.
  253. </TD></TR>
  254. </TABLE>
  255. <script language="javascript">
  256.     Initialize();
  257. </script>
  258.  
  259. <P>
  260. <TABLE ALIGN="right" BORDER=0 CELLPADDING=2 CELLSPACING=2>
  261.  
  262. <TR>
  263.     <TD>
  264.     <TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  265.         <TR>
  266.             <TD VALIGN="middle">
  267.                 <FONT FACE="Arial" SIZE=2>
  268.                 <B><A HREF="javascript:onOK();">
  269.                 <IMG SRC="images/gnicok.gif" BORDER=0 ALIGN="top" HEIGHT=16 WIDTH=16></A>
  270.                 <A HREF="javascript:onOK();"><% =L_OK_TEXT%></A></B>
  271.                 </FONT>
  272.             </TD>    
  273.         </TR>
  274.         
  275.     </TABLE>
  276.     </TD>
  277.  
  278.     <TD>
  279.     <TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  280.         <TR>
  281.             <TD VALIGN="middle">
  282.                 <FONT FACE="Arial" SIZE=2>
  283.                 <B><A HREF="javascript:close();">
  284.                 <IMG SRC="images/gniccncl.gif" BORDER=0 ALIGN="top" HEIGHT=16 WIDTH=16></A>
  285.                 <A HREF="javascript:close();"><% =L_CANCEL_TEXT%></A></B>
  286.                 </FONT>
  287.             </TD>    
  288.         </TR>
  289.     </TABLE>
  290.     </TD>
  291.     
  292.     <TD>
  293.     <TABLE VALIGN="top" BORDER=0 CELLPADDING=5 CELLSPACING=0 BGCOLOR="#FFCC00">
  294.         <TR>
  295.             <TD VALIGN="middle">
  296.                 <FONT FACE="Arial" SIZE=2><A HREF="javascript:helpBox();">
  297.                 <IMG SRC="images/gnichelp.gif" BORDER=0 ALIGN="top" HEIGHT=16 WIDTH=16></A>
  298.                 <B><A HREF="javascript:helpBox();"><% =L_HELP_TEXT%></A></B>
  299.                 </FONT>
  300.             </TD>    
  301.         </TR>
  302.     </TABLE>
  303.     </TD>
  304.     
  305.     <TD> </TD>
  306. </TR>
  307. </TABLE>
  308.  
  309. </FORM>
  310. <% end if %>
  311. <% end if %>
  312.  
  313. </BODY>
  314. </HTML>
  315.  
  316.  
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330.  
  331.  
  332.  
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.  
  342.  
  343.  
  344.  
  345.  
  346.  
  347.  
  348.  
  349.  
  350.