計算機畢業(yè)論文---網(wǎng)上火車票售票系統(tǒng)

1、<p><b>　　網(wǎng)上火車票售票系統(tǒng)</b></p><p><b>　　摘 要</b></p><p>　　系統(tǒng)分為兩大模塊：用戶模塊和管理員模塊，細節(jié)分為注冊模塊、售票模塊和系統(tǒng)管理模塊。其中系統(tǒng)管理模塊是進行車次和用戶的添加、存儲和刪除，是系統(tǒng)運行的基礎；查詢子模塊實現(xiàn)了對車次信息的遠程查詢。登陸模塊是客戶端用戶通過自己的用

2、戶名以及密碼登陸系統(tǒng)，進入界面時由系統(tǒng)按照類別進入不同頁面，實現(xiàn)不同的功能。 </p><p>　　系統(tǒng)選用的開發(fā)軟件是ASP,后臺數(shù)據(jù)庫為ACCESS 2000。</p><p>　　關鍵字：售票 轉(zhuǎn)售 自動 系統(tǒng)  ASP SQL語句</p><p><b>　　Abstract</b></p>

3、<p>　　System is two big modules mark: Consumer module and administrative person module, detail the module and system manage a module mark for the logon module, sells ticket. That the system administration among the

4、m module is the addition carrying out motorcoach number and the consumer , stores and deletes, is a working basis of system; Long-range that the module has realized to motorcoach number information inquires about inquiry

5、 son. The landing module is that the customer holds a consumer passing s</p><p>　　Key words: Sell ticket Be resold Automation System ASP SQL sentence</p><p><b>　　引 言</b><

6、;/p><p>　　坐火車出行旅游已經(jīng)成為現(xiàn)代社會必不可少的事情，而每一次的出行都伴隨這火車站人山人海的景象還沒有出行心情就已經(jīng)損失了一半。更糟糕的事情是出行高峰期的時候往往買不到車票不能不讓人著急。隨著計算機技術的發(fā)展，人們對計算機智能化的需求越來越大，對軟件的實用性、速度等性能的要求也越來越高但是并不能避免系統(tǒng)出問題。這時候不論是對火車站還是出行的旅客都會造成極大的麻煩。但是火車站的發(fā)展趨勢是完全自動化的售票信息

7、查詢，網(wǎng)絡訂票,智能化訂票,而且隨著計算機的普及，信息處理量的逐漸擴大，手工處理方式已經(jīng)遠遠不能滿足人們管理活動的需要，各種工作都逐漸由手工轉(zhuǎn)為自動化，將使許多復雜、繁瑣、且需要很多人力的工作變得簡單。在本此畢業(yè)設計中，由于水平的關系，當然不可能做到這樣的程度，只不過是模擬用戶和售票員來操作的售票系統(tǒng)而已。</p><p>　　火車票售票管理是一件比較復雜但又非常重要的事情,它是涉及國家鐵路運輸?shù)恼９ぷ鳌窠?jīng)

8、濟的發(fā)展和人民生活水平質(zhì)量的大事情?；疖囀燮鄙婕暗皆S多內(nèi)容，有登陸用戶的賬號密碼問題，有乘客超載問題，有經(jīng)濟結(jié)算問題，有訂票管理問題。因此，本畢業(yè)設計就是專門解決這些問題的。但如上所述，由于鐵路火車票務管理的復雜性，本畢業(yè)設計與開發(fā)也僅是一個嘗試性的工作，但它很有啟發(fā)性，對于研究開發(fā)該類程序可以起一個拋磚引玉的作用。</p><p><b>　　目 錄</b></p><

9、;p><b>　　摘 要1</b></p><p>　　Abstract2</p><p><b>　　引 言3</b></p><p>　　一 網(wǎng)上火車站售票管理系統(tǒng)分析與設計5</p><p>　　1.1課題來源及意義5</p><p>　　1.2系統(tǒng)

10、功能需求簡介與開發(fā)工具的選擇5</p><p>　　1.3本文所做工作5</p><p><b>　　二 概論6</b></p><p>　　2.1 ACCESS 歷史6</p><p><b>　　2.2 特性6</b></p><p>　　2.3 SQL語言基礎

11、6</p><p>　　三 數(shù)據(jù)庫開發(fā)工具7</p><p><b>　　四 系統(tǒng)的設計8</b></p><p>　　4.1系統(tǒng)需求分析8</p><p>　　4.1.1開發(fā)的背景8</p><p>　　4.1.2 業(yè)務現(xiàn)狀8</p><p>　　4.1.3用

12、戶平臺要求8</p><p>　　4.2可行性研究9</p><p>　　4.2.1系統(tǒng)目標9</p><p>　　4.2.2存在的問題9</p><p>　　4.2.3建立新系統(tǒng)9</p><p><b>　　4.2.4結(jié)論9</b></p><p>　　4.

13、3 數(shù)據(jù)庫設計9</p><p>　　五 系統(tǒng)的實現(xiàn)11</p><p>　　5.1系統(tǒng)的登錄與退出11</p><p>　　5.2用戶管理12</p><p>　　5.2.1用戶管理模塊的功能介紹12</p><p>　　5.2.2 用戶管理模塊的實現(xiàn)12</p><p><

14、b>　　結(jié) 論25</b></p><p><b>　　參考文獻25</b></p><p>　　一 網(wǎng)上火車站售票管理系統(tǒng)分析與設計</p><p>　　1.1課題來源及意義</p><p>　　一個大型的計算機管理系統(tǒng)必須有一個正確的設計指導思想，通過合理的選擇數(shù)據(jù)結(jié)構(gòu)，操作系統(tǒng)以及開發(fā)環(huán)境，構(gòu)

15、成一個完善的網(wǎng)絡系統(tǒng)，才能充分發(fā)揮計算機信息管理優(yōu)勢?，F(xiàn)代化的車站售票是集預定車票、售票 、退票、車次查詢及其它各種服務，車站售票組織龐大，服務項目多，信息量大，要想提高勞動生產(chǎn)，降低成本，提高服務質(zhì)量和管理水平，進而促進經(jīng)濟效益，必須借助計算機來進行現(xiàn)代化的信息管理。</p><p>　　傳統(tǒng)手工的車站售票管理，管理過程繁瑣而復雜，執(zhí)行效率低，并且易于出錯。通過這樣的系統(tǒng)，我們可以做到信息的規(guī)范管理和快速查詢，

16、實現(xiàn)了車站售票管理的系統(tǒng)化、規(guī)范化和自動化，這樣不僅減少了管理工作量，還提高了管理效率，降低了管理成本。</p><p>　　1.2系統(tǒng)功能需求簡介與開發(fā)工具的選擇</p><p>　　一個完善的車站售票計算機管理信息系統(tǒng)應當包括系統(tǒng)應具有售票、查詢、管理和維護等功能，系統(tǒng)管理員可以進行對車次的更改、票價的變動及調(diào)度功能，票價的修改可以通過修改運價來進行，車次調(diào)度可通過對發(fā)車時刻表的修改來

17、進行，維護功能即可對表進行修改。設計從始至終貫穿著這樣的原則：</p><p>　　1．以用戶需求為目標，以方便用戶為原則，系統(tǒng)將在統(tǒng)一的WINDOWS 操作系統(tǒng)圖形界面下提供各種實用功能，盡可能降低使用前的學習、實施和使用中的維護時間。</p><p>　　2．不同于手工的操作，直觀的圖形用戶界面，美觀、友好、只需點選簡單易用：所有菜單，窗口，操作方式均為win98風格。操作方便，充分考

18、慮前臺操作人員操作條件及習慣，有良好的易用性。</p><p>　　3．利用簡單易操作的開發(fā)工具ASP語言, 既可使用ACCESS,FOXPRO等中小型數(shù)據(jù)庫，又使其支持SQL SERVER，SYBASE，ORACLE,DB2等各種大型數(shù)據(jù)庫。</p><p><b>　　1.3本文所做工作</b></p><p>　　1. 盡可能的簡單化操作

19、，只需簡單的輸入與點選用戶就能完成查詢，購票，轉(zhuǎn)售車票和退票。</p><p>　　2. 管理員只需登陸查看就可已查看售票的記錄并且知道車票的途徑和出售狀況。</p><p>　　3. 對車次的修改和添加工作簡單易行可視化用戶管理直觀簡介。</p><p>　　4. 用戶實名登記降低囤積車票的可能，管理員可以隨時查看并找到用戶資料。</p><p

20、><b>　　二 概論</b></p><p>　　2.1 ACCESS 歷史</p><p>　　Microsoft Access 1.0 版本在1992年11月發(fā)布。微軟指定它對系統(tǒng)最小要求為視窗3.0配以4兆節(jié)內(nèi)存．6兆節(jié)內(nèi)存配以最小8兆節(jié)硬盤空間（建議最好有14兆節(jié)硬盤空間）則為建議的系統(tǒng)要求．當時軟件以7張1.44兆節(jié)軟碟發(fā)布的載體．</p>

21、;<p><b>　　2.2 特性</b></p><p>　　一好處進入從程序員視角在它的有關兼容性有SQL-質(zhì)問可能被觀看并且作為SQL語句編輯，并且SQL語句直接在巨視和VBA模里可以被使用操作進入桌子。用戶可能混合并且使用兩個VBA并且"宏"編程形式和邏輯既沒提供面向?qū)ο蟮目赡苄浴?lt;/p><p>　　導入導出報表的生成程序，

22、當時有能力和到這項任務的復雜報告創(chuàng)造，沒有另一受歡迎數(shù)據(jù)庫報表程序的生成程序充滿特色和強有力-水晶報告。MSDE(微軟公司SQL服務器桌面發(fā)動機)2000，袖珍版本的MSSQL服務器2000，被包括開發(fā)版的辦公室XP并且被用于進入可能作為除之外的另一種選擇JET數(shù)據(jù)庫引擎。(盡快的*版本的MSDE和微軟公司交換服務器實際上使用這臺噴氣發(fā)動機處理巨大大量數(shù)據(jù)并且安置一“贗品”在它之上的那些應用的應用層。大約這事實的缺乏知識因進入/噴口家庭

23、的軟件產(chǎn)品而為不該受不敬做貢獻，特別是關于"大"工程。)</p><p>　　進入分割和粘貼功能性能使它有用工具在其它數(shù)據(jù)庫之間連結(jié)(例如，在數(shù)據(jù)或者數(shù)據(jù)庫變換期間的Oracle和微軟公司SQL服務器)。進入與給與窗子和其它平臺應用一起的積分的各種各樣進口和退場門特征一起來，一經(jīng)請求從應用的里面或者手工由用戶其中幾可以被執(zhí)行。例如非常緊密SNP完全格式化的為分享的形式與沒有全部的進入軟件的人們

24、報告。它也能容易被升級到微軟公司SQL服務器。</p><p>　　與一般的RDBMS完全不同，它缺乏數(shù)據(jù)庫觸發(fā)和預存程序。自從MS Access 2000 (Jet 4.0)，開發(fā)人員可以在查詢中設定參數(shù)，這跟預存程序很相似的，但這些“預存程序”只能處理一個程序．當資料表內(nèi)數(shù)據(jù)發(fā)生變化時，它確實允許形式包含被引發(fā)的代碼，使用是普通的透過查詢和其它技術在進入營運儲存的程序在方面RDBMS支持這些的。</p&

25、gt;<p>　　2.3 SQL語言基礎</p><p>　　SQL:Structured Query Language,1974年Boyce和Chamberlin提出：</p><p>　　數(shù)據(jù)定義 :CREATE,DROP</p><p>　　數(shù)據(jù)庫查詢:SELECT</p><p>　　數(shù)據(jù)操縱 :INSERT,UPDAT

26、E,DELETE</p><p>　　數(shù)據(jù)控制 :GRANT,REVOKE</p><p><b>　　三 數(shù)據(jù)庫開發(fā)工具</b></p><p>　　ASP是Active Server Page的縮寫，意為“動態(tài)服務器頁面”。ASP是微軟公司開發(fā)的代替CGI腳本程序的一種應用,它可以與數(shù)據(jù)庫和其它程序進行交互，是一種簡單、方便的編程工具。AS

27、P的網(wǎng)頁文件的格式是.asp，現(xiàn)在常用于各種動態(tài)網(wǎng)站中。 ASP是一種服務器端腳本編寫環(huán)境，可以用來創(chuàng)建和運行動態(tài)網(wǎng)頁或Web應用程序。ASP網(wǎng)頁可以包含HTML標記、普通文本、腳本命令以及COM組件等。利用ASP可以向網(wǎng)頁中添加交互式內(nèi)容（如在線表單），也可以創(chuàng)建使用HTML網(wǎng)頁作為用戶界面的web應用程序。</p><p>　　ASP( Application Service Provider,應用軟體租賃服

28、務提供者 )即是指「透過網(wǎng)路以租賃方式提供應用軟體服務的業(yè)者」,即是指業(yè)者以應用軟體為主體,透過網(wǎng)路一對多地傳遞服務,這種以服務為主的交易模式促使企業(yè)可藉由租賃的方式,以更符合成本效益的方式擁有軟體的使用權(quán),并且亦能因為業(yè)者集中式的管理而大幅降低企業(yè)維護的成本。</p><p>　　基本上,ASP即具有「軟體服務化,服務網(wǎng)路化」,「資訊委外服務與網(wǎng)路結(jié)合」與「產(chǎn)品通路化,通路產(chǎn)品化」等三大特性,其甚至可以被視為是

29、ISP（Internet Service Provider）與ITS（Information Technology Service）的結(jié)合，根據(jù)流行的觀點，ASP有如下五個核心內(nèi)涵： </p><p>　　a. ASP著重應用為中心，提供對于應用方面的訪問和管理。 </p><p>　　b. ASP服務可以為用戶提供沒有在服務器、人員、系統(tǒng)和系統(tǒng)授權(quán)等前期資源投入情況下就可以在“定制”的全

30、新應用系統(tǒng)環(huán)境進行訪問的服務，如ISP，而這樣的服務一般按月份ASP收取服務費。 </p><p>　　c. ASP采用集中管理的方式---ASP一般都有一個管理中心，所有的客戶通過INTERNET來進行遠程訪問，獲得技術支持和咨詢服務。 </p><p>　　d. 一對多的服務，也就是講，ASP提供的是標準化的產(chǎn)品包，產(chǎn)品都是最低程度的自定義或者沒有實現(xiàn)客戶定制化，對于行業(yè)用戶來講已經(jīng)達

31、到實用方便的標準。 </p><p>　　e. 按照合同交付，在ASP客戶的眼中，ASP是一家根據(jù)客戶協(xié)議內(nèi)容提供相關服務，保證應用服務系統(tǒng)服務可以得到確實履行的機構(gòu)。</p><p><b>　　四 系統(tǒng)的設計</b></p><p><b>　　4.1系統(tǒng)需求分析</b></p><p>　　4

32、.1.1開發(fā)的背景</p><p>　　網(wǎng)上火車站售票管理系統(tǒng)是針對當前買票難的問題而研發(fā)的，同在火車站買票的方式一樣但是基于網(wǎng)絡技術他將變的更加簡單快捷。隨著因特網(wǎng)發(fā)展的日新月異，人們利用網(wǎng)絡來</p><p>　　實現(xiàn)相互之間的協(xié)同工作以及資源共享越來越成為時代的潮流，一個不可扭轉(zhuǎn)的趨勢。目前，因特網(wǎng)已經(jīng)深入到我們生活的各個領域——學校，銀行，醫(yī)院，公司，企業(yè)等等。因此，我們在這里用因

33、特網(wǎng)來實現(xiàn)網(wǎng)上火車站售票管理更是順應了時代發(fā)展的方向。</p><p>　　這個系統(tǒng)主要是面向大眾，他們的想法只是想容易的買到自己想要的車票，而管理員這只是對其進行管理。要做到這一點首先應當了解大眾的需求與他們的操作能力。系統(tǒng)的開發(fā)過程基于ASP簡單直觀。整個實現(xiàn)時間約1個月。</p><p>　　4.1.2 業(yè)務現(xiàn)狀</p><p>　　系統(tǒng)的業(yè)務流程如下：<

34、;/p><p>　　4.1.3用戶平臺要求</p><p>　　火車站網(wǎng)上售票系統(tǒng)的實現(xiàn)需要服務器端和客戶端。因此服務器端需要安裝win2000 server或是其它的服務器操作系統(tǒng)和DBMS的支持。對客戶端沒有什么特別的需求，一般的win 98 即可。</p><p><b>　　4.2可行性研究</b></p><p>

35、　　4.2.1系統(tǒng)目標 </p><p>　　開發(fā)一個火車售票系統(tǒng)，實現(xiàn)對火車售票自動化,輕松方便大家的交通運輸。用戶可以在任何一個站點購買任何兩站間的火車票,可以大大減輕買票的煩索步驟,同時也可以訂票。</p><p>　　4.2.2存在的問題</p><p>　　范圍太大，開發(fā)人數(shù)太少，開發(fā)人員技術有限。</p><p>　　4.2.3建

36、立新系統(tǒng)</p><p>　　根據(jù)系統(tǒng)的長期目標，以及現(xiàn)行系統(tǒng)存在的主要問題，建立系統(tǒng)可分以下幾步實現(xiàn)。</p><p>　　（1）對新系統(tǒng)實現(xiàn)的硬件條件</p><p>　　顯然該系統(tǒng)只是一個軟件系統(tǒng),它若要真正放于現(xiàn)實,則尚須相應的硬件支持,如打印機等。</p><p>　　（2）新系統(tǒng)可能產(chǎn)生的影響</p><p&g

37、t;　　要對火車站售票工作人員進行此系統(tǒng)軟件的使用，使其逐步適應計算機化的要求。</p><p><b>　　（3）效益分析</b></p><p>　　該系統(tǒng)提高了大家買票的方便度,全國各地的客戶可以在任何火車站購買到任何兩地間的火車票,方便了大家的生活。</p><p><b>　　4.2.4結(jié)論</b></p&

38、gt;<p>　　由于該系統(tǒng)在國內(nèi)外是一個技術上成熟的系統(tǒng)，并且有工程技術方面的保證，以及負責人采取的積極態(tài)度，因此該系統(tǒng)是可行的。</p><p><b>　　4.3 數(shù)據(jù)庫設計</b></p><p>　　數(shù)據(jù)庫中一共設有5個表包括，用戶表，列車表，列車座位表，用戶購票表，充值表。詳細結(jié)構(gòu)如下：</p><p><b&g

39、t;　　ER圖設計：</b></p><p><b>　　用戶</b></p><p><b>　　結(jié)果</b></p><p><b>　　五 系統(tǒng)的實現(xiàn)</b></p><p>　　5.1系統(tǒng)的登錄與退出</p><p>　　系統(tǒng)的登陸

40、中只要輸入正確的用戶名和密碼再與數(shù)據(jù)庫表里的值進行對比，如果一致則登陸成功進行跳轉(zhuǎn)，推出則只需用一個鏈接即可。登陸有兩種類型用SELECT CASE 控制。具體效果及代碼如下：</p><p>　　<!--#include file="conn.asp"--></p><p><b>　　<%</b></p><

41、;p>　　dim yhm,mm,dx</p><p>　　yhm=Trim(request.Form("yhm"))</p><p>　　mm=Trim(request.Form("mm"))</p><p>　　dx=Trim(request.Form("sd"))</p><p

42、>　　Session("yhm")=yhm</p><p>　　select case dx</p><p><b>　　case "用戶"</b></p><p>　　set rs=server.CreateObject("ADODB.Recordset")</p>

43、<p>　　rs.open "select * from yhb where yhm='"&yhm&"'",conn,1,1</p><p>　　if not(rs.eof and rs.bof) then</p><p>　　if yhm=rs("yhm") and mm=rs(&

44、quot;mm") then</p><p>　　response.Redirect "index.asp"</p><p><b>　　else</b></p><p>　　response.Redirect "dlcw.asp"</p><p><b>　

45、　end if</b></p><p><b>　　else</b></p><p>　　response.Redirect "dlcw.asp"</p><p><b>　　end if</b></p><p>　　case "管理員"<

46、/p><p>　　set rs=server.CreateObject("ADODB.Recordset")</p><p>　　rs.open "select * from yhb where yhm='"&yhm&"'",conn,1,1</p><p>　　if not(

47、rs.eof and rs.bof) then</p><p>　　if yhm=rs("yhm") and mm=rs("mm") and rs(10)="gly" then</p><p>　　response.Redirect "glyym.asp"</p><p><b&g

48、t;　　else</b></p><p>　　response.Redirect "dlcw.asp"</p><p><b>　　end if</b></p><p><b>　　else</b></p><p>　　response.Redirect &quo

49、t;dlcw.asp"</p><p><b>　　end if</b></p><p>　　end select</p><p><b>　　%></b></p><p>　　<!--#include file="close.asp"--></

50、p><p><b>　　5.2用戶管理</b></p><p>　　5.2.1用戶管理模塊的功能介紹</p><p>　　在用戶登陸后有多種選項顯示方式以左右框架顯示。用戶可用操作有：列車車次查詢，車站查詢，列車站到站查詢，買票，買票記錄，充值，查看他人售票，賣票，買票記錄，轉(zhuǎn)售車票，取消轉(zhuǎn)售，退票，返回首頁。如下圖：</p><

51、;p>　　5.2.2 用戶管理模塊的實現(xiàn)</p><p><b>　　1.列車車次查詢：</b></p><p>　　在這項查詢中需要用戶輸入要查詢的車次，然后對輸入的值進行檢索并輸入記錄，具體實現(xiàn)過程如下：</p><p>　　<p>以下是您查詢的信息： 若下方為空，則說明您查詢的列車不在查詢范圍內(nèi)！?。?lt;/p>

52、</p><p>　　<!--#include file="conn.asp"--></p><p><b>　　<table></b></p><p><b>　　<%</b></p><p><b>　　dim lcm</b>

53、;</p><p>　　lcm=Trim(request.Form("cc"))</p><p>　　set rs1=server.CreateObject("ADODB.Recordset")</p><p>　　rs1.open "select * from lcb where lcm like '&qu

54、ot;&lcm&"%' or lcm like '%"&lcm&"'",conn,1,1</p><p><b>　　%></b></p><p><b>　　<tr></b></p><p>　　<td

55、 rowspan="3" align="center"><img src="../image/天使.gif" width="58" height="64" /></td></p><p>　　<td align="center">列車名</td&g

56、t;</p><p>　　<td align="center">列車類型</td></p><p>　　<td align="center">始發(fā)站</td></p><p>　　<td align="center">終點站</td>&

57、lt;/p><p><b>　　</tr></b></p><p><b>　　<tr></b></p><p>　　<td>&nbsp;</td></p><p>　　<td>&nbsp;</td></p&g

58、t;<p>　　<td>&nbsp;</td></p><p>　　<td>&nbsp;</td></p><p><b>　　</tr></b></p><p><b>　　<tr></b></p><

59、;p>　　<td align="center"><%=rs1(1)%></td></p><p>　　<td align="center"><%=rs1(2)%></td></p><p>　　<td align="center"><f

60、ont size="+1" color="#FF0000"><%=rs1(3)%></td></p><p>　　<td align="center"><font size="+1" color="#FF0000"><%=rs1(4)%></t

61、d></p><p><b>　　</tr></b></p><p><b>　　</table></b></p><p>　　<p>&nbsp;</p></p><p>　　<table width="97%"

62、 border="1" align="center" cellpadding="5" cellspacing="5" bordercolor="#000000" bgcolor="#FFFFFF"></p><p><b>　　<tr></b></p

63、><p>　　<td align="center">到達站</td></p><p>　　<td align="center">到達時間</td></p><p>　　<td align="center">發(fā)車時間</td></p&g

64、t;<p>　　<td align="center">停車時間</td></p><p>　　<td align="center">運行時間</td></p><p>　　<td align="center">運行里程</td></p>

65、;<p>　　<td align="center">硬座/軟座</td></p><p>　　<td align="center">硬臥(上/中/下)</td></p><p>　　<td align="center">軟臥(上/下)</td>&

66、lt;/p><p><b>　　</tr></b></p><p><b>　　<%</b></p><p>　　set rs=server.CreateObject("ADODB.Recordset")</p><p>　　rs.open "select

67、 * from lcb where lcm like '"&lcm&"%' or lcm like '%"&lcm&"'",conn,1,1</p><p>　　do while not rs.eof</p><p><b>　　%></b><

68、/p><p><b>　　<tr></b></p><p>　　<td align="center"><%=rs(5)%></td><td align="center"><%=rs(6)%></td><td align="center

69、"><%=rs(7)%></td><td align="center"><%=rs(8)%></td><td align="center"><%=rs(9)%></td><td align="center"><%=rs(10)%></td

70、></p><p>　　<td align="center"><%=rs(11)%>/<%=rs(12)%></td><td align="center"><%=rs(13)%>/<%=rs(14)%>/<%=rs(15)%></td><td align=

71、"center"><%=rs(16)%>/<%=rs(17)%></td></p><p><b>　　</tr></b></p><p><b>　　<%</b></p><p>　　rs.movenext</p><p&

72、gt;<b>　　loop</b></p><p>　　set rs=nothing</p><p><b>　　%></b></p><p><b>　　</table></b></p><p><b>　　<p></b>&

73、lt;/p><p>　　<!--#include file="close.asp"--></p><p><b>　　</p></b></p><p>　　<p>&nbsp;</p></p><p>　　<p>-----＞＞＞<a

74、href="cccx.asp">返回查詢頁</a></p></p><p>　　<table width="100%" border="0" background="../image/shuipingxian.gif"></p><p><b>　　<t

75、r></b></p><p>　　<td>&nbsp;</td></p><p><b>　　</tr></b></p><p><b>　　</table></b></p><p>　　<p>&nbsp;

76、</p></p><p><b>　　2.車站查詢</b></p><p>　　列車車站查詢和車次查詢類同都是需要用戶輸入再對表中檢索，但是到達這個車站的列車有很多所以需要一個查看明細的頁面，明細頁面只需接受一個編號傳值顯示與當前記錄相關的記錄即可。由于車站查詢和車次查詢?nèi)绯鲆晦H這里就不做介紹了。</p><p><b>

77、　　3.列車站到站查詢</b></p><p>　　列車站到站查詢需要對兩個值進行檢索，同樣需要明細頁查看具體的列車走向。具體實現(xiàn)如下：</p><p>　　<p>以下是您查詢的信息： 若下方為空，則說明您查詢的列車不在查詢范圍內(nèi)?。?！</p></p><p>　　<!--#include file="conn.a

78、sp"--></p><p>　　<table width="97%" border="1" align="center" cellpadding="5" cellspacing="10" bordercolor="#000000" bgcolor="#FFFFF

79、F"></p><p><b>　　<tr></b></p><p>　　<td align="center">列車名</td></p><p>　　<td align="center">列車類型</td></p>

80、<p>　　<td align="center">始發(fā)站</td></p><p>　　<td align="center">終點站</td></p><p>　　<td align="center">經(jīng)過站1</td></p><

81、;p>　　<td align="center">經(jīng)過站2</td></p><p>　　<td align="center">到達時間</td></p><p>　　<td align="center">發(fā)車時間</td></p><

82、p>　　<td align="center">硬座/軟座</td></p><p>　　<td align="center">硬臥（上/中/下）</td></p><p>　　<td align="center">軟臥（上/下）</td></p&g

83、t;<p>　　<td align="center">查看</td></p><p><b>　　</tr></b></p><p><b>　　<%</b></p><p><b>　　dim z1,z2</b></p

84、><p>　　z1=Trim(request.Form("z1"))</p><p>　　z2=Trim(request.Form("z2"))</p><p>　　set rs=conn.execute("select * from lcb where cz='"&z1&"

85、' ")</p><p>　　set rs1=conn.execute("select * from lcb where cz='"&z2&"' ")</p><p>　　do while not rs1.eof </p><p><b>　　%></b&

86、gt;</p><p><b>　　<tr></b></p><p>　　<tdalign="center"><%=rs1(1)%></td><td align="center"><%=rs1(2)%></td><td align=&quo

87、t;center"><%=rs1(3)%></td><td align="center"><%=rs1(4)%></td><tdalign="center"><fontcolor="#FF0000"><%=rs(5)%></td><tdalign=&

88、quot;center"><font color="#FF0000"><%=rs1(5)%></td><td align="center"><%=rs1(6)%></td><td align="center"><%=rs1(7)%></td><td

89、align="center"><%=rs1(11)%>/<%=rs1(12)%></td><td align="center"><%=rs1(13)%>/<%=rs1(14)%>/<%=rs1(15)%></td><td align="center"><%=r

90、s1(16)%>/<%=rs1(17)%></td><td align="center"><a</p><p><b>　　</tr></b></p><p><b>　　<%</b></p><p>　　rs1.movenext<

91、/p><p><b>　　loop</b></p><p>　　set rs=nothing</p><p><b>　　%></b></p><p><b>　　</table></b></p><p><b>　　<p&

92、gt;</b></p><p>　　<!--#include file="close.asp"--></p><p><b>　　</p></b></p><p>　　<p>&nbsp;</p></p><p>　　<p>

93、-----＞＞＞<a href="zzcx.asp">返回查詢頁</a></p></p><p><b>　　4.買票功能</b></p><p>　　用戶買票可以說是他來到這的目的了，他要買票需要填寫他的信息而有些記錄這不用填寫，因為是實名登記所以用戶名和他的身份證就不需要填寫。直接從表記錄中調(diào)出來就可以了效果

94、如圖：</p><p>　　用戶填寫完成信息以后就是買票的過程操作了。過程中我們要考慮很多問題如是否有車票，有幾節(jié)車廂，每節(jié)車廂有幾個座位，如何知道這節(jié)車廂已經(jīng)滿員，怎樣扣除用戶金額并更新等等。只有我們考慮的到位才不會出錯這里只對硬座車票的實現(xiàn)給出代碼其它類同。實現(xiàn)如下：</p><p>　　dim cz,cc,sfz,cplx,n,ye,y,r,d,rq,wl,zw,lxfs,i<

95、/p><p>　　cz=Trim(request.Form("cz"))</p><p>　　cc=Trim(request.Form("cc"))</p><p>　　sfz=Trim(request.Form("sfz"))</p><p>　　cplx=Trim(request.F

96、orm("cplx"))</p><p>　　lxfs=Trim(request.Form("lxfs"))</p><p>　　n=Trim(request.Form("n"))</p><p>　　y=Trim(request.Form("y"))</p><p&

97、gt;　　r=Trim(request.Form("r"))</p><p><b>　　rq=n&y&r</b></p><p>　　if cdate(rq)<date() or r>31 then</p><p>　　response.Redirect "xianssb1.asp&q

98、uot;</p><p><b>　　else</b></p><p>　　set rs=conn.execute("select * from yhb where yhm='"&Session("yhm")&"'")</p><p>　　setrs1

99、=conn.execute("select * from lcb where lcm like '%"&cc&"%' and cz='"&cz&"'")</p><p>　　if rs1.bof and rs1.eof then</p><p>　　response.

100、Redirect "xianssb1.asp"</p><p><b>　　else</b></p><p>　　if rs(8)>rs1(11) then</p><p>　　set rs4=server.CreateObject("ADODB.Recordset")</p

101、><p>　　rs4.open "select * from lczb where lcm='"&rs1(1)&"'",conn,3,3</p><p>　　if rs4(4)-1>1 then'檢查是否有剩余車廂</p><p>　　if rs4(5)+1>rs4(3)

102、then'檢查是否有剩余座位</p><p>　　rs4(4)=rs4(4)-1</p><p>　　rs4(5)=1</p><p>　　ye=rs(8)-rs1(11)'更新余額</p><p>　　set rs3=server.CreateObject("ADODB.Recordset&q

103、uot;)'進行買票記錄</p><p>　　rs3.open "select * from yhzl ",conn,3,3</p><p>　　rs3.addnew </p><p>　　rs3("yhm")=rs(1)</p><p>　　rs3("ye")=ye

104、 </p><p>　　rs3("mpjl")=rs3("mpjl")+1</p><p>　　rs3("ccm")=cc</p><p>　　rs3("kcsj")=rs1(6)</p><p>　　rs3("cprq")=n&

105、"年"&y&"月"&r&"日"</p><p>　　rs3("xm")=rs(5)</p><p>　　rs3("sfz")=rs(6)</p><p>　　rs3("lxfs")=lxfs</p>&

106、lt;p>　　rs3("cpfx")=rs1(3)&"-"&cz</p><p>　　rs3("zw")=rs4(4)&"車"&rs4(5)&"號 硬座"</p><p>　　rs3("gprq")=date()</p&

107、gt;<p>　　rs3("gpyh")="網(wǎng)絡"</p><p>　　rs3("zt")=0</p><p>　　rs3.update</p><p><b>　　rs3.close</b></p><p>　　set rs3=nothing&l

108、t;/p><p>　　set rs4=conn.execute("update lczb set sscj="&rs4(4)&",sscz="&rs4(5)&" where lcm='"&rs1(1)&"'")'更新列車數(shù)據(jù)</p><p>

109、;　　set rs=conn.execute("update yhb set zhye="&ye&" where yhm='"&Session("yhm")&"'")'更新用戶數(shù)據(jù)</p><p>　　response.Redirect "xianscg.asp&

110、quot;</p><p><b>　　else </b></p><p>　　ye=rs(8)-rs1(11)</p><p>　　rs4(5)=rs4(5)+1</p><p>　　set rs3=server.CreateObject("ADODB.Recordset")'進行買票記

111、錄</p><p>　　rs3.open "select * from yhzl ",conn,3,3</p><p>　　rs3.addnew </p><p>　　rs3("yhm")=rs(1)</p><p>　　rs3("ye")=ye</p><p&g

112、t;　　rs3("mpjl")=rs3("mpjl")+1</p><p>　　rs3("ccm")=cc</p><p>　　rs3("kcsj")=rs1(6)</p><p>　　rs3("cprq")=n&"年"&y&

113、;"月"&r&"日"</p><p>　　rs3("xm")=rs(5)</p><p>　　rs3("sfz")=rs(6)</p><p>　　rs3("lxfs")=lxfs rs3("cpfx&q

114、uot;)=rs1(3)&"-"&cz</p><p>　　rs3("zw")=rs4(4)&"車"&rs4(5)&"號 硬座"</p><p>　　rs3("gprq")=date()</p><p>　　rs3("

115、gpyh")="網(wǎng)絡"</p><p>　　rs3("zt")=0</p><p>　　rs3.update</p><p><b>　　rs3.close</b></p><p>　　set rs3=nothing</p><p>　　set r

116、s4=conn.execute("update lczb set sscz="&rs4(5)&" where lcm='"&rs1(1)&"'")'更新列車數(shù)據(jù)</p><p>　　set rs=conn.execute("update yhb set zhye="&

117、;ye&" where yhm='"&Session("yhm")&"'")'更新用戶數(shù)據(jù)response.Redirect "xianscg.asp"</p><p><b>　　end if</b></p><p&g

118、t;<b>　　else</b></p><p>　　set rs4=server.CreateObject("ADODB.Recordset")</p><p>　　rs4.open "select * from lczb where lcm='"&rs1(1)&"'",co

119、nn,3,3</p><p>　　if rs4(5)+1<rs4(3) then</p><p>　　rs4(5)=rs4(5)+1</p><p>　　ye=rs(8)-rs1(11)</p><p>　　set rs3=server.CreateObject("ADODB.Recordset")'進

120、行買票記錄</p><p>　　rs3.open "select * from yhzl ",conn,3,3</p><p>　　rs3.addnew </p><p>　　rs3("yhm")=rs(1)</p><p>　　rs3("ye")=ye</p><

121、;p>　　rs3("mpjl")=rs3("mpjl")+1</p><p>　　rs3("ccm")=cc</p><p>　　rs3("kcsj")=rs1(6)</p><p>　　rs3("cprq")=n&"年"&y

122、&"月"&r&"日"</p><p>　　rs3("xm")=rs(5)</p><p>　　rs3("sfz")=rs(6)</p><p>　　rs3("lxfs")=lxfs rs3("cp

123、fx")=rs1(3)&"-"&cz</p><p>　　rs3("zw")=rs4(4)&"車"&rs4(5)&"號 硬座"</p><p>　　rs3("gprq")=date()</p><p>　　rs3(&q

124、uot;gpyh")="網(wǎng)絡"</p><p>　　rs3("zt")=0</p><p>　　rs3.update</p><p><b>　　rs3.close</b></p><p>　　set rs3=nothing</p><p>　　s

125、et rs4=conn.execute("update lczb set sscz="&rs4(5)&" where lcm='"&rs1(1)&"'")'更新列車數(shù)據(jù)</p><p>　　set rs=conn.execute("update yhb set zhye="

126、&ye&" where yhm='"&Session("yhm")&"'")'更新用戶數(shù)據(jù)</p><p>　　response.Redirect "xianscg.asp"</p><p><b>　　else</b><

127、;/p><p>　　response.Redirect "xianssb.asp"</p><p><b>　　end if</b></p><p><b>　　end if</b></p><p>　　response.Redirect "xianssb.asp"

128、;</p><p><b>　　else </b></p><p>　　response.Redirect "xianssb.asp"</p><p><b>　　end if</b></p><p><b>　　5.買票記錄</b></p>

129、<p>　　買票記錄是記錄用戶在一定時間內(nèi)的購票操作，這對用戶和管理員同樣重要。用戶心知肚明把錢花在明處，管理用明察秋毫知道是否有非法操作，這項功能非常簡單只要顯示記錄即可就不多說了。</p><p><b>　　6.充值</b></p><p>　　用戶需要買票當然需要錢來買而沒錢了充值就是必須的。充值和登錄異曲同工，都是對輸入的值進行比較檢索并為用戶的余

130、額加上充值卡的金額即可在這里就不給出代碼了。</p><p><b>　　7.查看他人售票</b></p><p>　　賣票的人不一定是管理員，某人有事需要改變車次，而又不想因退票被扣除手續(xù)費就可以掛單賣給其它人，只要車票沒有過期都可以進行上架，當然如果車票過期了都沒人買走的話就作廢了，功能的實現(xiàn)只要把做有標號且沒有過期的記錄顯示出來就可以了，就不做詳細論述了。<

131、;/p><p><b>　　8.賣票</b></p><p>　　賣票這個過程就不需要多說了只要把用戶的車票做個記號就可以了。</p><p><b>　　具體實現(xiàn)</b></p><p>　　<!--#include file="conn.asp"--></p&g

132、t;<p><b>　　<%</b></p><p><b>　　dim id,jg</b></p><p>　　id=request.QueryString("id")</p><p>　　jg=Trim(request.Form("jg"))</p>

133、;<p>　　set rs=conn.execute("update yhzl set zt=1,mapjg="&jg&" where 編號="&id&"")</p><p><b>　　%></b></p><p><b>　　9.票已售出&l

134、t;/b></p><p>　　這個是買票里的附帶功能加在這里是為了更好的理解，買他人售票是個雙向的操作同時要扣除買票用戶的金額和記錄車票的值還要為賣票的人加上所售金額并為其進行記錄以供管理員查看，賣票記錄，出售中的車票和取消售票的實現(xiàn)過程就細說了和出售車票是一樣的只要給車票進行標注就可以了。接下來給出票被買走的實現(xiàn)代碼：</p><p>　　<!--#include file

135、="conn.asp"--></p><p><b>　　<%</b></p><p><b>　　dim id</b></p><p>　　id=request.QueryString("id")</p><p>　　set rs=server.

136、CreateObject("ADODB.Recordset")</p><p>　　rs.open "select * from yhzl where 編號="&id&"",conn,3,3</p><p>　　set rs2=conn.execute("select * from yhb where y

137、hm='"&Session("yhm")&"'"</p><p>　　set rs3=server.CreateObject("ADODB.Recordset")'進行買票記錄</p><p>　　rs3.open "select * from yhzl "

138、,conn,3,3</p><p>　　rs3.addnew </p><p>　　rs3("yhm")=rs2(1)</p><p>　　rs3("ye")=rs2(8)-rs(7)</p><p>　　rs3("mpjl")=rs3("mpjl")+1<

139、/p><p>　　rs3("ccm")=rs(8)</p><p>　　rs3("kcsj")=rs(9)</p><p>　　rs3("cprq")=rs(10)</p><p>　　rs3("xm")=rs2(5)</p><p>　　rs

140、3("sfz")=rs2(6)</p><p>　　rs3("lxfs")=rs2(7)</p><p>　　rs3("cpfx")=rs(11)</p><p>　　rs3("zw")=rs(12)</p><p>　　rs3("gprq")

141、=date()</p><p>　　rs3("gpyh")="轉(zhuǎn)售"&rs(1)</p><p>　　rs3("zt")=0</p><p>　　rs3.update</p><p><b>　　rs3.close</b></p><

142、p>　　set rs3=nothing</p><p>　　set rs1=conn.execute("update yhzl set zt=2 where 編號="&id&"")</p><p>　　set rs4=conn.execute("update yhb set zhye=zhye+"&r

143、s(7)&" where yhm='"&rs(1)&"'")</p><p>　　response.Write "<script>alert('\n 購買成功 \n ');window.location.href='trsp.asp';</script>"&l

144、t;/p><p><b>　　%></b></p><p><b>　　10.退票</b></p><p>　　退票是個很必要的過程當車票快要過期而又沒有購買的時候退票的就成了必然了，由于本人表結(jié)構(gòu)的設計退票時需要截取字符串但是實現(xiàn)的方法還是一樣的，只要退票的記錄為用戶加上退票的金額就可以了一下是實現(xiàn)代碼：</p&

145、gt;<p>　　<!--#include file="conn.asp"--></p><p><b>　　<%</b></p><p>　　dim id,str,str1,z</p><p>　　id=request.QueryString("id")</p>