【正文】 /option wendMobStr=MobStramp。amp。rs(MobileID) if trim(Request(MobileID))=trim(rs(MobileID)) then MobStr=MobStramp。}/style/headbody topmargin=8//生成車輛名稱下拉框，以供用戶最終確定使用的車輛%dim rsdim mobstrdim usrstrset rs= ( select * from MobileInfo )MobStr=Select name=MobileIDwhile not MobStr=MobStramp。!include file=..\!include file=..\pub\htmlheadtitleAdd Usage Event/titlemeta equiv=ContentType content=text/html。/tableUsgStr=UsgStramp。Approveramp。/td UsgStr=UsgStramp。tdamp。UsgRs(ToWhere)amp。/td UsgStr=UsgStramp。tdamp。UsgRs(EventEDate)amp。/td UsgStr=UsgStramp。tdamp。UsgInfo(CINT(UsgRs(EventType)))amp。/td UsgStr=UsgStramp。tdamp。DriRs(DriverName)amp。/td UsgStr=UsgStramp。trtdamp。UsgRS(UserID)) Approver=未得到批準(zhǔn) if UsgRS(Approver) then set AppRs=(select from UserInfo u where UserID=amp。UsgRS(MobileID)) set DriRs=(select from DriverInfo d where DriverID=amp。trUsgStr=UsgStramp。/trUsgStr=UsgStramp。QueryStringamp。tda href=?UsageType=5amp。QueryStringamp。tda href=?UsageType=4amp。QueryStringamp。tda href=?UsageType=3amp。QueryStringamp。tda href=?UsageType=2amp。QueryStringamp。tda href=?UsageType=1amp。QueryStringamp。WhereStrset UsgRs=(Sqlstring)UsgStr=table width=700 border=0trUsgStr=UsgStramp。Request(UsageType)end ifif WhereStr then WhereStr=where amp。Request(UsageType) else WhereStr=WhereStramp。UserID=amp。Request(UserID) else QueryString=QueryStringamp。 and UserID=amp。Request(DriverID)end ifif Request(UserID) then if WhereStr= then WhereStr=UserID=amp。amp。Request(DriverID) if QueryString= then QueryString=DriverID=amp。Request(DriverID) else WhereStr=WhereStramp。MobileID=amp。Request(MobileID) else QueryString=QueryStringamp。 and MobileID=amp。}/style/headbody topmargin=8%dim usginfodim wherestrdim querystringdim sqlstringdim usgrsdim usgstr,mobrs,drirs,usrrs,approver,apprs//下面的語(yǔ)句為VBSCRIPT中數(shù)組的定義，這里作為一個(gè)索引列表使用UsgInfo=Array(All,申請(qǐng)階段,批準(zhǔn)未執(zhí)行階段,被駁回的申請(qǐng),執(zhí)行階段,已完成)if Request(MobileID) then if WhereStr= then WhereStr=MobileID=amp。!include file=..\!include file=..\pub\htmlheadtitleInformation/titlemeta equiv=ContentType content=text/html。用戶依據(jù)自己用車的時(shí)間和輕重緩急程度選擇合適的時(shí)間，或者考慮換一部車。rs(MobileID)amp。rs(Affiliation)amp。rs(SerialNO)amp。rs(ChasisSerialNO)amp。rs(EngineSerialNO)amp。rs(PayLoad)amp。rs(SeatNumber)amp。rs(Price)amp。rs(PurchaseDate)amp。rs(MobileType)amp。rs(MobileModel)amp。rs(MobileID)amp。rs(Affiliation)amp。rs(SerialNO)amp。rs(ChasisSerialNO)amp。rs(EngineSerialNO)amp。rs(PayLoad)amp。rs(SeatNumber)amp。rs(Price)amp。rs(PurchaseDate)amp。rs(MobileType)amp。rs(UserName)amp。rs(RealName)amp。rs(MobileModel)amp。25039。15039。driver39。text39。15039。MobStramp。20039。rs1(MobileType)amp。 selected MobStr=MobStramp。Option Value=amp。39。39。end ifSqlstring2=select ,m.* from UserInfo u,MobileInfo m where =set rs=(Sqlstring1)set rs1=(Sqlstring2)39。driveramp。 and =39。39。amp。 charset=gb2312LINK href=../ type=text/css rel=stylesheetstyle type=text/css!body { backgroundcolor: DADAFE。用戶可以依據(jù)本身的要求選擇合適的車輛，如出車任務(wù)的具體要求，運(yùn)貨接待等任務(wù)對(duì)車輛的載重和檔次要求不一樣的。39。39。Image439。39。39。Image339。39。39。Image239。,1)img src= name=Image1 width=200 height=100 border=0/a/td//定義右邊框架屬性 form td width=600 rowspan=4 align=center valign=middle bgcolor=DADAFE iframe name=right width=590 height=400 marginwidth=0 marginheight=0 border=0 frameborder=0 src= scrolling=auto瀏覽器不支持嵌入式框架，或被配置為不顯示嵌入式框架。,39。,39。)table height=540 align=center tr td height=100 colspan=2img src= width=810 height=100/td /tr tr td height=20 colspan=2img src= width=810 height=20/td /tr//頁(yè)面左邊功能選擇//查看車輛 tr td width=200 height=100 align=center valign=middlea href= target=right onMouseOut=MM_swapImgRestore() onMouseOver=MM_swapImage(39。,39。,39。,39。}}///script/headbody onLoad=MM_preloadImages(39。 if(!) =。i()。 =new Array。i++) =。(x=a[i])amp。iamp。aamp。}function MM_swapImgRestore() { // var i,x,a=。 ) x=(n)。 if(!x amp。i。amp。!xamp。i++) x=[i][n]。amp。 for (i=0。amp。 n=(0,p)。amp。 if(!d) d=document。 [j++].src=a[i]。 i。 var i,j=,a=。 charset=gb2312title用戶界面/title//設(shè)置鼠標(biāo)經(jīng)過圖象函數(shù)script language=JavaScript type=text/JavaScript!function MM_preloadImages() { // var d=document。包括：查看車輛，預(yù)約車輛，查看記錄，退出系統(tǒng)四個(gè)部分。在本系統(tǒng)中，可以將這段小程序放在每個(gè)ASP頁(yè)面的最前部分，就可以用Conn對(duì)象實(shí)現(xiàn)數(shù)據(jù)庫(kù)操作，Provider=SQLOLEDB最好都要添加上，這樣可以加快數(shù)據(jù)庫(kù)的操作。Initial Catalog=bysj。Persist Security Info=True。使用ASP語(yǔ)句連接SQL的代碼如下：%SqlString=Provider=SQLOLEDB。 Command對(duì)象表示一個(gè)數(shù)據(jù)庫(kù)命令。 模塊系統(tǒng)頁(yè)面結(jié)構(gòu)圖(預(yù)約功能模塊)◆ 用戶登陸功能展開頁(yè)面結(jié)構(gòu)圖User\系統(tǒng)登陸頁(yè)面(以往記錄查詢模塊)(所有車輛信息查詢)(車輛列表頁(yè)面)◆ 用戶預(yù)約車輛模塊頁(yè)面結(jié)構(gòu)圖\Event\(預(yù)約表單提交頁(yè)面)\Event\(預(yù)約表單填寫頁(yè)面) (車輛詳細(xì)信息頁(yè)面)(普通用戶主頁(yè)面) 代碼說明 （連接數(shù)據(jù)庫(kù)相應(yīng)的ASP語(yǔ)句）在ASP中將使用三種主要ADO（Active Dada Object）對(duì)象來(lái)訪問數(shù)據(jù)庫(kù)：Connection、Command、Recordset。；；。該模塊為系統(tǒng)前臺(tái)模塊。整個(gè)系統(tǒng)的頁(yè)面設(shè)置也就是接著按著功能來(lái)安排，圖如下：第六章 功能模塊介紹 模塊說明該模塊的名稱為用戶子系統(tǒng)。原本該用戶也有添加車輛費(fèi)用和事故信息的權(quán)利，而后管理員有責(zé)任校驗(yàn)駕駛員和用戶之間兩者的報(bào)告是否準(zhǔn)確，以確定車輛費(fèi)用和事故信息是否準(zhǔn)確性，但為了簡(jiǎn)化系統(tǒng)，在設(shè)計(jì)系統(tǒng)將這部分省略了。駕駛員沒有權(quán)利添加車輛使用信息，這是有實(shí)際決定的，駕駛員也沒有權(quán)利私自用公車，所有車輛的私用都是各個(gè)部門提出的申請(qǐng)，然后有駕駛員執(zhí)行，所有的駕駛員不允許也沒有必要有添加使用信息權(quán)利。管理員管理員有權(quán)利刪除車輛駕駛員和用戶信息；還有權(quán)利查詢/刪除車輛和駕駛員的各種費(fèi)用信息、使用信息和事故信息，但是沒有權(quán)利添加修改這些信息，該設(shè)計(jì)符合系統(tǒng)信息安全和有效性的要求。 設(shè)計(jì)實(shí)現(xiàn) 開發(fā)工具的選定按照《畢業(yè)設(shè)計(jì)任務(wù)書》和用戶需求，本系統(tǒng)確定的開發(fā)平臺(tái)為：Windows 2000 Server＋Dreamwear MX＋ASP+MS SQL Server 2000 數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)端的設(shè)計(jì)工具采用PowerDesigner 。第五章 系統(tǒng)總體設(shè)計(jì) 設(shè)計(jì)思路本系統(tǒng)的設(shè)計(jì)定位于“車輛管理”，以系統(tǒng)任務(wù)的實(shí)現(xiàn)和用戶需求的滿足為設(shè)計(jì)目標(biāo)。并且利用已有類庫(kù)的服務(wù)應(yīng)用調(diào)整本系統(tǒng)的模塊健壯性。 控制本軟件采用事件驅(qū)動(dòng)的方式通過工作權(quán)限的校驗(yàn)和事務(wù)的觸發(fā)來(lái)對(duì)軟件進(jìn)行特定模塊的驅(qū)動(dòng)運(yùn)行，完成特定模塊功能。數(shù)據(jù)庫(kù)服務(wù)器端： Windows2000 Server或更新版本，Internet Information Server (IIS),Sql Server 2000或更新版本。 運(yùn)行環(huán)境 軟件環(huán)境客戶端：Windows95/98，Windows2000/XP 安裝有Internet Explorer(IE)。二是在系統(tǒng)的應(yīng)用中，由用戶，司機(jī)和管理員所提交的數(shù)據(jù)（預(yù)約申請(qǐng)，車輛費(fèi)用添加，車輛信息添加等），是數(shù)據(jù)的主要來(lái)源。如圖：◆駕駛員信息管理流程：管理員有權(quán)查看、修改和刪除駕駛員的信息，服務(wù)器根據(jù)管理員的要求更新數(shù)據(jù)庫(kù)，如圖：◆車輛管理信息流程：管理員有權(quán)查看、修改和刪除車輛信息，服務(wù)器根據(jù)管理員的要求更新數(shù)據(jù)庫(kù)，如圖：◆車輛審批流程：駕駛員根據(jù)當(dāng)時(shí)的車