home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / Default.asp1 < prev    next >
Text File  |  1997-11-01  |  7KB  |  218 lines
  1. <%LANGUAGE=VBScript%>
  2.  
  3. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  4. <HTML>
  5. <HEAD>
  6. <!--META TAGS ARE RECOMMENDED FOR THE SEARCH ENGINE-->
  7. <META NAME="DESCRIPTION" CONTENT="Exploration Air's Site Administration page">
  8. <META NAME="KEYWORDS" CONTENT="site administration">
  9. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  10. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  11. <!--END META TAGS-->
  12.  
  13. <TITLE>Site Administration</TITLE>
  14. </HEAD>
  15.  
  16. <BODY BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#228B22 LINK=#23238E>
  17. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  18.  
  19. <!--Change link color on mouseover
  20.     Only if running Internet Explorer 4.0 or later -->
  21. <!--#include file=../libHighlight.inc-->
  22. <!--#include file=../libGlobalFuncs.inc-->
  23.  
  24. <!--COLOR BANNER_START-->
  25. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  26.     <TR>
  27.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  28.       </TD>
  29.     </TR>
  30. </TABLE>
  31. <!--COLOR BANNER_END-->
  32.  
  33. <!--BEGIN TOP TABLE CONTAINING LOGO AND NAVIGATIONAL LINK-->
  34. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  35.     <TR>
  36.       <TD VALIGN=TOP WIDTH=325>
  37.         <A HREF="<%=HomePage("..")%>"><IMG SRC="../images/logo_sm.gif" WIDTH=200 HEIGHT=100 ALT="Return to Exploration Air Home Page" BORDER=0></A> 
  38.         <BR>
  39.       </TD>
  40.       <TD>
  41.         <FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR="#0000FF" SIZE="5">Site Administration</FONT>
  42.       </TD>
  43.     <TD WIDTH=115 VALIGN=TOP ALIGN=RIGHT>
  44.     <A HREF="../HowItWorks/HIWSiteAdmin.asp"><IMG SRC="../images/btssmall.gif" WIDTH="115" HEIGHT="52" ALT="Click here to learn how this page works" BORDER=0></A>
  45.     </TD>
  46.     </TR>
  47. </TABLE>
  48. <!--END TABLE CONTAINING LOGO AND NAVIGATIONAL LINK -->
  49.  
  50. <BR>
  51. <BR>
  52.  
  53. <% 
  54.     ' Only allow access to this page if they have access!
  55.     If CanAdminServer() Then 
  56. %>
  57. <TABLE WIDTH=90% BORDER=0>
  58.     <TR>
  59.         <TD>
  60.             <CENTER>
  61.                 <FONT COLOR=#FF0000 SIZE=4><B>Warning!</B></FONT> 
  62.                 <FONT SIZE=3>Please be careful when making changes as you may render the site inaccessible to some users!</FONT>
  63.             </CENTER>
  64.         </TD>
  65.     </TR>
  66. </TABLE>
  67.  
  68. <P>
  69. <%
  70.     ' If this is a post of the updated form data then do the appropriate ADSI work 
  71.     ' as well as setting the application-level variables
  72.     If Request.QueryString("Update") = "Yes" Then
  73.  
  74.         ' SSL Constants from IISCnfg.h
  75.         Const ACCESS_SSL = &H8
  76.         Const ACCESS_SSL_ALLOW_CERT = &H20
  77.         Const ACCESS_SSL_REQUIRE_CERT = &H40
  78.  
  79.         ' Authentication constants from IISCnfg.h
  80.         Const AUTH_ANON = &H1
  81.         Const AUTH_NTLM = &H4
  82.  
  83.         ' Get the ADSI objects
  84.         Dim oFFDir, oBizDir, oAdminDir, oBenefitsDir
  85.         Set oFFDir = GetObject("IIS://localhost/w3svc/1/Root/IISSamples/ExAir/FreqFlyer")
  86.         Set oBizDir = GetObject("IIS://localhost/w3svc/1/Root/IISSamples/ExAir/BusinessPartners")
  87.         Set oAdminDir = GetObject("IIS://localhost/w3svc/1/Root/IISSamples/ExAir/SiteAdmin")
  88.         Set oBenefitsDir = GetObject("IIS://localhost/w3svc/1/Root/IISSamples/ExAir/Benefits")
  89.  
  90.         ' Admin anonymous flag
  91.         If Request.Form("adminAnon") = "on" Then
  92.             Application("AdminAllowAnonymous") = True
  93.             oAdminDir.AuthFlags = AUTH_ANON
  94.             oBenefitsDir.AuthFlags = AUTH_ANON
  95.         Else
  96.             Application("AdminAllowAnonymous") = False
  97.             oAdminDir.AuthFlags = AUTH_NTLM
  98.             oBenefitsDir.AuthFlags = AUTH_NTLM
  99.         End If
  100.  
  101.         ' SSL support for Frequent Flyer flag
  102.         If Request.Form("adminSSLFreqFlyer") = "on" Then
  103.             Application("AdminUseSSLOnFreqFlyer") = True
  104.             oFFDir.AccessSSLFlags = ACCESS_SSL
  105.         Else
  106.             Application("AdminUseSSLOnFreqFlyer") = False
  107.             oFFDir.AccessSSLFlags = 0            
  108.         End If
  109.  
  110.         ' SSL support for Business Partner flag
  111.         If Request.Form("adminSSLBizPart") = "on" Then
  112.             Application("AdminUseSSLOnBusinessPartners") = True
  113.             oBizDir.AccessSSLFlags = ACCESS_SSL + ACCESS_SSL_REQUIRE_CERT + ACCESS_SSL_ALLOW_CERT
  114.         Else
  115.             Application("AdminUseSSLOnBusinessPartners") = False
  116.             oBizDir.AccessSSLFlags = 0
  117.         End If
  118.  
  119.         oFFDir.SetInfo
  120.         oBizDir.SetInfo
  121.         oAdminDir.SetInfo
  122.  
  123.         Set oFFDir = Nothing
  124.         Set oBizDir = Nothing 
  125.         Set oAdminDir = Nothing 
  126.  
  127.         ' Save settings to AdminPrefs.txt
  128.         SaveAdminPrefs()
  129.  
  130.         Response.Write("<CENTER><H3>Settings have been successfully applied.</H3></CENTER>")
  131.     End If
  132. %>
  133.  
  134. <!-- BEGIN TABLE CONTAINING ADMIN CONTENT -->
  135. <CENTER>
  136. <TABLE WIDTH=80% BORDER=1>
  137.     <TR>
  138.       <TH BGCOLOR=#C0C0C0>Administration Options</TH>
  139.     </TR>
  140.  
  141.     <FORM METHOD="POST" ACTION="Default.asp?Update=Yes">
  142.     <TR>
  143.       <TD>
  144.         <TABLE BORDER=0 CELLPADDING=5>
  145.             <TR>
  146.                 <TH>Setting</TH>
  147.                 <TH></TH>
  148.                 <TH>Comment</TH>
  149.             </TR>
  150.             <TR>
  151.                 <TD VALIGN=TOP>Allow Anonymous Access:</TD>
  152.                 <TD WIDTH=7% VALIGN=TOP><INPUT TYPE="CHECKBOX" NAME="adminAnon" <%If Application("AdminAllowAnonymous")=True Then Response.Write("CHECKED")%>></TD>
  153.                 <TD VALIGN=TOP>Checking this box will disable Windows NT Challenge/Response
  154.                 authentication and allow Anonymous Access to the
  155.                 Benefits page and this administration page.  It is recommended that you do
  156.                 <STRONG>NOT</STRONG> check this box.
  157.             </TR>
  158.  
  159.             <TR>
  160.                 <TD VALIGN=TOP>Require Secure Sockets (HTTPS) for Frequent Flyers:</TD>
  161.                 <TD VALIGN=TOP><INPUT TYPE="CHECKBOX" NAME="adminSSLFreqFlyer" <%If Application("AdminUseSSLOnFreqFlyer")=True Then Response.Write("CHECKED")%>></TD>
  162.                 <TD VALIGN=TOP>Check this box if you have a server certificate for your
  163.                 Web server and wish to use Secure Sockets (HTTPS) for the Frequent Flyers Club.
  164.                 If you do not have a server certificate but wish to allow users to access the 
  165.                 Frequent Flyer Club, uncheck this box.  It is recommended, however, that you 
  166.                 obtain a server certificate and check this box for the security of your
  167.                 clients.</TD>
  168.             </TR>
  169.  
  170.             <TR>
  171.                 <TD VALIGN=TOP>Require Client Side Certificates for Business Partners:</TD>
  172.                 <TD VALIGN=TOP><INPUT TYPE="CHECKBOX" NAME="adminSSLBizPart" <%If Application("AdminUseSSLOnBusinessPartners")=True Then Response.Write("CHECKED")%>></TD>
  173.                 <TD VALIGN=TOP>Check this box if you have a server certificate for your Web server.  If 
  174.                 you do not have a server certificate but wish to allow users to access this
  175.                 part of the Web site, uncheck this box.  It is recommended, however, that you
  176.                 obtain a server certificate and check this box and require Client Side
  177.                 Certificates as well.</TD>
  178.             </TR>
  179.  
  180.             <TR>
  181.                 <TD ALIGN=CENTER COLSPAN=3>
  182.                     <INPUT TYPE="SUBMIT" VALUE="Apply">
  183.                 </TD>
  184.             </TR>
  185.         </TABLE>
  186.       </TD>
  187.     <TR>
  188.     </FORM>
  189.  
  190. </TABLE>
  191. </CENTER>
  192.  
  193. <% Else %>
  194.  
  195. <CENTER><H2>Sorry, you do not have administrative privileges for this site.</H2></CENTER>
  196.  
  197. <% End If ' Permission check %>
  198.  
  199. <P> 
  200. <HR=400>
  201. <P>
  202.  
  203. <CENTER>
  204. <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1"><A HREF="../legal.htm">©1997 Microsoft Corporation. All rights reserved. Terms of Use.</A></FONT>
  205. </CENTER>
  206. <P>
  207.  
  208. <!--BEGIN COLOR BANNER-->
  209. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  210.     <TR>
  211.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  212.       </TD>
  213.     </TR>
  214. </TABLE>
  215. <!--END COLOR BANNER-->
  216. </BODY>
  217. </HTML>
  218.