home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iiauth.asp < prev    next >
Text File  |  1997-11-12  |  7KB  |  256 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. '    strings for localization
  11. Const L_ACCESSDENIED_TEXT="Access Denied" 
  12. Const L_ACCESS_TEXT="Access Methods"
  13. Const L_ANON_TEXT="Allow Anonymous"
  14. Const L_USERNAME_TEXT="User name:"
  15. Const L_BROWSE_VALUE="Browse..."
  16. Const L_PASSWORD_TEXT="Password:"
  17. Const L_CHKPASSWORD_VALUE="Check Password"
  18. Const L_PASSSYNCH_TEXT="Enable Automatic Password Synchronization"
  19. Const L_SELECTACCESS_TEXT="Select one or more Access Methods for this resource."
  20. Const L_ACCOUNTUSED_TEXT = "Anonymous account used:"
  21. Const L_NOUSERNAME_TEXT="No User Name/Password required"
  22. Const L_BASIC_TEXT="Basic Authentication"
  23. Const L_USERNAMEREQUIRED_TEXT="User Name and Password required when"
  24. Const L_ANONDISABLED_TEXT="Allow Anonymous is disabled"
  25. Const L_ACCESSRESTRICTED_TEXT="Access is restricted using NTFS Access Control Lists"
  26. Const L_PASSWORDCLEAR_TEXT="Note: Password is sent In clear text"
  27. Const L_DEFAULTDOMAIN_TEXT="Default domain for basic authentication:"
  28. Const L_ENTERDOMAIN_TEXT="Enter the default logon domain:"
  29. Const L_REQUIRESCLIENT_TEXT="(Requires clients support)"
  30. Const L_NTLM_TEXT="Windows NT Challenge/Response"
  31. Const L_PASSWORDENCRYPTED_TEXT="Note: Password is sent Encrypted"
  32. Const L_ENABLESSL_TEXT="Enable SSL Client Authentication"
  33. Const L_REQUIRESCERT_TEXT="(requires server certification)"
  34. Const L_REQUIRESSL_TEXT="Require SSL Client Authentication"
  35. Const L_ENABLECLIENTMAPPINGS_TEXT="Enable Client Certificate Mapping to Windows NT User Accounts"
  36. Const L_CLIENTMAPPINGS_VALUE="Client Mappings..."
  37. Const L_CERTAUTH_VALUE="Certificate Authorities..."
  38. Const L_EDIT_TEXT = "Edit..."
  39. Const L_OK_TEXT="OK"
  40. Const L_HELP_TEXT="Help"
  41. Const L_CANCEL_TEXT="Cancel"
  42. Const L_SAVING_TEXT="Saving"
  43.  
  44. Const L_BASICWARNING1_TEXT = "The authentication option you have selected results in \rpasswords being transmiited over the network without data \rencryption. "
  45. Const L_BASICWARNING2_TEXT = "Someone attempting to compromise your \rsystem security could use a protocol analyzer to examine \ruser passwords during the authentication process. "
  46. Const L_BASICWARNING3_TEXT = "For \rmore detail on user authentication, consult the online help. \rThis warning does not apply to HTTPS (or SSL) connections."
  47. Const L_BASICWARNING4_TEXT = "\r\rAre you sure you want to continue?"
  48.  
  49. On Error Resume Next 
  50.  
  51. Dim path, currentobj
  52.  
  53. path=Session("dpath")
  54. Session("path")=path
  55. Session("SpecObj")=""
  56. Session("SpecProps")=""
  57. Set currentobj=GetObject(path)
  58. %>
  59.  
  60. <!--#include file="iiset.inc"-->
  61.  
  62. <HTML>
  63. <HEAD>
  64. <TITLE>New</TITLE>
  65.  
  66. <SCRIPT LANGUAGE="javascript">
  67.  
  68.     function loadHelp(){
  69.         top.title.Global.helpFileName="iipy_6";
  70.     }
  71.  
  72.     function disableDefault(dir,fromCntrl, toCntrl){
  73.         if (!dir){
  74.             if (fromCntrl.value !=""){
  75.                 toCntrl.value=fromCntrl.value;
  76.                 fromCntrl.value="";
  77.             }
  78.         }
  79.         else{
  80.             if (toCntrl.value !=""){
  81.                 fromCntrl.value=toCntrl.value;
  82.                 toCntrl.value="";
  83.             }
  84.         }
  85.     }
  86.  
  87.     function enableDefault(chkCntrl){
  88.         chkCntrl.checked=true;
  89.     }
  90.  
  91.     function SetDomain(){
  92.         dname = document.userform.DefaultLogonDomain.value;
  93.         dname=prompt("<%= L_ENTERDOMAIN_TEXT %>",dname);
  94.             if ((dname != "") && (dname != null)){    
  95.                 document.userform.DefaultLogonDomain.value=dname;
  96.             }
  97.     }
  98.     
  99.     function warn(chkcntrl){
  100.         if (chkcntrl.checked){
  101.             if (!confirm("<%= L_BASICWARNING1_TEXT & L_BASICWARNING2_TEXT  & L_BASICWARNING3_TEXT & L_BASICWARNING4_TEXT%>")){
  102.                 chkcntrl.checked = false;
  103.             }
  104.         }
  105.     }
  106.  
  107. </SCRIPT>
  108.  
  109. </HEAD>
  110.  
  111. <BODY BGCOLOR="#CCCCCC" LINK="#FFFFFF" LEFTMARGIN=0 TOPMARGIN=0 onLoad="loadHelp();"  STYLE="font-face: Helv,Arial; font-size:10pt;">
  112.  
  113. <FORM NAME="userform">
  114.  
  115. <P>
  116. <TABLE HEIGHT="100%" WIDTH="100%"  CELLPADDING=0 CELLSPACING=0>
  117. <TR><TD>
  118. <TABLE BORDER=0 BGCOLOR="#CCCCCC" WIDTH="99%"  CELLPADDING=10 CELLSPACING=0>
  119.  
  120. <TR><TD><FONT FACE="Helv,ARIAL" SIZE=1>
  121. <B><%= L_ACCESS_TEXT %></B><P>
  122. <%= L_SELECTACCESS_TEXT %>
  123. </FONT>
  124. <BLOCKQUOTE>
  125. <TABLE BORDER=0 WIDTH= 100%>
  126. <TR>
  127.     <TD VALIGN="top">
  128.         <FONT FACE="Helv,ARIAL" SIZE=1>
  129.             <%= checkbox("AuthAnonymous","", false) %>
  130.              
  131.             <B>
  132.                 <%= L_ANON_TEXT %>
  133.             </B>
  134.             <BR>
  135.                      
  136.             <%= L_ACCOUNTUSED_TEXT %>
  137.             <BLOCKQUOTE>
  138.             <TABLE>
  139.                 <TR>
  140.                     <TD>
  141.                         <FONT SIZE=1 FACE="Helv,ARIAL">
  142.                             <%= L_USERNAME_TEXT %>  
  143.                         </FONT>
  144.                     </TD>            
  145.                     <TD>
  146.                         <FONT SIZE=1 FACE="Helv,ARIAL">                
  147.                             <%= text("AnonymousUserName",25,"","","",false,true) %>
  148.                         </FONT>
  149.                     </TD>
  150.                 </TR>
  151.                 
  152.                 <TR>
  153.                     <TD>
  154.                         <FONT SIZE=1 FACE="Helv,ARIAL">
  155.                             <%= L_PASSWORD_TEXT %>  
  156.                         </FONT>
  157.                     </TD>            
  158.                     <TD>
  159.                         <FONT SIZE=1 FACE="Helv,ARIAL">    
  160.                             <%= pword("AnonymousUserPass",25,"","","",false,true) %>
  161.                         </FONT>
  162.                     </TD>
  163.                 </TR>
  164.                 <TR>
  165.                     <TD COLSPAN = 2><FONT SIZE=1 FACE="Helv,ARIAL">
  166.                         <% if InStr(currentobj.KeyType, "Ftp") <> 0 then %>
  167.                             <%= checkbox("AnonymousOnly","",false) %>        
  168.                             <%= L_ANONONLY_TEXT %><P>
  169.                         <% end if %>
  170.                         <%= checkbox("AnonymousPasswordSync","",false) %><%= L_PASSSYNCH_TEXT %>
  171.                         </FONT>    
  172.                     </TD>
  173.                 </TR>                
  174.                 </TABLE>
  175.             </BLOCKQUOTE>
  176.  
  177.         </FONT>
  178.     </TD>
  179. </TR>
  180. <TR>
  181.     <TD COLSPAN = 2>
  182.         <HR>
  183.     </TD>
  184. </TR>
  185.  
  186. <TR>
  187.     <TD VALIGN="top">
  188.         <FONT FACE="Helv,ARIAL" SIZE=1>
  189.             <%= checkbox("AuthBasic","warn(this);", false) %>
  190.              
  191.             <B>
  192.                 <%= L_BASIC_TEXT %>
  193.             </B>
  194.             <BR>
  195.                      
  196.             <%= L_USERNAMEREQUIRED_TEXT %>
  197.         </FONT>
  198.     </TD>
  199. </TR>                    
  200. <TR>
  201.     <TD VALIGN="top" COLSPAN=2>
  202.         <FONT FACE="Helv,ARIAL" SIZE=1>
  203.                                 <%= L_ANONDISABLED_TEXT %><BR>
  204.                                 <%= L_ACCESSRESTRICTED_TEXT %><P>
  205.                                 <%= L_DEFAULTDOMAIN_TEXT %>  
  206.             <INPUT TYPE="button" NAME="defdomain" VALUE="<%= L_EDIT_TEXT %>" OnClick="SetDomain();">
  207.             <INPUT TYPE="hidden" NAME="DefaultLogonDomain" VALUE="<%= currentobj.DefaultLogonDomain %>">                
  208.         </FONT>        
  209.     </TD>
  210. </TR>
  211.  
  212. <TR>
  213.     <TD VALIGN="top" COLSPAN=2>
  214.         <FONT FACE="Helv,ARIAL" SIZE=1>
  215.             <HR>
  216.             <%= checkbox("AuthNTLM","", false) %>
  217.              
  218.             <B>
  219.                 <%= L_NTLM_TEXT %>
  220.             </B>
  221.             <%= L_REQUIRESCLIENT_TEXT %>
  222.             <BR>
  223.                      
  224.             <%= L_USERNAMEREQUIRED_TEXT %>
  225.         </FONT>
  226.     </TD>
  227. </TR>
  228. <TR>
  229.     <TD VALIGN="top" COLSPAN=2>
  230.         <FONT FACE="Helv,ARIAL" SIZE=1>
  231.                             <%= L_ANONDISABLED_TEXT %><BR>
  232.                             <%= L_ACCESSRESTRICTED_TEXT %><BR>
  233.         </FONT>
  234.     </TD>
  235. </TR>
  236.  
  237.  
  238.  
  239. </TABLE>
  240. </BLOCKQUOTE>
  241. </TD>
  242. </TR>
  243. </TABLE>
  244.  
  245.  
  246. </FORM>
  247.  
  248. <P>
  249. </TD></TR>
  250. </TABLE>
  251.  
  252. <%= currentobj.ADsPath %>
  253. </BODY>
  254. </HTML>
  255.  
  256. <% end if %>