home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / iis4_07.cab / default.asp4 < prev    next >
Encoding:
Text File  |  1997-09-08  |  14.3 KB  |  414 lines
  1. <% Option Explicit %>
  2. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  3. <HTML>
  4. <HEAD> 
  5. <!--META TAGS ARE RECOMMENDED FOR THE SEARCH ENGINE-->
  6. <META NAME="DESCRIPTION" CONTENT="Exploration Air's Web site offers secure, rapid online services with the best prices">
  7. <META NAME="KEYWORDS" CONTENT="airline, travel, frequent flyer, online services, transactions, tickets, vacation">
  8. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  9. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  10. <!--END META TAGS-->
  11. <TITLE>Welcome to Exploration Airlines Online</TITLE>
  12. </HEAD>
  13.  
  14. <% 
  15.     ' Get Windows NT and IIS authentication information
  16.     Dim objAuth
  17.     Call GetAuthenticationDetails
  18. %>
  19.  
  20. <BODY BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#228B22 LINK=#23238E>
  21. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  22.  
  23. <!--Change link color on mouseover
  24.     Only if running Internet Explorer 4.0 or later -->
  25. <!--#include virtual=IISSamples/ExAir/libHighlight.inc-->
  26.  
  27. <!--BEGIN TOP TABLE HOLDING PRESS RELEASE JAVA APPLET AND EXPLORATION AIR LOGO-->
  28. <CENTER>
  29. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  30.     <TR>
  31.         <!-- JAVA APPLET TO VIEW LATEST HEADLINES-->
  32.         <TD WIDTH=175 ALIGN=RIGHT>
  33.         <FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22 SIZE="3"><STRONG>N  E  W          S           </STRONG></FONT>
  34.         <BR>
  35.         <APPLET
  36.         CODE=CoolHeadLines.class
  37.         NAME=CoolHeadLines
  38.         CODEBASE=Applets
  39.         WIDTH=170
  40.         HEIGHT=76 >
  41.  
  42.         <PARAM NAME=BackColor VALUE="255 255 255">
  43.         <PARAM NAME=TextColor VALUE="0 0 0">
  44.         <PARAM NAME=HiliteTextColor VALUE="60 179 113">
  45.         <PARAM NAME=ScrollDelay VALUE=10>
  46.         <PARAM NAME=MessageDelay VALUE=4>    
  47.           <PARAM NAME=URLPrefix VALUE=<%= GetPrefixValue() %>>
  48.  
  49.         <% ListParams %>
  50.  
  51.     </APPLET>
  52.     <BR>
  53.     <BR>
  54.     <FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR=#0000FF SIZE=2>
  55.     <EM>   Click on a press release above to learn more about us.</EM>
  56.     </FONT>
  57.       </TD>
  58.     <!-- END PRESS RELEASE JAVA APPLET-->
  59.  
  60.     <!--BEGIN EXPLORATION AIR LOGO-->
  61.       <TD WIDTH=572 ALIGN=RIGHT>
  62.     <IMG SRC="images/welcome.gif" WIDTH=572 HEIGHT=270 ALT="Exploration Air's welcoming logo"  BORDER=0>
  63.       </TD>
  64.     <!--END EXPLORATION AIR LOGO-->
  65.     </TR>
  66. </TABLE>
  67. </CENTER>
  68. <!--END TOP TABLE HOLDING JAVA PRESS RELEASE APPLET AND EXPLORATION AIR LOGO-->
  69. <P>
  70. <P>
  71.  
  72. <!--BEGIN MASTER TABLE THAT HOLDS THREE NESTED TABLES: MAIN AND SUB NAVIGATIONAL TABLES, AND MAIN EXPLORATION AIR CONTENT TABLE-->
  73.     <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  74.     <TR>
  75. <!--THIS TABLE CELL WILL EXPAND IN HEIGHT ACCORDINGLY IF CONTENT IS ADDED TO THE MAIN EXPLORATION AIR CONTENT TABLE, KEEP THE NAVIGATIONAL TABLE IN PLACE, AND ALLOW NEW CATEGORIES TO BE ADDED-->
  76.     <TD VALIGN=TOP HEIGHT=40%>
  77.     <!--BEGIN MAIN NAVIGATIONAL NESTED TABLE-->
  78.     <TABLE BGCOLOR=#FFFFFF CELLSPACING=0 CELLPADDING=0 WIDTH=185 HEIGHT=100% BORDER=0>
  79.     <TR>
  80.     <TD WIDTH=225 ALIGN=RIGHT VALIGN=TOP HEIGHT=100%>
  81.  
  82. <CENTER> 
  83.     <!--BEGIN SUB NAVIGATIONAL NESTED TABLE-->
  84.     <TABLE  WIDTH=95% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  85.     <!-- GO TO THE BEHIND THE SCENES EXPLANATORY PAGE -->
  86.     <TR>
  87.     <TD BGCOLOR=#FFFFFF COLSPAN=3 ALIGN=CENTER> 
  88.     <A HREF="HowItWorks/HIWExAirDefault.asp">
  89.     <IMG SRC="images/btssmall.gif" WIDTH="115" HEIGHT="52" ALT="Click here to learn how this page works" BORDER=0></A>
  90.     </TD>
  91.     <TD HEIGHT=5 WIDTH=3>
  92.     </TD>
  93.     </TR>
  94.  
  95.     <TR>
  96.     <TD BGCOLOR=#FFFFFF COLSPAN=3 ALIGN=CENTER> 
  97.     <BR>
  98.     <FONT FACE="TIMES NEW ROMAN, ARIAL, HELVETICA" COLOR=#228B22 SIZE=5><STRONG>Our Online Services</STRONG></FONT>
  99.     </TD>
  100.     </TR>    
  101. <!--BEGIN CATEGORIES AND LINKS-->
  102.  
  103.     <!-- GO TO THE FREQUENT FLYER PROGRAM -->
  104.     <TR>
  105.     <TD WIDTH=3>
  106.     </TD>
  107.     <TD ALIGN=CENTER>
  108.     <A HREF="freqflyer/default.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2 VSPACE=4 ALT="Frequent Flyer Homepage"></A>
  109.     </TD>
  110.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA"     COLOR=#228B22><A HREF="freqflyer/default.asp">Frequent Flyer Club</A></FONT></STRONG><P>
  111.     </TD>
  112.     </TR>
  113.  
  114.     <!-- GO TO BENEFITS -->
  115.     <!-- If the user has been authenticated by Windows NT and they are in the Users group -->
  116.     <% If UserAuthMethod() = "NTLM" And AuthIsInGroup("Users") <> FALSE Then %>
  117.     <TR>
  118.     <TD WIDTH=3></TD>
  119.     <TD ALIGN=CENTER>
  120.     <A HREF="Benefits/Default.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2 VSPACE=4 ALT="Benefits"></A></TD>
  121.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="Benefits/Default.asp">Benefits</A></FONT></STRONG><P></TD>
  122.     </TR>
  123.     <% End If %>
  124.  
  125.     <!-- GO TO THE SITE VIEW -->
  126.     <TR>
  127.     <TD WIDTH=3></TD>
  128.     <TD ALIGN=CENTER>
  129.     <A HREF="siteview.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2 VSPACE=4 ALT="Site View"></A></TD>
  130.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="siteview.asp">Site View</A></FONT></STRONG><P></TD>
  131.     </TR>
  132.  
  133.     <!-- SUBSCRIBE TO THE EXPLORATION AIR CHANNELS -->
  134.     <TR>
  135.     <TD WIDTH=3></TD>
  136.     <TD ALIGN=CENTER>
  137.     <A HREF="IEPush/Channel.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2  VSPACE=4 ALT="News Channels"></A></TD>
  138.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="IEPush/Channel.asp">News Channels</A></FONT></STRONG><P></TD>
  139.     </TR>
  140.  
  141.     <!-- SITE ADMIN -->
  142.     <!-- If the user is an admin then let then admin the site -->
  143.     <% If AuthIsAdmin() Then %>
  144.     <TR>
  145.     <TD WIDTH=3></TD>
  146.     <TD ALIGN=CENTER>
  147.     <A HREF="SiteAdmin/SiteAdmin.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="2" VSPACE="4" ALT="Site Administration"></A></TD>
  148.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="SiteAdmin/SiteAdmin.asp">Site Admin</A></FONT></STRONG><P></TD>
  149.     </TR>
  150.     <% End If %>
  151.  
  152.     <!-- EXAIR/ADVWORKS CATALOG -->
  153.     <TR>
  154.     <TD WIDTH=3></TD>
  155.     <TD ALIGN=CENTER>
  156.     <A HREF="Catalog/Catalog.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="2" VSPACE="4" ALT="Catalog"></A></TD>
  157.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="Catalog/Catalog.asp">Product Catalog</A></FONT></STRONG><P></TD>
  158.     </TR>
  159.  
  160.     <!-- SEARCH THIS SITE -->
  161.     <TR>
  162.     <TD WIDTH=3></TD>
  163.     <TD ALIGN=CENTER>
  164.     <A HREF="Search/Search.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="2" VSPACE="4" ALT="Search This Site"></A></TD>
  165.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="Search/Search.asp">Search This Site</A></FONT></STRONG><P></TD>
  166.     </TR>
  167.  
  168.     <!-- CONTACT US -->
  169.     <TR>
  170.     <TD WIDTH=3></TD>
  171.     <TD ALIGN=CENTER>
  172.     <A HREF="HowToReachUs.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="2" VSPACE="4" ALT="Contact Us"></A></TD>
  173.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="HowToReachUs.asp">Contact Us</A></FONT></STRONG><P></TD>
  174.     </TR>
  175.  
  176.     <!-- ABOUT THE EXPLORATION AIR SITE -->
  177.     <TR>
  178.     <TD WIDTH=3></TD>
  179.     <TD ALIGN=CENTER>
  180.     <A HREF="About.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" border=0 HSPACE="2" VSPACE="4" ALT="About the Exploration Air Site"></A></TD>
  181.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="About.asp">About This Site</A></FONT></STRONG><P>
  182.     </TD>
  183.     </TR>
  184.     </TABLE>
  185. </CENTER>
  186. <!--END CATEGORIES AND LINKS-->
  187. <!--END OF SUB NAVIGATIONAL NESTED TABLE--> 
  188.     </TD>
  189.     </TABLE>
  190.     <!--END OF NESTED NAVIGATIONAL TABLE-->
  191.     </TD>
  192. <!--END OF EXPANDABLE HEIGHT TABLE CELL FROM MASTER TABLE-->
  193.  
  194.     <!--THIS TABLE CELL PROVIDES A SPACER BETWEEN THE NAVIGATIONAL COLUMN AND MAIN     CONTENT-->
  195.     <TD WIDTH=2 BGCOLOR="#FFFFFF">
  196.     </TD>
  197.     <!--END SPACER TABLE CELL-->
  198.  
  199. <!--THIS TABLE CELL IS PART OF THE MASTER TABLE, AND HOLDS THE NESTED MAIN EXPLORATION AIR CONTENT TABLE-->
  200.     <TD BGCOLOR="#FFFFFF" ALIGN=LEFT VALIGN=TOP>
  201.  
  202. <!--BEGIN NESTED TABLE CONTAINING MAIN EXPLORATION AIR CONTENT-->
  203. <TABLE CELLSPACING=0 CELLPADDING=5 BORDER=0>
  204.         <TR>
  205.         <TD VALIGN=TOP> 
  206.         <FONT SIZE=5 FACE="TIMES NEW ROMAN, ARIAL, HELVETICA" COLOR=#0000FF><STRONG>
  207.         <DIV id=Quote1 STYLE="VISIBILITY:HIDDEN">
  208.         Exploration Air,
  209.         <BR>
  210.         The World's Most Advanced Airline</STRONG>
  211.         </FONT>
  212.         </DIV>
  213.         <P>
  214.         <FONT SIZE=3 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#000000>
  215.         Welcome to our Web site.  Whether you're a seasoned traveler or new to our Frequent Flyer Club, 
  216.         you'll enjoy our secure, quick online services. We're excited to introduce you to the Frequent Flyer Club, 
  217.         our first Web-based service.  
  218.         <P>
  219.         Please <% CreateBookmarkMessage %> and check back often to explore the new services we'll be adding over 
  220.         the upcoming months!
  221.            <BR>
  222.         <BR>
  223.         <BR>
  224.         <BR>
  225.         <BR>
  226.         <% DisplayPageCount %>
  227.         </FONT>
  228.         </TD> 
  229.     </TR>
  230. </TABLE>
  231. <!--END NESTED TABLE CONTAINING MAIN EXPLORATION AIR CONTENT-->
  232. </TD>
  233. <!--END MASTER TABLE CELL HOLDING THE NESTED MAIN EXPLORATION AIR CONTENT TABLE-->
  234. </TR>
  235. </TABLE>
  236. <!--END MASTER TABLE-->
  237.  
  238. <BR>
  239. <HR WIDTH=600>
  240. <BR>
  241.  
  242. <!--BEGIN HOW THIS PAGE WORKS AND LEGAL INFORMATION TABLE-->
  243. <TABLE WIDTH=100% CELLPADDING=5 CELLSPACING=0 BORDER=0>
  244. <TR>
  245. <TD ALIGN=CENTER>
  246. <A HREF="http://www.microsoft.com/iis/"><IMG SRC="images/iisside.gif" WIDTH="100" HEIGHT="31" ALT="Microsoft NT Server with Internet Information Server" BORDER=0></A>
  247. </TD>
  248.  
  249. <TD ALIGN=CENTER>
  250. <FONT SIZE=3 COLOR=#FFCC00 FACE="VERDANA, ARIAL, HELVETICA" >Exploration Air Sample Site<BR>for Internet Information Server 4.0</FONT>
  251. <BR>
  252. <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=1><A HREF="legal.htm">©1997 Microsoft Corporation. All rights reserved. Terms of Use.</A></FONT>
  253. </TD>
  254.  
  255. <TD ALIGN=CENTER>
  256. <A HREF="http://www.microsoft.com/ie/"><IMG SRC="images/ie_ani.gif" WIDTH="88" HEIGHT="31" ALT="Download Internet Explorer Free!" BORDER=0></A>
  257. </TD>
  258. </TR>
  259. </TABLE>
  260. <!--END HOW THIS PAGE WORKS AND LEGAL INFORMATION TABLE-->
  261.  
  262. <P>
  263.  
  264.  
  265. <!--COLOR BANNER_START-->
  266. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  267.     <TR>
  268.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  269.       </TD>
  270.     </TR>
  271. </TABLE>
  272. <!--COLOR BANNER_END-->
  273.  
  274. </BODY>
  275. </HTML>
  276. <!--END HTML-->
  277.  
  278. <!-- Miscellaneous Visual Basic Helper Functions -->
  279. <%
  280.     ' ListParams uses the FileSystem Object to access a file on the server which holds
  281.     ' all the latest ExAir headlines. These headlines are then fed into the CoolHeadLines 
  282.     ' Java applet as <PARAM> tags.
  283.     Sub ListParams
  284.         On Error Resume Next
  285.         Dim fso, prFile, intFileNum, strTitle, strLink,strCategory
  286.  
  287.         intFileNum = 0
  288.         
  289.         Set fso = Server.CreateObject("Scripting.FileSystemObject")
  290.         Set prFile = fso.OpenTextFile(Server.MapPath("pr/prFileList.txt"))
  291.         If Err.Number <> 0 Then
  292.             Exit Sub
  293.         End If
  294.         
  295.         Do Until prFile.AtEndOfStream
  296.             ' Get headline
  297.             strTitle = Chr(34) & prFile.ReadLine & Chr(34)
  298.             If prFile.AtEndOfStream Then Exit Do
  299.  
  300.             ' Get URL
  301.             strLink = Chr(34) & "pr/" & prFile.ReadLine & Chr(34)
  302.  
  303.             ' Get Category (not used in the Java applet)
  304.             strCategory = prFile.ReadLine 
  305.  
  306.             response.write "<PARAM NAME=Text" & intFileNum & " VALUE=" & strTitle & ">" & Chr(13)
  307.             response.write "PARAM NAME=URL" & intFileNum & " VALUE=" & strLink & ">" & Chr(13)
  308.             intFileNum = intFileNum + 1
  309.         Loop
  310.         
  311.         Response.Write "<PARAM NAME=NumItems VALUE=" & intFileNum & ">" & Chr(13)
  312.     End Sub
  313.     
  314.     ' GetPrefixValue is a helper function which removes the 
  315.     ' document name from a fully-qualified URL
  316.     Function GetPrefixValue()
  317.         Dim strFullPath, strLastChar
  318.         strFullPath = "http://"
  319.         strFullPath = strFullPath & Request.ServerVariables("SERVER_NAME")
  320.         strFullPath = strFullPath & Request.ServerVariables("PATH_INFO")
  321.         ' now str has a value like: "http://servname/exair/freqflyer/default.asp"
  322.         ' we need to cut off the "/default.asp" part
  323.         strLastChar = ""
  324.         Do Until strLastChar = "/"
  325.             strLastChar = right(strFullPath, 1)
  326.             strFullPath = left(strFullPath, len(strFullPath) - 1)    
  327.         Loop
  328.         GetPrefixValue = strFullPath
  329.     End Function
  330.  
  331.     ' DisplayPageCount is a function to display the number of users who have come to this site
  332.     ' so far. It's a function rather than a embedded VBScript so we can catch any errors easily
  333.     Sub DisplayPageCount
  334.         On Error Resume Next
  335.         Dim MyPageCount, Hits
  336.         Set MyPageCount = Server.CreateObject("MSWC.PageCounter")
  337.         Hits = MyPageCount.Hits
  338.         If Err.Number = 0 Then
  339.             Response.Write "<!--BEGIN HIT COUNTER CODE-->" & Chr(13)
  340.             Response.Write "<CENTER>" & Chr(13)
  341.             Response.Write "You are visitor number <STRONG>" & Hits & "</STRONG> to come to our site!</CENTER><BR>" & Chr(13)
  342.             Response.Write "<!--END HIT COUNTER CODE-->"
  343.         End If
  344.     End Sub
  345.  
  346.     ' CreateBookmarkMessage creates some text depending on the type of browser you are using.
  347.     ' For Microsoft Internet Explorer it uses the term "favorites" but for others it uses the
  348.     ' term "bookmark"
  349.     Sub CreateBookmarkMessage
  350.         If Session("IEVersion") > 0 Then
  351.             response.write "add this to your Microsoft® Internet Explorer Favorites"
  352.         Else
  353.             response.write "add a bookmark to your browser"
  354.         End If
  355.     End Sub
  356.  
  357.     ' Determines many authentication options and Windows NT group membership
  358.     ' This allows us to determine what options need displaying on the homepage
  359.     Sub GetAuthenticationDetails
  360.         On Error Resume Next
  361.         Set objAuth = Server.CreateObject("MSWC.IISAuth.1")
  362.     End Sub
  363.  
  364.     ' The following are wrappers for the authentication object. This is so we can 
  365.     ' trap any errors (such as the authentication component not being loaded)
  366.     Function AuthUsername()
  367.         AuthUsername = ""  ' Unknown name
  368.         On Error Resume Next
  369.         If Err = 0 Then
  370.             AuthUsername = objAuth.Username
  371.         End If
  372.     End Function
  373.  
  374.     Function AuthDomain()
  375.         AuthDomain=""    ' Unknown domain
  376.         On Error Resume Next
  377.         If Err = 0 Then
  378.             AuthDomain = objAuth.Domain
  379.         End If
  380.     End Function
  381.  
  382.     Function UserAuthMethod()
  383.         UserAuthMethod=""    ' Anon authentication method
  384.         On Error Resume Next
  385.         If Err = 0 Then
  386.             UserAuthMethod = objAuth.AuthMethod
  387.         End If
  388.     End Function
  389.  
  390.     Function AuthUsingHTTPS()
  391.         AuthUsingHTTPS = "off"    ' Not using HTTPS
  392.         On Error Resume Next
  393.         If Err = 0 Then
  394.             AuthUsingHTTPS = objAuth.UsingHTTPS
  395.         End If
  396.     End Function
  397.  
  398.     Function AuthIsAdmin()
  399.         AuthIsAdmin=False
  400.         On Error Resume Next
  401.         If Err = 0 Then
  402.             AuthIsAdmin = objAuth.IsAdmin
  403.         End If
  404.     End Function
  405.  
  406.     Function AuthIsInGroup(strGroup)
  407.         AuthIsInGroup=False
  408.         On Error Resume Next
  409.         If Err = 0 Then
  410.             AuthIsInGroup = objAuth.IsInGroup(strGroup)
  411.         End If
  412.     End Function
  413. %>
  414. <