<%LANGUAGE=VBScript%> Site Administration
">Return to Exploration Air Home Page
Site Administration Click here to learn how this page works


<% ' Only allow access to this page if they have access! If CanAdminServer() Then %>
Warning! Please be careful when making changes as you may render the site inaccessible to some users!

<% ' If this is a post of the updated form data then do the appropriate ADSI work ' as well as setting the application-level variables If Request.QueryString("Update") = "Yes" Then ' SSL Constants from IISCnfg.h Const ACCESS_SSL = &H8 Const ACCESS_SSL_ALLOW_CERT = &H20 Const ACCESS_SSL_REQUIRE_CERT = &H40 ' Authentication constants from IISCnfg.h Const AUTH_ANON = &H1 Const AUTH_NTLM = &H4 ' Get the ADSI objects Dim oFFDir, oBizDir, oAdminDir, oBenefitsDir Set oFFDir = GetObject("IIS://localhost/w3svc/1/Root/IISSamples/ExAir/FreqFlyer") Set oBizDir = GetObject("IIS://localhost/w3svc/1/Root/IISSamples/ExAir/BusinessPartners") Set oAdminDir = GetObject("IIS://localhost/w3svc/1/Root/IISSamples/ExAir/SiteAdmin") Set oBenefitsDir = GetObject("IIS://localhost/w3svc/1/Root/IISSamples/ExAir/Benefits") ' Admin anonymous flag If Request.Form("adminAnon") = "on" Then Application("AdminAllowAnonymous") = True oAdminDir.AuthFlags = AUTH_ANON oBenefitsDir.AuthFlags = AUTH_ANON Else Application("AdminAllowAnonymous") = False oAdminDir.AuthFlags = AUTH_NTLM oBenefitsDir.AuthFlags = AUTH_NTLM End If ' SSL support for Frequent Flyer flag If Request.Form("adminSSLFreqFlyer") = "on" Then Application("AdminUseSSLOnFreqFlyer") = True oFFDir.AccessSSLFlags = ACCESS_SSL Else Application("AdminUseSSLOnFreqFlyer") = False oFFDir.AccessSSLFlags = 0 End If ' SSL support for Business Partner flag If Request.Form("adminSSLBizPart") = "on" Then Application("AdminUseSSLOnBusinessPartners") = True oBizDir.AccessSSLFlags = ACCESS_SSL + ACCESS_SSL_REQUIRE_CERT + ACCESS_SSL_ALLOW_CERT Else Application("AdminUseSSLOnBusinessPartners") = False oBizDir.AccessSSLFlags = 0 End If oFFDir.SetInfo oBizDir.SetInfo oAdminDir.SetInfo Set oFFDir = Nothing Set oBizDir = Nothing Set oAdminDir = Nothing ' Save settings to AdminPrefs.txt SaveAdminPrefs() Response.Write("

Settings have been successfully applied.

") End If %>
Administration Options
Setting Comment
Allow Anonymous Access: > Checking this box will disable Windows NT Challenge/Response authentication and allow Anonymous Access to the Benefits page and this administration page. It is recommended that you do NOT check this box.
Require Secure Sockets (HTTPS) for Frequent Flyers: > Check this box if you have a server certificate for your Web server and wish to use Secure Sockets (HTTPS) for the Frequent Flyers Club. If you do not have a server certificate but wish to allow users to access the Frequent Flyer Club, uncheck this box. It is recommended, however, that you obtain a server certificate and check this box for the security of your clients.
Require Client Side Certificates for Business Partners: > Check this box if you have a server certificate for your Web server. If you do not have a server certificate but wish to allow users to access this part of the Web site, uncheck this box. It is recommended, however, that you obtain a server certificate and check this box and require Client Side Certificates as well.
<% Else %>

Sorry, you do not have administrative privileges for this site.

<% End If ' Permission check %>

©1997 Microsoft Corporation. All rights reserved. Terms of Use.