这篇文章介绍运输旅游网站应用设计，包括时刻表线上查询系统、线上机票车票订位系统、旅行社线上查询报名系统、旅馆线上查询预约系统、邮件运送线上查询预约系统、等应用的点子、设计实例、以及详细解说，让您快速地设计出各种运输旅游的网站应用。
运输网站资料库应用
运输旅游方面，使用网站资料库，可以透过Internet、或Intranet提供以下的应用∶
* 航空班机时刻表线上查询*
* 线上机票订位*
* 旅行社旅游资讯线上查询
* 旅馆线上查询预约
* 邮件运送线上查询预约
右上角标示*的应用，本节将提供设计的范例，并详加解说。
执行本章资料库的范例，所用的资料库可为Microsoft Access、Microsoft SQL Server、或Text档案（读者可修改成其他支援ODBC的资料库，详见1-6-5节），须於NT安装IIS 3.0，并於「控制台」中的「ODBC」，新建一个名称为「BookSamp」的资料来源，驱动程式为「Microsoft Access Driver」、「SQL Server」、或「Microsoft Text 驱动程式」。详见附录 范例磁片。
1
时刻表线上查询系统
「时刻表线上查询系统」，可以透过Internet，提供查询时刻表的功能。
旅客透过Internet，连线上航空公司（铁路局、公路局）的「时刻表线上查询系统」，可以线上查询航空班机（火车票、公路局车票）时刻表。
「时刻表线上查询系统」也可以提供旅游促销活动、班次起飞到达误点，或旅游地点的住宿旅馆、饮食餐厅、天气预告、娱乐地点等资讯。
设计实例
让我们执行一个实例。
( 范例 data8.asp 飞机班机时刻表线上查询
若要查询资料，於用户端使用浏览器，浏览本书所附安装於网站伺服器的data8.asp，即可显示查询的飞机班机时刻表如下，包括班次、离/到时刻、机型∶
设计实例详细解说
建立资料表
首先使用Microsoft Access、Microsoft SQL Server 、Text档案、或任何一种支援ODBC的资料库，建立一个资料表AirTimeTable。
於栏名FLIGHT、TIME、AIRCRAFT分别输入班次、离/到时刻、机型的资料。
使用Microsoft Access建立一个资料表AirTimeTable，如下∶
或使用Microsoft SQL Server建立一个资料表AirTimeTable，如下∶
或使用Text档案建立一个资料表AirTimeTable，如下∶
查询资料库
接著，网站伺服器执行data8.asp档案，使用「Server.CreateObject」建立连线的物件，并使用「Open」开启待存取查询资料库BookSamp。
再使用SELECT的SQL指令查询资料库的资料，设定SQL指令，下个「Execute」指令，即可开始执行存取查询资料库的动作，并将查询结果储存到RecordSets物件RS。
程式码如下∶
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT FLIGHT,TIME,AIRCRAFT FROM AirTimeTable"
Set RS = Conn.Execute(SQL)
%>
接著，要显示查询的结果了。
首先，由「 IF RS.EOF THEN ...」判断是否找到飞机班机时刻表的资料，若RS.EOF为TRUE，则显示「本月无航空班机」。
若找到飞机班机时刻表的资料，则显示考上的结果，包括班次、离/到时刻、机型，分别由RecordSets物件的RS(0)、RS(1) 、RS(2) 取得。
RS.Fields.Count表示RecordSets物件的栏位数，由「For i = 0 to RS.Fields.Count - 1」取得RS(i) 各栏位的资料。配合<TABLE>表格的HTML语法，将结果填入表格的各栏位当中。
由「If INT(j/2)*2 <> j Then... 」判断显示奇偶笔的班机时刻资料，奇偶列显示不同的颜色。
若还有下一笔资料，使用RS.MoveNext移到下一笔的位置。
程式码，如下∶
<% IF RS.EOF THEN %>
<FONT COLOR="#FF0000">本月无航空班机</FONT>
<% ELSE %>
<FONT COLOR="#0000ff">台北 -> 高雄 航空班机时刻表如下:</FONT>
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#000080"><FONT>班次</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#000080"><FONT>离/到 时刻</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#000080"><FONT>机型</FONT></TD>
</TR>
<% j = 1 %>
<% Do While Not RS.EOF %>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
<% If INT(j/2)*2 <> j Then %>
<TD BGCOLOR="E8FFFF" ALIGN=CENTER>
<FONT COLOR="#000000"><%= RS(i) %></FONT></TD>
<% Else %>
<TD ALIGN=CENTER BGCOLOR="#C0FFFF">
<FONT COLOR="#000000"><%= RS(i) %></FONT></TD>
<% END IF %>
<% Next %>
</TR>
<%
RS.MoveNext
j = j + 1
Loop
RS.Close
Conn.Close
%>
</TABLE>
<% END IF %>
最後，使用RS.Close关闭RecordSet，使用Conn.Close关闭资料库。
全部的程式码，如下∶
<HTML>
<HEAD>
<TITLE>航空班机时刻表 线上查询系统</TITLE>
<META HTTP-EQUIV="content-type" CONTENT="text/html;charset=big5">
</HEAD>
<CENTER>
<BODY BGCOLOR=#FFFFFF>
<FONT SIZE=+2 COLOR="#0000FF">航空班机时刻表 线上查询系统</FONT>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT FLIGHT,TIME,AIRCRAFT FROM AirTimeTable"
Set RS = Conn.Execute(SQL)
%>
<HR>
<% IF RS.EOF THEN %>
<FONT COLOR="#FF0000">本月无航空班机</FONT>
<% ELSE %>
<FONT COLOR="#0000ff">台北 -> 高雄 航空班机时刻表如下:</FONT>
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#000080"><FONT>班次</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#000080"><FONT>离/到 时刻</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#000080"><FONT>机型</FONT></TD>
</TR>
<% j = 1 %>
<% Do While Not RS.EOF %>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
<% If INT(j/2)*2 <> j Then %>
<TD BGCOLOR="E8FFFF" ALIGN=CENTER>
<FONT COLOR="#000000"><%= RS(i) %></FONT></TD>
<% Else %>
<TD ALIGN=CENTER BGCOLOR="#C0FFFF">
<FONT COLOR="#000000"><%= RS(i) %></FONT></TD>
<% END IF %>
<% Next %>
</TR>
<%
RS.MoveNext
j = j + 1
Loop
RS.Close
Conn.Close
%>
</TABLE>
<% END IF %>
<HR>
</CENTER>
</BODY>
</HTML>
2
线上机票车票订位系统
「线上机票车票订位系统」，可以透过Internet，提供机票、火车票、公路局车票预约订位的功能。
旅客透过Internet，连线上航空公司（铁路局、公路局）的「线上机票车票订位系统」，可以由电脑输入班机、身分证号码、日期，完成机票（火车票、公路局车票）订位手续。
订位系统将自动统计每一个班次的订位人数，若超过名额，将自动告之，要求旅客订位其他的班次。
订位时，订位系统提供可以增加、取消、查询订位的功能。
旅客可以线上查询航空班
