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