home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iicomm.asp < prev    next >
Encoding:
Text File  |  1997-11-12  |  4.8 KB  |  158 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5. <% if Session("FONTSIZE") = "" then %>
  6.     <!--#include file="iito.inc"-->
  7. <% else %>
  8.  
  9. <% 
  10. Const L_NOTIMPLEMENTED_ERRORMESSAGE="This feature is not yet implemented."
  11. Const L_SECURE_TEXT="Secure Communications"
  12. 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."
  13. Const L_USEKEYMANAGER_TEXT = "Use Key Manager to create new Key requests and manage your installed Key Certificates."
  14. Const L_REQUIRESECCHANNEL_TEXT="Require Secure Channel when accessing this resource"
  15.  
  16. Const L_CLIENTCERT_TEXT = "Client Certificate Authentication"
  17. Const L_DONOTACCEPT_TEXT = "Do not accept Client Certificates"
  18. Const L_ACCEPT_TEXT = "Accept Certificates"
  19. Const L_REQUIRE_TEXT = "Require Client Certificates"
  20. Const L_ENABLEMAPPING_TEXT = "Enable Client Certificate Mapping"
  21. Const L_MAPDESC_TEXT = "Client Certificates can be mapped to Windows NT User Accounts. This allows access control to resources using Client Certificates. You can edit the mappings using MMC."
  22.  
  23. 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."
  24. Const L_REQUIRE128_TEXT="Require 128-bit Encryption"
  25. Const L_OK_TEXT="OK"
  26. Const L_HELP_TEXT="Help"
  27. Const L_CANCEL_TEXT="Cancel"
  28.  
  29. On Error Resume Next 
  30.  
  31. Dim path, currentobj
  32.  
  33. path=Session("dpath")
  34. Session("path")=path
  35. Set currentobj=GetObject(path)
  36. Session("SpecObj")=""
  37. Session("SpecProps")=""
  38.  %>
  39.  
  40. <!--#include file="iiset.inc"-->
  41.  
  42.  
  43. <HTML>
  44. <HEAD>
  45. <TITLE></TITLE>
  46.  
  47. <SCRIPT LANGUAGE="javascript">
  48.  
  49.  
  50.     function okAdd() {
  51.     window.close();
  52.     }
  53.         
  54.  
  55.     function disableDefault(dir,fromCntrl, toCntrl){
  56.         if (!dir){
  57.             if (fromCntrl.value !=""){
  58.                 toCntrl.value=fromCntrl.value;
  59.                 fromCntrl.value="";
  60.             }
  61.         }
  62.         else{
  63.             if (toCntrl.value !=""){
  64.                 fromCntrl.value=toCntrl.value;
  65.                 toCntrl.value="";
  66.             }
  67.         }
  68.     }
  69.  
  70.     function enableDefault(chkCntrl){
  71.         chkCntrl.checked=true;
  72.     }
  73.  
  74.     function loadHelp(){
  75.         top.title.Global.helpFileName="iipy_7";
  76.     }
  77.  
  78. </SCRIPT>
  79.  
  80. </HEAD>
  81.  
  82. <BODY BGCOLOR="#CCCCCC" LINK="#FFFFFF" LEFTMARGIN=0 TOPMARGIN=0 OnLoad="loadHelp();"  STYLE="font-face: Helv,Arial; font-size:10pt;">
  83.  
  84. <FORM NAME="userform">
  85.  
  86. <P>
  87. <TABLE HEIGHT="100%" WIDTH="100%"  CELLPADDING=0 CELLSPACING=0>
  88. <TR><TD VALIGN="top">
  89.     <TABLE BORDER=0 BGCOLOR="#CCCCCC" WIDTH="99%"  CELLPADDING=10 CELLSPACING=0>
  90.         <TR>
  91.             <TD>
  92.                 <FONT FACE="Helv,ARIAL" SIZE=1>
  93.                     <B>
  94.                     <%= L_SECURE_TEXT %>
  95.                     </B>
  96.                     <BLOCKQUOTE>
  97.                     <%= L_ONCEKEYCERT_TEXT %> 
  98.                     <%= L_USEKEYMANAGER_TEXT %>
  99.                     <P>
  100.                     <TABLE BORDER=0>
  101.                         <TR>
  102.                             <TD VALIGN="top" COLSPAN=2>
  103.                                 <FONT FACE="Helv,ARIAL" SIZE=1>
  104.                                         <%= checkbox("AccessSSL","",false) %> <%= L_REQUIRESECCHANNEL_TEXT %>
  105.                                         <BR>
  106.                                                
  107.                                         <%= checkbox("AccessSSL128","",false) %> <%= L_REQUIRE128_TEXT %>
  108.                                 </FONT>
  109.                             </TD>
  110.                         </TR>
  111.                     </TABLE>
  112.                     </BLOCKQUOTE>
  113.                     <HR>
  114.                     <BLOCKQUOTE>
  115.                     <%= L_CLIENTCERT_TEXT %>
  116.                     <BLOCKQUOTE>
  117.                     <TABLE BORDER = 0>
  118.                         <TR>
  119.                             <TD><FONT FACE="Helv,ARIAL" SIZE=1>
  120.                                 <%= printradio("AccessSSL", not currentobj.AccessSSLNegotiateCert, "document.userform.AccessSSLNegotiateCert.value='False';document.userform.AccessSSLRequireCert.value='False';",False) %> <%= L_DONOTACCEPT_TEXT %>
  121.                             </FONT></TD>
  122.                         </TR>
  123.                         <TR>
  124.                             <TD><FONT FACE="Helv,ARIAL" SIZE=1>
  125.                                 <%= printradio("AccessSSL", currentobj.AccessSSLNegotiateCert, "document.userform.AccessSSLNegotiateCert.value='True';document.userform.AccessSSLRequireCert.value='False';",False) %> <%= L_ACCEPT_TEXT %>
  126.                             </FONT></TD>
  127.                         </TR>
  128.                         <TR>
  129.                             <TD><FONT FACE="Helv,ARIAL" SIZE=1>
  130.                                 <%= printradio("AccessSSL", currentobj.AccessSSLRequireCert, "document.userform.AccessSSLNegotiateCert.value='True';document.userform.AccessSSLRequireCert.value='True';",False) %> <%= L_REQUIRE_TEXT %>
  131.                             </FONT></TD>
  132.                         </TR>
  133.                     </TABLE>
  134.                     <P>        
  135.                     
  136.                     <INPUT TYPE="hidden" NAME="AccessSSLNegotiateCert" VALUE="<%= currentobj.AccessSSLNegotiateCert %>">
  137.                     <INPUT TYPE="hidden" NAME="AccessSSLRequireCert" VALUE="<%= currentobj.AccessSSLRequireCert %>">
  138.                     
  139.                     <%= checkbox("AccessSSLMapCert","",false) %> <%= L_ENABLEMAPPING_TEXT  %>                    
  140.                     <BLOCKQUOTE>
  141.                         <%= L_MAPDESC_TEXT %><BR>
  142.                     </BLOCKQUOTE>
  143.                     </BLOCKQUOTE>                    
  144.                     </BLOCKQUOTE>
  145.                 </FONT>
  146.             </TD>
  147.         </TR>
  148.     </TABLE>
  149. <P>
  150. </TD>
  151. </TR>
  152. </TABLE>
  153. </FORM>
  154.  
  155. </BODY>
  156. </HTML>
  157.  
  158. <% end if %>