【正文】 ) if trim(Request(MobileType))=trim(rs1(MobileType)) then MobStr=MobStramp。 selected MobStr=MobStramp。amp。rs1(MobileType)amp。/option wend//車輛的具體信息 td width=39。20039。車輛類型：amp。MobStramp。/td td width=39。15039。駕駛員：input type=39。text39。 name=39。driver39。 size=10/td td width=39。15039。input type=submit value=搜索所需車輛/td td width=39。25039。/td/tr /table /form table border=1 width=750 tr td車輛型號/td td駕駛員/td td車輛類型/td td購買日期/td td價格(RMB)/td td座位數(shù)(個)/td td載重(噸)/td td發(fā)動機編號/td td車身編號/td td車牌號/td td所屬單位/td td功能/td /tr//以下循環(huán)顯示每輛車的具體信息while (not ) tr tdamp。rs(MobileModel)amp。/td tdamp。rs(RealName)amp。(amp。rs(UserName)amp。)/td tdamp。rs(MobileType)amp。/td tdamp。rs(PurchaseDate)amp。/td tdamp。rs(Price)amp。/td tdamp。rs(SeatNumber)amp。/td tdamp。rs(PayLoad)amp。/td tdamp。rs(EngineSerialNO)amp。/td tdamp。rs(ChasisSerialNO)amp。/td tdamp。rs(SerialNO)amp。/td tdamp。rs(Affiliation)amp。/td tda href=?MobileID=amp。rs(MobileID)amp。察看狀態(tài)/a/td /trwend//對未配備駕駛員的車輛也要加入顯示列表中：Sqlstring=select m.* from MobileInfo m where is nullset rs=(Sqlstring)while (not ) tr tdamp。rs(MobileModel)amp。/td td未配備/td tdamp。rs(MobileType)amp。/td tdamp。rs(PurchaseDate)amp。/td tdamp。rs(Price)amp。/td tdamp。rs(SeatNumber)amp。/td tdamp。rs(PayLoad)amp。/td tdamp。rs(EngineSerialNO)amp。/td tdamp。rs(ChasisSerialNO)amp。/td tdamp。rs(SerialNO)amp。/td tdamp。rs(Affiliation)amp。/td tda href=?MobileID=amp。rs(MobileID)amp。察看狀態(tài)/a/td /tr wend /tableset rs=nothing% /body /html 該頁面分類別列出車輛的使用信息，包括以前所執(zhí)行的任務、現(xiàn)在正在執(zhí)行的任務、是否有人已經(jīng)申請了該車等。用戶依據(jù)自己用車的時間和輕重緩急程度選擇合適的時間，或者考慮換一部車。如果確定選擇該車，則應有提交按鈕確定填寫該車的預約單。!include file=..\!include file=..\pub\htmlheadtitleInformation/titlemeta equiv=ContentType content=text/html。 charset=gb2312LINK href=../ type=text/css rel=stylesheetstyle type=text/css!body { backgroundcolor: DADAFE。}/style/headbody topmargin=8%dim usginfodim wherestrdim querystringdim sqlstringdim usgrsdim usgstr,mobrs,drirs,usrrs,approver,apprs//下面的語句為VBSCRIPT中數(shù)組的定義，這里作為一個索引列表使用UsgInfo=Array(All,申請階段,批準未執(zhí)行階段,被駁回的申請,執(zhí)行階段,已完成)if Request(MobileID) then if WhereStr= then WhereStr=MobileID=amp。Request(MobileID) else WhereStr=WhereStramp。 and MobileID=amp。Request(MobileID) if QueryString= then QueryString=MobileID=amp。Request(MobileID) else QueryString=QueryStringamp。 amp。MobileID=amp。Request(MobileID)end ifif Request(DriverID) then if WhereStr= then WhereStr=DriverID=amp。Request(DriverID) else WhereStr=WhereStramp。 and DriverID=amp。Request(DriverID) if QueryString= then QueryString=DriverID=amp。Request(DriverID) else QueryString=QueryStringamp。amp。DriverID=amp。Request(DriverID)end ifif Request(UserID) then if WhereStr= then WhereStr=UserID=amp。Request(UserID) else WhereStr=WhereStramp。 and UserID=amp。Request(UserID) if QueryString= then QueryString=UserID=amp。Request(UserID) else QueryString=QueryStringamp。amp。UserID=amp。Request(UserID)end ifif Request(UsageType) then if WhereStr= then WhereStr=EventType=amp。Request(UsageType) else WhereStr=WhereStramp。 and EventType=amp。Request(UsageType)end ifif WhereStr then WhereStr=where amp。WhereStrSqlString=select u.* from UsageInfo u amp。WhereStrset UsgRs=(Sqlstring)UsgStr=table width=700 border=0trUsgStr=UsgStramp。tda href=?amp。QueryStringamp。0. 全部用車事件/a/tdUsgStr=UsgStramp。tda href=?UsageType=1amp。amp。QueryStringamp。1. 申請階段/a/tdUsgStr=UsgStramp。tda href=?UsageType=2amp。amp。QueryStringamp。2. 批準未執(zhí)行階段/a/tdUsgStr=UsgStramp。tda href=?UsageType=3amp。amp。QueryStringamp。3. 被駁回的申請/a/tdUsgStr=UsgStramp。tda href=?UsageType=4amp。amp。QueryStringamp。4. 執(zhí)行階段/a/tdUsgStr=UsgStramp。tda href=?UsageType=5amp。amp。QueryStringamp。5. 已完成/a/tdUsgStr=UsgStramp。/trUsgStr=UsgStramp。table width=700 border=1UsgStr=UsgStramp。trUsgStr=UsgStramp。td車輛名稱/tdtd相關司機/tdtd使用者/tdtd類型/tdtd執(zhí)行時間/tdtd結束時間/tdtd出發(fā)地/tdtd目的地/tdtd事件說明/tdtd批準人/td/trwhile not if not then set MobRs=(select from MobileInfo m where MobileID=amp。UsgRS(MobileID)) set DriRs=(select from DriverInfo d where DriverID=amp。UsgRS(DriverID)) set UsrRs=(select from UserInfo u where UserID=amp。UsgRS(UserID)) Approver=未得到批準 if UsgRS(Approver) then set AppRs=(select from UserInfo u where UserID=amp。UsgRS(Approver)) if not then Approver=AppRS(RealName) else Approver=未得到批準 end if end if UsgStr=UsgStramp。trtdamp。MobRs(MobileModel)amp。/td UsgStr=UsgStramp。tdamp。DriRs(DriverName)amp。/td UsgStr=UsgStramp。tdamp。UsrRs(RealName)amp。/td UsgStr=UsgStramp。tdamp。UsgInfo(CINT(UsgRs(EventType)))amp。/td UsgStr=UsgStramp。tdamp。UsgRs(EventBDate)amp。/td UsgStr=UsgStramp。tdamp。UsgRs(EventEDate)amp。/td UsgStr=UsgStramp。tdamp。UsgRs(FromWhere)amp。/td UsgStr=UsgStramp。tdamp。UsgRs(ToWhere)amp。/td UsgStr=UsgStramp。tdamp。UsgRs(ForWhat)amp。/td UsgStr=UsgStramp。tdamp。Approveramp。/td wendUsgStr=UsgStramp。/tableUsgStr=UsgStramp。table width=700trtdcenter/center/td/tr/tableSet UsgRs=nothing UsgStr%/body/html 該頁面負責收集預約車輛所必須的信息，并傳給下一個處理頁面。!include file=..\!include file=..\pub\htmlheadtitleAdd Usage Event/titlemeta equiv=ContentType content=text/html。 charset=gb2312link rel=stylesheet href=... type=text/csslink rel=stylesheet href=... type=text/cssstyle type=text/css!body { backgroundcolor: DADAFE。}/style/headbody topmargin=8//生成車輛名稱下拉框，以供用戶最終確定使用的車輛%dim rsdim mobstrdim usrstrset rs= ( select * from MobileInfo )MobStr=Select name=MobileIDwhile not MobStr=MobStramp。Option Value=amp。rs(MobileID) if trim(Request(MobileID))=trim(rs(MobileID)) then MobStr=MobStramp。 selected MobStr=MobStramp。amp。rs(MobileModel)amp。/option wendMobStr=MobStramp。/select//生成駕駛員下拉框，以提供用戶選擇車輛所配