home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iisec.asp < prev    next >
Text File  |  1997-11-12  |  4KB  |  132 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_ACCESS_TEXT="IP Address and Domain Name Restrictions"
  11. Const L_ENABLEANON_TEXT="Grant or deny access to this resource using IP Addresses or Internet Domain Names"
  12. Const L_PWAUTH_TEXT="Anonymous Access and Authentication Control"
  13. Const L_AUTHMETHOD_TEXT="Enable anonymous access and edit the authentication methods for this resource."
  14. Const L_SECCOMM_TEXT="Secure Communications"
  15. Const L_VIEWSECOMM_TEXT="View or set the secure communications method used when the virtual directory is accessed."
  16. Const L_EDIT_TEXT="Edit..."
  17. Const L_ACCESSDENIED_TEXT="Access Denied" 
  18.  
  19. On Error Resume Next 
  20.  
  21. Dim path, currentobj
  22.  
  23. path=Session("dpath")
  24. Set currentobj=GetObject(path)
  25. %>
  26.  
  27.  
  28. <HTML>
  29. <HEAD>
  30. <SCRIPT LANGUAGE="JavaScript">
  31. <% if InStr(currentobj.KeyType, "Ftp") <> 0 then %>
  32.     top.title.Global.helpFileName="iipz_4";
  33. <% else %>
  34.     top.title.Global.helpFileName="iipy_37";
  35. <% end if %>    
  36.  
  37. <!-- used to disable save pop-up -->
  38. top.title.Global.siteProperties = true;
  39.  
  40.     
  41.     function popBox(title, width, height, filename){
  42.         thefile=(filename + ".asp");
  43.         thefile="iipop.asp?pg="+thefile;
  44.         <% if Session("Browser") <> "IE3" then %>
  45.             width=width +25;
  46.             height=height + 50;                
  47.         <% end if %>
  48.  
  49.         popbox=window.open(thefile,title,"toolbar=no,scrollbars=yes,directories=no,menubar=no,width="+width+",height="+height);
  50.         if(popbox !=null){
  51.             if (popbox.opener==null){
  52.                 popbox.opener=self;
  53.             }
  54.         }
  55.     }
  56.  
  57. </SCRIPT>
  58.  
  59.     <TITLE></TITLE>
  60. </HEAD>
  61.  
  62. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=5 TEXT="#000000" LINK="#000000" VLINK="#000000" STYLE="font-face: Helv,Arial; font-size:10pt;">
  63. <FORM NAME="userform">
  64.  
  65. <% if Session("stype")="www" then %>
  66. <TABLE CELLSPACING=0 CELLPADDING=2>
  67. <TR><TD><FONT SIZE=1 FACE="HELV,ARIAL"><B><%= L_PWAUTH_TEXT %></B><P></FONT></TD></TR>
  68. <TR><TD>
  69.  
  70. <TABLE CELLSPACING=0 CELLPADDING=2>
  71.     <TR>
  72.         <TD>  </TD>
  73.         <TD WIDTH=50 VALIGN="middle"><IMG SRC="images/handshk.gif" WIDTH=32 HEIGHT=28 BORDER=0></TD>
  74.         <TD WIDTH=400 VALIGN="top"><FONT SIZE=1 FACE="HELV,ARIAL"><%= L_AUTHMETHOD_TEXT %></FONT></TD>
  75.         <% if Session("FONTSIZE")="LARGE" then %>
  76.         <TD VALIGN="middle"><INPUT TYPE="button" VALUE="<%= L_EDIT_TEXT %>" NAME="btnAuthenticate" onClick="popBox('Authenticate',540,575, 'iiauth')"></TD>
  77.         <% else %>
  78.         <TD VALIGN="middle"><INPUT TYPE="button" VALUE="<%= L_EDIT_TEXT %>" NAME="btnAuthenticate" onClick="popBox('Authenticate',470,460, 'iiauth')"></TD>        
  79.         <% end if %>
  80.     </TR>
  81. </TABLE>
  82.  
  83. </TD></TR>
  84. </TABLE>
  85.  
  86. <HR>
  87. <TABLE CELLSPACING=0 CELLPADDING=2>
  88. <TR><TD><FONT SIZE=1 FACE="HELV,ARIAL"><B><%= L_SECCOMM_TEXT %></B><P></FONT></TD></TR>
  89. <TR><TD>
  90.  
  91. <TABLE CELLSPACING=0 CELLPADDING=2>
  92.     <TR>
  93.         <TD>  </TD>
  94.         <TD WIDTH=50 VALIGN="middle"><IMG SRC="images/key.gif" WIDTH=32 HEIGHT=28 BORDER=0></TD>
  95.         <TD WIDTH=400 VALIGN="top"><FONT SIZE=1 FACE="HELV,ARIAL"><%= L_VIEWSECOMM_TEXT %></FONT></TD>
  96.         <% if Session("FONTSIZE")="LARGE" then %>
  97.             <TD VALIGN="middle"><INPUT TYPE="button" VALUE="<%= L_EDIT_TEXT %>" NAME="btnCommunication" onClick="popBox('Communications',550,525, 'iicomm')"></TD>
  98.         <% else %>
  99.             <TD VALIGN="middle"><INPUT TYPE="button" VALUE="<%= L_EDIT_TEXT %>" NAME="btnCommunication" onClick="popBox('Communications',475,450, 'iicomm')"></TD>
  100.         <% end if %>
  101.     </TR>
  102. </TABLE>
  103. <HR>
  104. <% end if %>
  105. <TABLE CELLSPACING=0 CELLPADDING=2>
  106. <TR><TD><FONT SIZE=1 FACE="HELV,ARIAL"><B><%= L_ACCESS_TEXT %></B><P></FONT></TD></TR>
  107.  
  108. <TR><TD>
  109. <TABLE CELLSPACING=0 CELLPADDING=2>
  110.     <TR>
  111.         <TD>  </TD>
  112.         <TD WIDTH=50 VALIGN="middle"><IMG SRC="images/access.gif" WIDTH=32 HEIGHT=28 BORDER=0></TD>
  113.         <TD WIDTH=400 VALIGN="top"><FONT SIZE=1 FACE="HELV,ARIAL"><%= L_ENABLEANON_TEXT %></FONT></TD>
  114.         <% if Session("FONTSIZE")="LARGE" then %>
  115.             <TD VALIGN="middle"><INPUT TYPE="button" VALUE="<%= L_EDIT_TEXT %>" NAME="btnAuthenticate" onClick="popBox('Access',625,400, 'iiaccess')"></TD>
  116.         <% else %>
  117.             <TD VALIGN="middle"><INPUT TYPE="button" VALUE="<%= L_EDIT_TEXT %>" NAME="btnAuthenticate" onClick="popBox('Access',525,350, 'iiaccess')"></TD>
  118.         <% end if %>
  119.     </TR>
  120. </TABLE>
  121.  
  122. </TD></TR>
  123. </TABLE>
  124. </TD></TR>
  125. </TABLE>
  126.  
  127. </FORM>
  128. </BODY>
  129.  
  130. </HTML>
  131.  
  132. <% end if %>