明輝手游網(wǎng)中心：是一個免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

旅游網(wǎng)站應(yīng)用設(shè)計(jì)

發(fā)表時間：2023-08-19 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]這篇文章介紹運(yùn)輸旅游網(wǎng)站應(yīng)用設(shè)計(jì)，包括時刻表線上查詢系統(tǒng)、線上機(jī)票車票訂位系統(tǒng)、旅行社線上查詢報名系統(tǒng)、旅館線上查詢預(yù)約系統(tǒng)、郵件運(yùn)送線上查詢預(yù)約系統(tǒng)、等應(yīng)用的點(diǎn)子、設(shè)計(jì)實(shí)例、以及詳細(xì)解說，讓您快速...

這篇文章介紹運(yùn)輸旅游網(wǎng)站應(yīng)用設(shè)計(jì)，包括時刻表線上查詢系統(tǒng)、線上機(jī)票車票訂位系統(tǒng)、旅行社線上查詢報名系統(tǒng)、旅館線上查詢預(yù)約系統(tǒng)、郵件運(yùn)送線上查詢預(yù)約系統(tǒng)、等應(yīng)用的點(diǎn)子、設(shè)計(jì)實(shí)例、以及詳細(xì)解說，讓您快速地設(shè)計(jì)出各種運(yùn)輸旅游的網(wǎng)站應(yīng)用。

運(yùn)輸網(wǎng)站資料庫應(yīng)用
運(yùn)輸旅游方面，使用網(wǎng)站資料庫，可以透過Internet、或Intranet提供以下的應(yīng)用∶
* 航空班機(jī)時刻表線上查詢*
* 線上機(jī)票訂位*
* 旅行社旅游資訊線上查詢
* 旅館線上查詢預(yù)約
* 郵件運(yùn)送線上查詢預(yù)約
右上角標(biāo)示*的應(yīng)用，本節(jié)將提供設(shè)計(jì)的范例，并詳加解說。
執(zhí)行本章資料庫的范例，所用的資料庫可為Microsoft Access、Microsoft SQL Server、或Text檔案（讀者可修改成其他支援ODBC的資料庫，詳見1-6-5節(jié)），須於NT安裝IIS 3.0，并於「控制臺」中的「ODBC」，新建一個名稱為「BookSamp」的資料來源，驅(qū)動程式為「Microsoft Access Driver」、「SQL Server」、或「Microsoft Text 驅(qū)動程式」。詳見附錄 范例磁片。

1
時刻表線上查詢系統(tǒng)
「時刻表線上查詢系統(tǒng)」，可以透過Internet，提供查詢時刻表的功能。
旅客透過Internet，連線上航空公司（鐵路局、公路局）的「時刻表線上查詢系統(tǒng)」，可以線上查詢航空班機(jī)（火車票、公路局車票）時刻表。
「時刻表線上查詢系統(tǒng)」也可以提供旅游促銷活動、班次起飛到達(dá)誤點(diǎn)，或旅游地點(diǎn)的住宿旅館、飲食餐廳、天氣預(yù)告、娛樂地點(diǎn)等資訊。
設(shè)計(jì)實(shí)例
讓我們執(zhí)行一個實(shí)例。
( 范例 data8.asp 飛機(jī)班機(jī)時刻表線上查詢
若要查詢資料，於用戶端使用瀏覽器，瀏覽本書所附安裝於網(wǎng)站伺服器的data8.asp，即可顯示查詢的飛機(jī)班機(jī)時刻表如下，包括班次、離/到時刻、機(jī)型∶ 

設(shè)計(jì)實(shí)例詳細(xì)解說
建立資料表
首先使用Microsoft Access、Microsoft SQL Server 、Text檔案、或任何一種支援ODBC的資料庫，建立一個資料表AirTimeTable。
於欄名FLIGHT、TIME、AIRCRAFT分別輸入班次、離/到時刻、機(jī)型的資料。
使用Microsoft Access建立一個資料表AirTimeTable，如下∶ 
或使用Microsoft SQL Server建立一個資料表AirTimeTable，如下∶ 
或使用Text檔案建立一個資料表AirTimeTable，如下∶ 

查詢資料庫
接著，網(wǎng)站伺服器執(zhí)行data8.asp檔案，使用「Server.CreateObject」建立連線的物件，并使用「Open」開啟待存取查詢資料庫BookSamp。
再使用SELECT的SQL指令查詢資料庫的資料，設(shè)定SQL指令，下個「Execute」指令，即可開始執(zhí)行存取查詢資料庫的動作，并將查詢結(jié)果儲存到RecordSets物件RS。
程式碼如下∶
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT FLIGHT,TIME,AIRCRAFT FROM AirTimeTable"
Set RS = Conn.Execute(SQL)
%>
接著，要顯示查詢的結(jié)果了。
首先，由「 IF RS.EOF THEN ...」判斷是否找到飛機(jī)班機(jī)時刻表的資料，若RS.EOF為TRUE，則顯示「本月無航空班機(jī)」。
若找到飛機(jī)班機(jī)時刻表的資料，則顯示考上的結(jié)果，包括班次、離/到時刻、機(jī)型，分別由RecordSets物件的RS(0)、RS(1) 、RS(2) 取得。
RS.Fields.Count表示RecordSets物件的欄位數(shù)，由「For i = 0 to RS.Fields.Count - 1」取得RS(i) 各欄位的資料。配合<TABLE>表格的HTML語法，將結(jié)果填入表格的各欄位當(dāng)中。
由「If INT(j/2)*2 <> j Then... 」判斷顯示奇偶筆的班機(jī)時刻資料，奇偶列顯示不同的顏色。
若還有下一筆資料，使用RS.MoveNext移到下一筆的位置。
程式碼，如下∶
<% IF RS.EOF THEN %>
<FONT COLOR="#FF0000">本月無航空班機(jī)</FONT> 
<% ELSE %>
<FONT COLOR="#0000ff">臺北 -> 高雄 航空班機(jī)時刻表如下:</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>機(jī)型</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關(guān)閉RecordSet，使用Conn.Close關(guān)閉資料庫。
全部的程式碼，如下∶
<HTML>
<HEAD>
<TITLE>航空班機(jī)時刻表 線上查詢系統(tǒng)</TITLE>
<META HTTP-EQUIV="content-type" CONTENT="text/html;charset=big5">
</HEAD>
<CENTER>
<BODY BGCOLOR=#FFFFFF>
<FONT SIZE=+2 COLOR="#0000FF">航空班機(jī)時刻表 線上查詢系統(tǒng)</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">本月無航空班機(jī)</FONT> 
<% ELSE %>
<FONT COLOR="#0000ff">臺北 -> 高雄 航空班機(jī)時刻表如下:</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>機(jī)型</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
線上機(jī)票車票訂位系統(tǒng)
「線上機(jī)票車票訂位系統(tǒng)」，可以透過Internet，提供機(jī)票、火車票、公路局車票預(yù)約訂位的功能。
旅客透過Internet，連線上航空公司（鐵路局、公路局）的「線上機(jī)票車票訂位系統(tǒng)」，可以由電腦輸入班機(jī)、身分證號碼、日期，完成機(jī)票（火車票、公路局車票）訂位手續(xù)。
訂位系統(tǒng)將自動統(tǒng)計(jì)每一個班次的訂位人數(shù)，若超過名額，將自動告之，要求旅客訂位其他的班次。
訂位時，訂位系統(tǒng)提供可以增加、取消、查詢訂位的功能。
旅客可以線上查詢航空班機(jī)（火車票、公路局車票）時刻表。
費(fèi)用可由信用卡、劃撥、或銀行轉(zhuǎn)帳來支付。
設(shè)計(jì)實(shí)例
讓我們執(zhí)行一個實(shí)例。
( 范例 data11.asp 線上機(jī)票訂位
若要線上訂位機(jī)票，於用戶端使用瀏覽器，瀏覽本書所附安裝於網(wǎng)站伺服器的data11.asp，於「身分證字號」處輸入身分證字號如A123456789，於「搭機(jī)日期」處輸入搭機(jī)日期如870707，於「搭機(jī)班次」處輸入搭機(jī)班次如103後，按下「訂位」按鈕，即可顯示機(jī)票訂位的結(jié)果如下，包括身分證字號、搭機(jī)日期、搭機(jī)班次、定位順序∶ 
線上訂位機(jī)票時，若此班次已經(jīng)訂位過，則重覆訂位相同的班次將顯示「已經(jīng)訂過位」如下∶ 
線上訂位機(jī)票時，若超過訂位的300個名額時，則顯示「機(jī)位已滿」如下∶ 

取消訂位
線上訂位機(jī)票後，可以取消所訂位的記錄，於「身分證字號」處輸入身分證字號如A123456789，於「搭機(jī)日期」處輸入搭機(jī)日期如870707，於「搭機(jī)班次」處輸入搭機(jī)班次如103後，按下「取消訂位」按鈕，即可顯示取消訂位的結(jié)果如下∶ 
若待取消的班次尚未訂位過，則取消訂位時顯示「尚未訂位」如下∶ 

查詢訂位
線上訂位機(jī)票後，可以查詢所有訂位的記錄，僅須於「身分證字號」處輸入身分證字號如A123456789後，按下「查詢」按鈕，即可顯示查詢的結(jié)果如下∶ 
查詢訂位時，若尚未訂位，則查詢訂位將顯示「尚未訂位」如下∶ 

班機(jī)時刻表
按下「班機(jī)時刻表」按鈕，即可顯示查詢班機(jī)時刻表的結(jié)果如下∶ 

設(shè)計(jì)實(shí)例詳細(xì)解說
建立資料表
首先使用Microsoft Access、Microsoft SQL Server 、Text檔案、或任何一種支援ODBC的資料庫，建立一個資料表AirCount，儲存一個班次的預(yù)約訂位人數(shù)、和最後訂位順序號碼。
這個資料表系供訂位和取消訂位時，記錄一個班次的預(yù)約訂位人數(shù)、和最後訂位順序號碼之用。
建立欄位TOTAL、COUNT0、DATE0、FLIGHT，分別代表一個班次的預(yù)約訂位人數(shù)、最後訂位順序號碼、日期、班機(jī)。建立資料表時不必輸入資料。
使用Microsoft Access建立一個資料表AirCount，如下∶ 
或使用Microsoft SQL Server建立一個資料表AirCount，如下∶ 
或使用Text檔案建立一個資料表AirCount，如下∶ 
尚需要建立另一個資料表AirTicket，儲存預(yù)約訂位的記錄，建立欄位ID、COUNT0、DATE0、FLIGHT，分別代表一筆預(yù)約訂位記錄的身分證號碼、訂位順序號碼、日期、班機(jī)。
這個資料表系供訂位、查詢訂位、和取消訂位時，記錄一筆預(yù)約訂位記錄之用。建立資料表時不必輸入資料。
使用Microsoft Access建立一個資料表AirTicket，如下∶ 
或使用Microsoft SQL Server建立一個資料表AirTicket，如下∶ 
或使用Text檔案建立一個資料表AirTicket，如下∶ 

設(shè)計(jì)輸入的表單
接著，設(shè)計(jì)輸入的表單form，當(dāng)客戶輸入身分證字號ID1、搭機(jī)日期DATE1、搭機(jī)班次FLIGHT1，按下「訂位」等的按鈕submit時，即使用POST的方式將輸入資料傳送到網(wǎng)站伺服器，并執(zhí)行於「form action=...」所設(shè)定的data11.asp檔案（與form為同一個ASP檔案），程式碼如下∶
機(jī)票訂位, 請輸入:<br>
<form action="data11.asp" method="post"> 
<FONT COLOR="#FF8080">■ </FONT>身分證字號 (如A123456789): 
<INPUT TYPE=TEXT VALUE="A123456789" NAME="ID1" SIZE=10><BR>
<FONT COLOR="#FF8080">■ </FONT>搭機(jī)日期 (如87年7月1日請輸入870701): 
<INPUT TYPE=TEXT VALUE="870701" NAME="DATE1" SIZE=6><BR>
<FONT COLOR="#FF8080">■ </FONT></FONT>搭機(jī)班次 (如103): 
<INPUT TYPE=TEXT VALUE="103" NAME="FLIGHT1" SIZE=3><BR> 
<INPUT TYPE=submit VALUE="訂位" name="Action">
<INPUT TYPE=submit VALUE="取消訂位" name="Action"><br>
<INPUT TYPE=submit VALUE="查詢" name="Action"> 僅須填入身分證字號<br>
</form> 
<form>
<INPUT TYPE=button VALUE="班機(jī)時刻表" OnClick="location.href='data8.asp'">
</form>
若按下「班機(jī)時刻表」的按鈕時，執(zhí)行data8.asp，以查詢班機(jī)時刻表。
網(wǎng)站伺服器執(zhí)行data11.asp檔案，首先經(jīng)由Request.Form("Action")取得所按submit按鈕上的顯示文字VALUE，Left(Request.Form("Action"),2)系只取前兩個中文字，若Request.Form("Action")非空白時，表示為表單輸入所呼叫執(zhí)行。
由「SELECT CASE Left(Request.Form("Action"),2) 」判斷是按了那個按鈕。若按鈕上前兩個字為「訂位」時，則執(zhí)行AddTicket() 副程式；若為「取消」時，則執(zhí)行DeleteTicket() 副程式；若為「查詢」時，則執(zhí)行CheckTicket() 副程式。
<%
SELECT CASE Left(Request.Form("Action"),2)
CASE "訂位"
AddTicket()
CASE "取消"
DeleteTicket()
CASE "查詢"
CheckTicket()
END SELECT
%>
訂位
按了「訂位」按鈕時，將執(zhí)行AddTicket() 副程式。
首先，使用「Server.CreateObject」建立連線的物件，并使用「Open」開啟待存取查詢資料庫BookSamp。
再尋找所待新增的訂位記錄，以檢查是否已經(jīng)訂過位，使用SELECT的SQL指令查詢資料庫的資料，於AirTicket資料表，設(shè)定SQL指令，查詢身分證字號欄位ID符合所輸入Request.Form("ID1")，和欄位DATE0符合所輸入搭機(jī)日期Request.Form("DATE1")，及欄位FLIGHT符合所輸入搭機(jī)日期Request.Form("FLIGHT1")的資料，下個「Execute」指令，即可開始執(zhí)行存取查詢資料庫的動作，并將查詢結(jié)果儲存到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)
接著，要顯示執(zhí)行的結(jié)果了。
首先於AirTicket資料表，檢查是否已經(jīng)訂過位，由「IF RS.EOF THEN ...」判斷。若RS.EOF為TRUE，表示此客戶對於此班次尚未訂過位，再尋找是否所待訂位的班次已經(jīng)有人訂過位。於AirCount資料表，設(shè)定SQL指令，查詢欄位DATE0符合所輸入搭機(jī)日期Request.Form("DATE1")，及欄位FLIGHT符合所輸入搭機(jī)日期Request.Form("FLIGHT1")的資料。若RS.EOF為TRUE，表示此班次尚未有人訂位，則於AirCount資料表，使用「INSERT INTO...」指令新增一筆資料。此筆新增資料的訂位人數(shù)欄位TOTAL、和最後訂位順序號碼欄位COUNT0都設(shè)定為1，搭機(jī)日期欄位DATE0設(shè)定為Request.Form("DATE1")，及搭機(jī)日期欄位FLIGHT設(shè)定為Request.Form("FLIGHT1")。
然後再於AirTicket資料表，使用「INSERT INTO...」指令新增一筆資料。此筆新增資料的訂位順序號碼欄位COUNT0設(shè)定為1，身分證字號欄位ID設(shè)定為Request.Form("ID1")，搭機(jī)日期欄位DATE0設(shè)定為Request.Form("DATE1")，及搭機(jī)日期欄位FLIGHT設(shè)定為Request.Form("FLIGHT1")。
顯示執(zhí)行的結(jié)果時，配合<TABLE>表格的HTML語法，將結(jié)果填入表格的各欄位當(dāng)中。
程式碼，如下∶
<FONT COLOR="#0000FF">訂位結(jié)果:</FONT><br>
<% 
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) 
'AirTicket新增一筆
SQL = "INSERT INTO AirTicket(COUNT0, ID, DATE0, FLIGHT) VALUES(1,'" & Request.Form("ID1") & "','" & Request.Form("DATE1") & "','" & Request.Form("FLIGHT1") & "')" 
Set RS = Conn.Execute(SQL)
%>
<FONT COLOR="#0000FF">訂位 OK ! 訂位順序?yàn)榈?nbsp;1 號</FONT> 
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>身分證字號</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)班次</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>訂位順序</FONT></TD>
</TR> 
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("FLIGHT1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000">1</FONT></TD>
</TR> 
</TABLE>
若此班次已有人訂位，即RS.EOF為FALSE。由「IF RS(0) < 300 THEN...」判斷RS(0) 訂位人數(shù)TOTAL是否超過300個名額。
若未超過，則於AirCount資料表，使用「UPDATE...」指令，將此筆資料的訂位人數(shù)TOTAL、和最後訂位順序號碼COUNT0都加一。
然後，再於AirTicket資料表，使用「INSERT INTO...」指令新增一筆資料。此筆新增資料的訂位順序號碼欄位COUNT0為AirCount資料表的加一後之COUNT0新值，身分證字號欄位ID設(shè)定為Request.Form("ID1")，搭機(jī)日期欄位DATE0設(shè)定為Request.Form("DATE1")，及搭機(jī)日期欄位FLIGHT設(shè)定為Request.Form("FLIGHT1")。
接著，顯示執(zhí)行的結(jié)果時，配合<TABLE>表格的HTML語法，將於AirTicket資料表新增的資料，填入表格的各欄位當(dāng)中顯示出來。
程式碼，如下∶
<% ELSE 
IF RS(0) < 300 THEN 
'此班次已有人訂位 ! AirCount的COUNT0,TOTAL增一
TotalNo = RS(0)+1
CountNo = RS(1)+1 
SQL = "UPDATE AirCount SET TOTAL = " & TotalNo & ",COUNT0 = " & CountNo & " WHERE DATE0 = '" & Request.Form("DATE1") & "' AND FLIGHT = '" & Request.Form("FLIGHT1") & "'" 
Set RS = Conn.Execute(SQL) 
'AirTicket新增一筆
SQL = "INSERT INTO AirTicket(COUNT0, ID, DATE0, FLIGHT) VALUES(" & CountNo & ",'" & Request.Form("ID1") & "','" & Request.Form("DATE1") & "','" & Request.Form("FLIGHT1") & "')" 
Set RS = Conn.Execute(SQL)
%>
<FONT COLOR="#0000FF">訂位 OK ! 訂位順序?yàn)榈?nbsp;<% =CountNo %> 號</FONT>
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>身分證字號</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)班次</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>訂位順序</FONT></TD>
</TR> 
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("FLIGHT1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =CountNo %></FONT></TD>
</TR> 
</TABLE>
若此班次的訂位人數(shù)TOTAL超過300個名額時，則顯示「機(jī)位已滿 ! 請定其他班次 !」。
接著，顯示執(zhí)行的結(jié)果，配合<TABLE>表格的HTML語法，將身分證字號和搭機(jī)日期等輸入資料，填入表格的各欄位當(dāng)中顯示出來。
程式碼，如下∶
<% ELSE %>
<% '300機(jī)位已滿 %>
<FONT COLOR="#FF0000">報歉 !</FONT><br>
<FONT COLOR="#FF0000">機(jī)位已滿 ! 請定其他班次 !</FONT>
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>身分證字號</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)班次</FONT></TD>
</TR> 
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("FLIGHT1") %></FONT></TD>
</TR> 
</TABLE>
<% END IF %> 
<% END IF %>
當(dāng)於AirTicket資料表，由「IF RS.EOF THEN ...」判斷檢查是否已經(jīng)訂過位，。若RS.EOF為FALSE，表示此客戶對於此班次已經(jīng)訂過位，則顯示「報歉! 已經(jīng)訂過位 ! 訂位順序?yàn)榈?..號」。
接著，顯示執(zhí)行的結(jié)果，配合<TABLE>表格的HTML語法，將身分證字號、搭機(jī)日期、搭機(jī)班次、和訂位順序的資料，填入表格的各欄位當(dāng)中顯示出來。
程式碼，如下∶
<% ELSE %>
<% '已經(jīng)訂過位 %>
<FONT COLOR="#FF0000">報歉 !</FONT><br>
<FONT COLOR="#FF0000">已經(jīng)訂過位 !</FONT> 訂位順序?yàn)榈?nbsp;<% =RS(1) %> 號</FONT> 
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>身分證字號</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)班次</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>訂位順序</FONT></TD>
</TR>
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("FLIGHT1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =RS(1) %></FONT></TD>
</TR> 
</TABLE>
<% END IF 
Conn.Close
End Sub %>
最後，使用Conn.Close關(guān)閉資料庫。
取消訂位
按了「取消訂位」按鈕時，將執(zhí)行DeleteTicket() 副程式。
首先，先尋找到所待取消的訂位記錄，使用「Server.CreateObject」建立連線的物件，并使用「Open」開啟待存取查詢資料庫BookSamp。
再使用SELECT的SQL指令查詢資料庫的資料，於AirTicket資料表，設(shè)定SQL指令，查詢身分證字號欄位ID符合所輸入Request.Form("ID1")，和欄位DATE0符合所輸入搭機(jī)日期Request.Form("DATE1")，及欄位FLIGHT符合所輸入搭機(jī)日期Request.Form("FLIGHT1")的資料，下個「Execute」指令，即可開始執(zhí)行存取查詢資料庫的動作，并將查詢結(jié)果儲存到RecordSets物件RS。
由「IF RS.EOF THEN ...」判斷是否找到所待取消的訂位記錄，若RS.EOF為TRUE，表示此客戶對於此班次尚未訂位，則顯示「找不到 ! 尚未訂位 !」。
程式碼如下∶
<%
Sub DeleteTicket()
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)
%>
<HR>
<FONT COLOR="#0000FF">取消訂位結(jié)果:</FONT><br> 
<% 
IF RS.EOF THEN 
'找不到 ! 尚未訂位 ! 
%>
<FONT COLOR="#FF0000">找不到 ! 尚未訂位 !</FONT>
若找到所待取消的訂位記錄，則於AirTicket資料表，使用「DELETE FROM...」指令刪除此筆資料。
然後，再於AirCount資料表，使用「UPDATE...」指令，將此筆課程的選課人數(shù)TOTAL減一。
接著，顯示執(zhí)行的結(jié)果，配合<TABLE>表格的HTML語法，將於AirTicket資料表刪除的資料，填入表格的各欄位當(dāng)中，以顯示出來。
程式碼，如下∶
<% ELSE 
'取消已經(jīng)訂過位 ! 
'AirTicket刪除一筆
SQL = "DELETE FROM AirTicket WHERE ID = '" & Request.Form("ID1") & "' AND DATE0 = '" & Request.Form("DATE1") & "' AND FLIGHT = '" & Request.Form("FLIGHT1") & "'" 
Set RS = Conn.Execute(SQL) 
'AirCount的TOTAL減一
SQL = "SELECT * FROM AirCount WHERE DATE0 = '" & Request.Form("DATE1") & "' AND FLIGHT = '" & Request.Form("FLIGHT1") & "'" 
Set RS = Conn.Execute(SQL)
IF RS.EOF THEN
%>
<FONT COLOR="#FF0000">找不到訂位資料 !</FONT>
<% 
ELSE
TotalNo = RS(0)-1
SQL = "UPDATE AirCount SET TOTAL = " & TotalNo & " WHERE DATE0 = '" & Request.Form("DATE1") & "' AND FLIGHT = '" & Request.Form("FLIGHT1") & "'" 
Set RS = Conn.Execute(SQL)
%> 
<FONT COLOR="#FF0000">訂位已經(jīng)取消 !</FONT> 
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>身分證字號</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)班次</FONT></TD>
</TR> 
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("FLIGHT1") %></FONT></TD>
</TR> 
</TABLE> 
<% END IF 
END IF
Conn.Close
End Sub %>
最後，使用Conn.Close關(guān)閉資料庫。
查詢訂位
按了「查詢訂位」按鈕時，執(zhí)行CheckTicket() 副程式。
首先，先尋找到所待查詢的選課記錄，使用「Server.CreateObject」建立連線的物件，并使用「Open」開啟待存取查詢資料庫BookSamp。
再使用SELECT的SQL指令查詢資料庫的資料，於AirTicket資料表，設(shè)定SQL指令，查詢身分證字號欄位ID符合所輸入Request.Form("ID1")的資料，下個「Execute」指令，即可開始執(zhí)行存取查詢資料庫的動作，并將查詢結(jié)果儲存到RecordSets物件RS。
由「IF RS.EOF THEN ...」判斷是否找到所待查詢身分證字號的所有訂位記錄，若RS.EOF為TRUE，表示此客戶尚未訂位，則顯示「找不到 ! 尚未訂位 !」。
程式碼如下∶
<%
Sub CheckTicket()
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT ID,DATE0,FLIGHT,COUNT0 FROM AirTicket WHERE ID = '" & Request.Form("ID1") & "'"
Set RS = Conn.Execute(SQL)
%> 
<HR>
<FONT COLOR="#0000FF">查詢訂位結(jié)果:</FONT><br>
<% 
IF RS.EOF THEN 
'找不到 ! 尚未訂位 ! 
%>
<FONT COLOR="#FF0000">找不到 ! 尚未訂位 !</FONT>
若找到ID為身分證字號Request.Form("ID1")的資料，則顯示查詢的結(jié)果，包括身分證字號、搭機(jī)日期、搭機(jī)班次、訂位順序，分別由RecordSets物件的RS(0)、RS(1)、RS(2)取得。
RS.Fields.Count表示RecordSets物件的欄位數(shù)，由「For i = 0 to RS.Fields.Count - 1」取得RS(i) 各欄位的資料。配合<TABLE>表格的HTML語法，將結(jié)果填入表格的各欄位當(dāng)中。
若還有下一筆資料，使用RS.MoveNext移到下一筆的位置。
程式碼，如下∶
<% ELSE %>
<% '有訂過位 ! %>
<FONT COLOR="#0000ff">訂位如下:</FONT> 
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>身分證字號</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)班次</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><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
%>
</TABLE> 
<% END IF 
RS.Close
Conn.Close
End Sub %>
最後，使用RS.Close關(guān)閉RecordSet，使用Conn.Close關(guān)閉資料庫。
全部的程式碼，如下∶
<HTML>
<HEAD>
<TITLE>線上機(jī)票訂位系統(tǒng)</TITLE>
<META HTTP-EQUIV="content-type" CONTENT="text/html;charset=big5">
</HEAD> 
<BODY BGCOLOR=#FFFFFF>
<FONT SIZE=+2 COLOR="#0000FF">線上機(jī)票訂位系統(tǒng)</FONT>
<%
SELECT CASE Left(Request.Form("Action"),2) 
CASE "訂位"
AddTicket() 
CASE "取消"
DeleteTicket() 
CASE "查詢"
CheckTicket() 
END SELECT 
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)
%> 
<HR>
<FONT COLOR="#0000FF">訂位結(jié)果:</FONT><br> 
<% 
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(COUNT0, TOTAL, DATE0, FLIGHT) VALUES(1,1,'" & Request.Form("DATE1") & "','" & Request.Form("FLIGHT1") & "')"
Set RS = Conn.Execute(SQL) 
'AirTicket新增一筆
SQL = "INSERT INTO AirTicket(COUNT0, ID, DATE0, FLIGHT) VALUES(1,'" & Request.Form("ID1") & "','" & Request.Form("DATE1") & "','" & Request.Form("FLIGHT1") & "')"
Set RS = Conn.Execute(SQL)
%>
<FONT COLOR="#0000FF">訂位 OK ! 訂位順序?yàn)榈?nbsp;1 號</FONT>
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>身分證字號</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)班次</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>訂位順序</FONT></TD>
</TR> 
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("FLIGHT1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000">1</FONT></TD>
</TR> 
</TABLE> 
<% ELSE 
IF RS(0) < 300 THEN 
'此班次已有人訂位 ! AirCount的COUNT0,TOTAL增一
TotalNo = RS(0)+1
CountNo = RS(1)+1 
SQL = "UPDATE AirCount SET TOTAL = " & TotalNo & ",COUNT0 = " & CountNo & " WHERE DATE0 = '" & Request.Form("DATE1") & "' AND FLIGHT = '" & Request.Form("FLIGHT1") & "'" 
Set RS = Conn.Execute(SQL) 
'AirTicket新增一筆
SQL = "INSERT INTO AirTicket(COUNT0, ID, DATE0, FLIGHT) VALUES(" & CountNo & ",'" & Request.Form("ID1") & "','" & Request.Form("DATE1") & "','" & Request.Form("FLIGHT1") & "')" 
Set RS = Conn.Execute(SQL)
%>
<FONT COLOR="#0000FF">訂位 OK ! 訂位順序?yàn)榈?nbsp;<% =CountNo %> 號</FONT>
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>身分證字號</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)班次</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>訂位順序</FONT></TD>
</TR> 
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("FLIGHT1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =CountNo %></FONT></TD>
</TR> 
</TABLE> 
<% ELSE %>
<% '300機(jī)位已滿 %>
<FONT COLOR="#FF0000">報歉 !</FONT><br>
<FONT COLOR="#FF0000">機(jī)位已滿 ! 請定其他班次 !</FONT>
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>身分證字號</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)班次</FONT></TD>
</TR> 
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("FLIGHT1") %></FONT></TD>
</TR> 
</TABLE>
<% END IF %> 
<% END IF %> 
<% ELSE %>
<% '已經(jīng)訂過位 %>
<FONT COLOR="#FF0000">報歉 !</FONT><br>
<FONT COLOR="#FF0000">已經(jīng)訂過位 !</FONT> 訂位順序?yàn)榈?nbsp;<% =RS(1) %> 號</FONT>
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>身分證字號</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)班次</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>訂位順序</FONT></TD>
</TR> 
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("FLIGHT1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =RS(1) %></FONT></TD>
</TR> 
</TABLE>
<% END IF 
Conn.Close
End Sub %> 
<%
Sub DeleteTicket()
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)
%>
<HR>
<FONT COLOR="#0000FF">取消訂位結(jié)果:</FONT><br> 
<% 
IF RS.EOF THEN 
'找不到 ! 尚未訂位 ! 
%>
<FONT COLOR="#FF0000">找不到 ! 尚未訂位 !</FONT> 
<% ELSE '取消已經(jīng)訂過位 ! AirTicket刪除一筆
SQL = "DELETE FROM AirTicket WHERE ID = '" & Request.Form("ID1") & "' AND DATE0 = '" & Request.Form("DATE1") & "' AND FLIGHT = '" & Request.Form("FLIGHT1") & "'"
Set RS = Conn.Execute(SQL) 
'AirCount的TOTAL減一
'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
%>
<FONT COLOR="#FF0000">找不到訂位資料 !</FONT> 
<%
ELSE
TotalNo = RS(0)-1
SQL = "UPDATE AirCount SET TOTAL = " & TotalNo & " WHERE DATE0 = '" & Request.Form("DATE1") & "' AND FLIGHT = '" & Request.Form("FLIGHT1") & "'" 
Set RS = Conn.Execute(SQL)
%> 
<FONT COLOR="#FF0000">訂位已經(jīng)取消 !</FONT> 
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>身分證字號</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)班次</FONT></TD>
</TR> 
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("FLIGHT1") %></FONT></TD>
</TR> 
</TABLE> 
<% END IF 
END IF
Conn.Close
End Sub %> 
<%
Sub CheckTicket()
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa","" 
SQL = "SELECT ID,DATE0,FLIGHT,COUNT0 FROM AirTicket WHERE ID = '" & Request.Form("ID1") & "'"
Set RS = Conn.Execute(SQL)
%>
<HR>
<FONT COLOR="#0000FF">查詢訂位結(jié)果:</FONT><br>
<% 
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="#800000"><FONT>身分證字號</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>搭機(jī)班次</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><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
%>
</TABLE> 
<% END IF 
RS.Close
Conn.Close
End Sub %> 
<HR>
機(jī)票訂位, 請輸入:<br>
<form action="data11.asp" method="post"> 
<FONT COLOR="#FF8080">■ </FONT>身分證字號 (如A123456789): 
<INPUT TYPE=TEXT VALUE="A123456789" NAME="ID1" SIZE=10><BR>
<FONT COLOR="#FF8080">■ </FONT>搭機(jī)日期 (如87年7月1日請輸入870701): 
<INPUT TYPE=TEXT VALUE="870701" NAME="DATE1" SIZE=6><BR>
<FONT COLOR="#FF8080">■ </FONT></FONT>搭機(jī)班次 (如103): 
<INPUT TYPE=TEXT VALUE="103" NAME="FLIGHT1" SIZE=3><BR> 
<INPUT TYPE=submit VALUE="訂位" name="Action">
<INPUT TYPE=submit VALUE="取消訂位" name="Action"><br>
<INPUT TYPE=submit VALUE="查詢" name="Action"> 僅須填入身分證字號<br>
</form> 
<form>
<INPUT TYPE=button VALUE="班機(jī)時刻表" OnClick="location.href='data8.asp'">
</form> 
<HR>
</BODY></HTML>

3
其他運(yùn)輸旅游網(wǎng)站應(yīng)用
其他的運(yùn)輸旅游網(wǎng)站應(yīng)用，如下∶
旅行社線上查詢報名系統(tǒng)
「旅行社線上查詢報名系統(tǒng)」，可以透過Internet，提供旅游資訊、旅行團(tuán)報名的功能。
想旅游的人，透過Internet，連線上旅行社的「旅行社線上查詢報名系統(tǒng)」，可以查詢旅游促銷活動、旅游行程日期安排，或旅游地點(diǎn)的住宿旅館、飲食餐廳、天氣預(yù)告、娛樂地點(diǎn)圖文簡介等資訊。
可以由電腦輸入身分證號碼、參考旅行團(tuán)次，完成旅行團(tuán)報名手續(xù)。
已經(jīng)報名參加的人，可以查詢申請簽證的處里結(jié)果、旅游注意事項(xiàng)、天氣預(yù)告等資訊。
旅館線上查詢預(yù)約系統(tǒng)
「旅館線上查詢預(yù)約系統(tǒng)」，可以透過Internet，提供旅館住宿資訊、預(yù)約房間的功能。
想旅游住宿的人，透過Internet，連線上旅館的「旅館線上查詢預(yù)約系統(tǒng)」，可以查詢旅館住宿房間種類、房間圖片、住宿費(fèi)、促銷活動、旅館地址、交通工具、附近旅游地點(diǎn)的圖文簡介、飲食餐廳、天氣預(yù)告等資訊。
預(yù)約系統(tǒng)，并提供透過Internet預(yù)約房間的服務(wù)。在電腦輸入身分證號碼、預(yù)約日期、房間種類，即可完成旅館房間預(yù)約的手續(xù)。
預(yù)約時，預(yù)約系統(tǒng)提供可以增加、取消、查詢預(yù)約的功能。
住宿費(fèi)用可由信用卡、劃撥、或銀行轉(zhuǎn)帳來支付。
郵件運(yùn)送線上查詢預(yù)約系統(tǒng)
「郵件運(yùn)送線上查詢預(yù)約系統(tǒng)」，可以透過Internet，提供查詢運(yùn)送狀況、預(yù)約快遞的功能。
想查詢郵件運(yùn)送狀況的人，透過Internet，連線上郵局、快遞公司的「郵件運(yùn)送線上查詢預(yù)約系統(tǒng)」，在電腦輸入要查詢的郵件運(yùn)送號碼，即可查詢郵件運(yùn)送的狀況，是否已經(jīng)到達(dá)。
送達(dá)時將自動傳送E-Mail通知客戶。
「郵件運(yùn)送線上查詢預(yù)約系統(tǒng)」也可提供快遞預(yù)約的功能，客戶透過Internet，輸入要預(yù)約的取貨地點(diǎn)、運(yùn)送種類、取貨日期、寄送地點(diǎn)等，即可完成快遞預(yù)約的手續(xù)，通知來取貨。
預(yù)約時，預(yù)約系統(tǒng)提供可以增加、取消、查詢預(yù)約的功能。
送貨人員取貨、送達(dá)時，透過Internet，更新運(yùn)送的狀況。