home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iiacct.asp < prev    next >
Text File  |  1997-11-12  |  3KB  |  119 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_ANONYMOUS_TEXT="Anonymous User"
  12. Const L_SELECTUA_TEXT="Select the Windows NT User Account to use to access this computer when an anonymous user connects to this site."
  13. Const L_USERNAME_TEXT="User name:"
  14. Const L_BROWSE_VALUE="Browse..."
  15. Const L_PASSWORD_TEXT="Password:"
  16. Const L_CHKPASSWORD_VALUE="Check Password"
  17. Const L_ANONONLY_TEXT="Allow only anonymous connections"
  18. Const L_ALLOWANON_TEXT="Allow anonymous access"
  19. Const L_PASSSYNCH_TEXT="Enable Automatic Password Synchronization"
  20.  
  21.  
  22. On Error Resume Next  
  23.  
  24. Dim path, currentobj
  25.  
  26. path=Session("spath")
  27. Session("path")=path
  28. Session("SpecObj")=""
  29. Session("SpecProps")=""
  30. Set currentobj=GetObject(path)
  31.  %>
  32.  
  33. <!--#include file="iiset.inc"-->
  34.  
  35. <HTML>
  36. <HEAD>
  37. <TITLE></TITLE>
  38. <SCRIPT LANGUAGE="JavaScript">
  39. <% if InStr(currentobj.KeyType, "Ftp") <> 0 then %>
  40.     top.title.Global.helpFileName="iipz_1";
  41. <% else %>
  42.     top.title.Global.helpFileName="iipy_48";
  43. <% end if %>    
  44. </SCRIPT>
  45. </HEAD>
  46.  
  47. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=5  TEXT="#000000"  STYLE="font-face: Helv,Arial; font-size:10pt;">
  48.  
  49. <FONT SIZE=1 FACE="Helv,ARIAL">
  50. <FORM NAME="userform" onSubmit="return false;">
  51. <B><%= L_ANONYMOUS_TEXT %></B>
  52.  
  53. <P>
  54. <% if InStr(currentobj.KeyType, "Ftp") <> 0 then %>
  55.         <%= checkbox("AllowAnonymous","",false) %>        
  56.         <%= L_ALLOWANON_TEXT %>
  57. <% end if %>
  58.  
  59.  
  60. <BLOCKQUOTE>
  61.     
  62. <P>
  63. <%= L_SELECTUA_TEXT %>
  64. <P>
  65.  
  66.  
  67.  
  68. <TABLE BORDER=0 CELLPADDING=0>
  69. <TR>
  70.     <TD>
  71.         <FONT SIZE=1 FACE="Helv,ARIAL">
  72.             <%= L_USERNAME_TEXT %>
  73.               
  74.         </FONT>
  75.     </TD>
  76.     <TD>
  77.         <%= text("AnonymousUserName",25,"","","",false,true) %>
  78.         <!--<INPUT TYPE="button" VALUE="<%= L_BROWSE_VALUE %>" onClick="popBox('browse', 450, 275, 'iibrw');">-->
  79.     </TD>
  80. </TR>
  81.  
  82. <TR>
  83.     <TD COLSPAN=2 HEIGHT=4>
  84.     </TD>
  85. </TR>
  86.  
  87. <TR>
  88.     <TD><FONT SIZE=1 FACE="Helv,ARIAL"><%= L_PASSWORD_TEXT %></FONT></TD>
  89.     <TD>
  90.         <%= pword("AnonymousUserPass",25,"","","",false,true) %>
  91.     <!--<INPUT TYPE="button" VALUE="<%= L_CHKPASSWORD_VALUE %>" onClick="alert('<%= L_NOTIMPLEMENTED_ERRORMESSAGE %>')">-->
  92.         
  93.     </TD>
  94. </TR>
  95. <TR>
  96.     <TD COLSPAN=2 HEIGHT=4> 
  97.     </TD>
  98. </TR>
  99. <TR>
  100.     <TD COLSPAN = 2><FONT SIZE=1 FACE="Helv,ARIAL">
  101.         <FONT SIZE=1 FACE="Helv,ARIAL">
  102.         <% if InStr(currentobj.KeyType, "Ftp") <> 0 then %>
  103.             <%= checkbox("AnonymousOnly","",false) %>        
  104.             <%= L_ANONONLY_TEXT %><P></FONT>
  105.         <% end if %>
  106.         <%= checkbox("AnonymousPasswordSync","",false) %><%= L_PASSSYNCH_TEXT %>
  107.         </FONT>    
  108.     </TD>
  109. </TR>
  110.  
  111. </TABLE>
  112.     
  113. </BLOCKQUOTE>
  114. </FONT>
  115. </FORM>
  116. </BODY>
  117.  
  118. </HTML>
  119. <% end if %>