旅游网站应用设计

这篇文章介绍运输旅游网站应用设计，包括时刻表线上查询系统、线上机票车票订位系统、旅行社线上查询报名系统、旅馆线上查询预约系统、邮件运送线上查询预约系统、等应用的点子、设计实例、以及详细解说，让您快速地设计出各种运输旅游的网站应用。

运输网站资料库应用

运输旅游方面，使用网站资料库，可以透过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 驱动程式」。详见附录范例磁片。

时刻表线上查询系统

「时刻表线上查询系统」，可以透过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>

<TR>

</TR>

<% j = 1 %>

<% Do While Not RS.EOF %>

<TR>

<% For i = 0 to RS.Fields.Count - 1 %>

<% If INT(j/2)*2 <> j Then %>

<% Else %>

<% 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>

</HEAD>

<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>

<TR>

</TR>

<% j = 1 %>

<% Do While Not RS.EOF %>

<TR>

<% For i = 0 to RS.Fields.Count - 1 %>

<% If INT(j/2)*2 <> j Then %>

<% Else %>

<% END IF %>

<% Next %>

</TR>

RS.MoveNext

j = j + 1

Loop

RS.Close

Conn.Close

</TABLE>

<% END IF %>

<HR>

</CENTER>

</BODY>

</HTML>

线上机票车票订位系统

「线上机票车票订位系统」，可以透过Internet，提供机票、火车票、公路局车票预约订位的功能。

旅客透过Internet，连线上航空公司（铁路局、公路局）的「线上机票车票订位系统」，可以由电脑输入班机、身分证号码、日期，完成机票（火车票、公路局车票）订位手续。

订位系统将自动统计每一个班次的订位人数，若超过名额，将自动告之，要求旅客订位其他的班次。

订位时，订位系统提供可以增加、取消、查询订位的功能。

旅客可以线上查询航空班机（火车票、公路局车票）时刻表。

费用可由信用卡、划拨、或银行转帐来支付。

设计实例

让我们执行一个实例。

( 范例 data11.asp 线上机票订位

若要线上订位机票，於用户端使用浏览器，浏览本书所附安装於网站伺服器的data11.asp，於「身分证字号」处输入身分证字号如A123456789，於「搭机日期」处输入搭机日期如870707，於「搭机班次」处输入搭机班次如103後，按下「订位」按钮，即可显示机票订位的结果如下，包括身分证字号、搭机日期、搭机班次、定位顺序∶

线上订位机票时，若此班次已经订位过，则重覆订位相同的班次将显示「已经订过位」如下∶

线上订位机票时，若超过订位的300个名额时，则显示「机位已满」如下∶

取消订位

线上订位机票後，可以取消所订位的记录，於「身分证字号」处输入身分证字号如A123456789，於「搭机日期」处输入搭机日期如870707，於「搭机班次」处输入搭机班次如103後，按下「取消订位」按钮，即可显示取消订位的结果如下∶

若待取消的班次尚未订位过，则取消订位时显示「尚未订位」如下∶

查询订位

线上订位机票後，可以查询所有订位的记录，仅须於「身分证字号」处输入身分证字号如A123456789後，按下「查询」按钮，即可显示查询的结果如下∶

查询订位时，若尚未订位，则查询订位将显示「尚未订位」如下∶

班机时刻表

按下「班机时刻表」按钮，即可显示查询班机时刻表的结果如下∶

设计实例详细解说

建立资料表

首先使用Microsoft Access、Microsoft SQL Server 、Text档案、或任何一种支援ODBC的资料库，建立一个资料表AirCount，储存一个班次的预约订位人数、和最後订位顺序号码。

这个资料表系供订位和取消订位时，记录一个班次的预约订位人数、和最後订位顺序号码之用。

建立栏位TOTAL、COUNT0、DATE0、FLIGHT，分别代表一个班次的预约订位人数、最後订位顺序号码、日期、班机。建立资料表时不必输入资料。

使用Microsoft Access建立一个资料表AirCount，如下∶

或使用Microsoft SQL Server建立一个资料表AirCount，如下∶

或使用Text档案建立一个资料表AirCount，如下∶

尚需要建立另一个资料表AirTicket，储存预约订位的记录，建立栏位ID、COUNT0、DATE0、FLIGHT，分别代表一笔预约订位记录的身分证号码、订位顺序号码、日期、班机。

这个资料表系供订位、查询订位、和取消订位时，记录一笔预约订位记录之用。建立资料表时不必输入资料。

使用Microsoft Access建立一个资料表AirTicket，如下∶

或使用Microsoft SQL Server建立一个资料表AirTicket，如下∶

或使用Text档案建立一个资料表AirTicket，如下∶

设计输入的表单

接著，设计输入的表单form，当客户输入身分证字号ID1、搭机日期DATE1、搭机班次FLIGHT1，按下「订位」等的按钮submit时，即使用POST的方式将输入资料传送到网站伺服器，并执行於「form action=...」所设定的data11.asp档案（与form为同一个ASP档案），程式码如下∶

机票订位, 请输入:<br>

<FONT COLOR="#FF8080">■ </FONT>身分证字号 (如A123456789):

<FONT COLOR="#FF8080">■ </FONT>搭机日期 (如87年7月1日请输入870701):

<FONT COLOR="#FF8080">■ </FONT></FONT>搭机班次 (如103):

<INPUT TYPE=submit VALUE="查询" name="Action"> 仅须填入身分证字号<br>

</form>

<form>

</form>

若按下「班机时刻表」的按钮时，执行data8.asp，以查询班机时刻表。

网站伺服器执行data11.asp档案，首先经由Request.Form("Action")取得所按submit按钮上的显示文字VALUE，Left(Request.Form("Action"),2)系只取前两个中文字，若Request.Form("Action")非空白时，表示为表单输入所呼叫执行。

由「SELECT CASE Left(Request.Form("Action"),2) 」判断是按了那个按钮。若按钮上前两个字为「订位」时，则执行AddTicket() 副程式；若为「取消」时，则执行DeleteTicket() 副程式；若为「查询」时，则执行CheckTicket() 副程式。

SELECT CASE Left(Request.Form("Action"),2)

CASE "订位"

AddTicket()

CASE "取消"

DeleteTicket()

CASE "查询"

CheckTicket()

END SELECT

订位

按了「订位」按钮时，将执行AddTicket() 副程式。

首先，使用「Server.CreateObject」建立连线的物件，并使用「Open」开启待存取查询资料库BookSamp。

再寻找所待新增的订位记录，以检查是否已经订过位，使用SELECT的SQL指令查询资料库的资料，於AirTicket资料表，设定SQL指令，查询身分证字号栏位ID符合所输入Request.Form("ID1")，和栏位DATE0符合所输入搭机日期Request.Form("DATE1")，及栏位FLIGHT符合所输入搭机日期Request.Form("FLIGHT1")的资料，下个「Execute」指令，即可开始执行存取查询资料库的动作，并将查询结果储存到RecordSets物件RS。

程式码如下∶

Sub AddTicket()

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "BookSamp","sa",""

SQL = "SELECT * FROM AirTicket WHERE ID = '" & Request.Form("ID1") & "' AND DATE0 = '" & Request.Form("DATE1") & "' AND FLIGHT = '" & Request.Form("FLIGHT1") & "'"

Set RS = Conn.Execute(SQL)

接著，要显示执行的结果了。

首先於AirTicket资料表，检查是否已经订过位，由「IF RS.EOF THEN ...」判断。若RS.EOF为TRUE，表示此客户对於此班次尚未订过位，再寻找是否所待订位的班次已经有人订过位。於AirCount资料表，设定SQL指令，查询栏位DATE0符合所输入搭机日期Request.Form("DATE1")，及栏位FLIGHT符合所输入搭机日期Request.Form("FLIGHT1")的资料。若RS.EOF为TRUE，表示此班次尚未有人订位，则於AirCount资料表，使用「INSERT INTO...」指令新增一笔资料。此笔新增资料的订位人数栏位TOTAL、和最後订位顺序号码栏位COUNT0都设定为1，搭机日期栏位DATE0设定为Request.Form("DATE1")，及搭机日期栏位FLIGHT设定为Request.Form("FLIGHT1")。

然後再於AirTicket资料表，使用「INSERT INTO...」指令新增一笔资料。此笔新增资料的订位顺序号码栏位COUNT0设定为1，身分证字号栏位ID设定为Request.Form("ID1")，搭机日期栏位DATE0设定为Request.Form("DATE1")，及搭机日期栏位FLIGHT设定为Request.Form("FLIGHT1")。

显示执行的结果时，配合<TABLE>表格的HTML语法，将结果填入表格的各栏位当中。

程式码，如下∶

IF RS.EOF THEN

RS.Close

SQL = "SELECT * FROM AirCount WHERE DATE0 = '" & Request.Form("DATE1") & "' AND FLIGHT = '" & Request.Form("FLIGHT1") & "'"

Set RS = Conn.Execute(SQL)

IF RS.EOF THEN

'此班次尚未有人订位 ! 於AirCount新增一笔

SQL = "INSERT INTO AirCount(COUNT, TOTAL, DATE0, FLIGHT) VALUES(1,1,'" & Request.Form("DATE1") & "','" & Request.Form("FLIGHT1") & "')"

Set RS = Conn.Execute(SQL)

'Ai

[1] [2] [3] [4] 下一页