【文章內(nèi)容簡(jiǎn)介】 p align=centerem/em /p div align=center table width=50% height=50% border=1 !DWLayoutTable tr td 意見(jiàn)發(fā)布人 /td td 主題 /td td 內(nèi)容 /td td 發(fā)布時(shí)間 /td td 操作 /td /tr % For a =1 To % tr td %=rs(name)% /td td %=rs(zhuti)% /td td %=rs(neirong)% /td td %=rs(time)% /td td a href=?neirong=%=rs(neirong)%刪除 /a/td /tr % If Then Exit For Next set rs=nothing set con=nothing % 以上為管理員對(duì)意見(jiàn)反饋管理的代碼，開(kāi)始還是通過(guò)繼承管理員的名字 來(lái)驗(yàn)證管理員的身份是否正確，然后連接數(shù)據(jù)庫(kù)，在 yijian 表中按時(shí)間的降序?qū)蛻舳水a(chǎn)生的意見(jiàn)顯示出來(lái)，然后對(duì)意見(jiàn)進(jìn)行分頁(yè)顯示。 運(yùn)輸狀態(tài)統(tǒng)計(jì) 運(yùn)輸狀態(tài)統(tǒng)計(jì)頁(yè)面如圖 47 所示： 圖 47 運(yùn)輸狀態(tài)統(tǒng)計(jì)頁(yè)面 運(yùn)輸狀態(tài) 統(tǒng)計(jì)主要是管理員寫(xiě)如新的合同號(hào)，然后方便客戶端進(jìn)行注冊(cè)，還有沒(méi)月執(zhí)行合同的數(shù)量和相關(guān)情況進(jìn)行統(tǒng)計(jì)的功能，代碼如下： %if session(name)=empty then () end if set con=() dsn=chen。uid=sa。pwd=sa start=(t1) eend=(t2) id=request(id) nname=request(name) dtime= date() set rs=(select * from yunshuzhuangtai where hetongid=39。amp。idamp。39。) % % if start= or eend= then % 請(qǐng) a href=javascript:(1)后退 /a填寫(xiě)完整資料，你才能發(fā)表帖子！ %elseif then% BR %(insert into yunshuzhuangtai values (39。amp。idamp。39。 ,39。amp。startamp。39。,39。amp。eendamp。39。,39。amp。nnameamp。39。,39。amp。dtimeamp。39。))% %寫(xiě)入成功 % /font % else 此合同號(hào)已經(jīng)存在 end if set savebbs=nothing % 在以上代碼中，先還是對(duì)管理員身份進(jìn)行驗(yàn)證，使用的還是繼承管理員名字的辦法，然后連接數(shù)據(jù)庫(kù)，在數(shù)據(jù)庫(kù)中查詢合同號(hào)，如果錄入的合同號(hào)和表yunshuzhuangtai 中的合同號(hào)相同的話就顯示： 此合同號(hào)已經(jīng)存在 ，在正確填寫(xiě)相關(guān)資料的前提下就可以成功的寫(xiě)入一個(gè)新合同的起點(diǎn)站和終 點(diǎn)站還有合同號(hào)，相對(duì)應(yīng)的系統(tǒng)時(shí)間也寫(xiě)入了數(shù)據(jù)庫(kù)。 在這個(gè)模塊中還有對(duì)本月執(zhí)行的合同的一個(gè)具體統(tǒng)計(jì)情況，在統(tǒng)計(jì)月份中輸入月份數(shù)，就可以進(jìn)行查詢，頁(yè)面如圖 48所示： 圖 48 具體合同查詢頁(yè)面 % dtime=request(time) if dtime0 and dtime=12 then set con=() dsn=chen。uid=sa。pwd=sa set r=() select count(id) as sum from yunshuzhuangtai where DATEPART(mm,time)=39。amp。dtimeamp。39。,con % 以上代碼是在輸入相應(yīng)月份數(shù)之后，系統(tǒng)將符合時(shí)間的合同號(hào)做一個(gè)和運(yùn)算，就得到以上頁(yè)面的顯示效果。 用戶模塊功能 圖 59 用戶界面 登錄部分重要代碼： if shenfen=用戶 then rs=select * from denglu where name=39。amp。usernameamp。39。and id=39。amp。idamp。39。and pwd=39。amp。pwdamp。39。and shenfen=39。amp。shenfenamp。39。 set s=(rs) if then 對(duì)不起 ! 用戶名 或 密碼錯(cuò)誤 或者 你沒(méi)有登錄權(quán)限 ! 若你還沒(méi)有注冊(cè)請(qǐng)先注冊(cè) ! else session(name)=request(name) session(id)=request(id) 用戶在主頁(yè)面中登陸，在錄入正確的登陸信息之后進(jìn)入用戶頁(yè)面，以上代碼就是驗(yàn)證用戶的主要代碼。在這個(gè)頁(yè)面中，可以很清楚的看到用戶模塊的各項(xiàng)功能。 圖 410 資料管理頁(yè)面 %if session(name)=empty then () end if zhenname=request(zhenname) dname=request(dname) pwd=request(pwd) lianxi=request(lianxi) if dname=or pwd= or lianxi=then 資料不能為空 else set con=() dsn=chen。uid=sa。pwd=sa r=update denglu set name=39。amp。dnameamp。39。,pwd=39。amp。pwdamp。39。,lianxi=39。amp。lianxiamp。39。,zhenname=39。amp。zhennameamp。39。 where id=39。amp。session(id)amp。39。 ss=(r) s=select * from denglu where id=39。amp。session(id)amp。39。 rs=(s) % 先通過(guò)繼承 用戶 的名字來(lái)驗(yàn)證 用戶身份，然后對(duì)數(shù)據(jù)庫(kù)進(jìn)行更新和查詢就可以顯示修改后的用戶資料，完成了用戶對(duì)自己基本資料的修改。 在用戶管理界面中，用戶可以對(duì)自己此次運(yùn)輸合同進(jìn)行線路初步規(guī)劃，可以在每到達(dá)一個(gè) 地點(diǎn)就輸入當(dāng)前的運(yùn)輸狀態(tài)。比如在系統(tǒng)中輸入此次任務(wù)的起始點(diǎn)，中間經(jīng)過(guò)的地點(diǎn)，和終點(diǎn)信息，方便查看經(jīng)過(guò)地點(diǎn)的運(yùn)輸狀態(tài)，和進(jìn)行狀態(tài)統(tǒng)計(jì)。線路規(guī)劃界面圖如圖 411 所示。 圖 411 運(yùn)輸線路規(guī)劃頁(yè)面 輸入了起始點(diǎn)和終點(diǎn)信息后，就可以循環(huán)輸入中間點(diǎn)的狀態(tài)了。界面如圖412 所示。 圖 412中間站點(diǎn)信息輸入界面 在用戶貨運(yùn)中途如果客戶或管理者想要了解貨運(yùn)最新情況，就需要在每經(jīng)過(guò)一個(gè)站點(diǎn)把最新情況反饋回來(lái)。讓大家對(duì)情況都要有所了解，以便采取相應(yīng)的措施。界面如圖 413 過(guò)程跟蹤界面所示。 圖 413過(guò)程 跟蹤界面 代碼表示為： %if session(name)=empty then () end if%判斷登錄沒(méi)有 % dname=request(name) zhuangtai=request(zhuangtai) huowuzhuangkuang=request(huowuzhuangkuang) chekuang=request(chekuang) renyuan=request(renyuan) set con=() dsn=chen。uid=sa。pwd=sa r=update xianlu set hwzhuangkuang=39。amp。huowuzhuangkuangamp。39。,chekuang=39。amp。chekuangamp。39。,renyuan=39。amp。renyuanamp。39。,zhuangtai=39。amp。zhuangtaiamp。39。 where start=39。amp。session(start)amp。39。and stop=39。amp。session(sstop)amp。39。and next=39。amp。dnameamp。39。 set ss=(r) % 此功能的前提是已經(jīng)在上面的線路規(guī)劃中輸入過(guò)站點(diǎn)信息。 在此系統(tǒng)還設(shè)有信息反饋功能模塊，我們的宗旨是“請(qǐng)把滿意帶走，把意見(jiàn)留下” 在這里用戶就可以把意見(jiàn)界面 514 所示。 圖 414意見(jiàn) 反饋界面 在提交意見(jiàn)后可以看到自己剛剛留的意見(jiàn)。代碼和圖如下所示。 % zhuti=request(zhuti) neirong=request(neirong) dtime=date() session(time)=now() set con=() dsn=chen。uid=sa。pwd=sa s=insert into yijian values (39。amp。session(name)amp。39。,39。amp。zhutiamp。39。,39。amp。neirongamp。39。,39。amp。dtimeamp。39。) set r=(s) ss=select * from yijian where time=39。amp。dtimeamp。39。 set rs=(ss) % body background= div align=center pem/em /p /div table width=59% height=54% border=1 align=center!DWLayoutTable tr td 主題 /td td 內(nèi)容 /td td時(shí)間 /td /tr % while not % tr td %=rs(zhuti)% /td td %=rs(neirong)% /td td %=rs(time)% /td /tr % wend % 圖 415顯示意見(jiàn)圖 站點(diǎn)信息查詢 在用戶界面中還可以查詢某個(gè)站點(diǎn)的詳細(xì)情況，但前提是你必須知道此次貨運(yùn)的起點(diǎn)和終點(diǎn)和運(yùn)輸編碼；如圖 416 所示。 圖 416站點(diǎn)信息查詢界面 查詢結(jié)果如圖 417 所示。 圖 417站點(diǎn)信息查詢圖 代碼如下所示： %start=request(start) sstop=request(stop) dname=request(next) cheid=request(cheid) set con=() dsn=chen。uid=sa。pwd=sa s=select * from xianlu where start=39。amp。startamp。39。and stop=39。amp。sstopamp。39。and next=39。amp。dnameamp。39。and cheid=39。amp。cheidamp。39。 set rs=(s) %body background= div align=center pem/em /p /div table width=50% height=50% border=1!DWLayoutTable tr td width=40 height=2起點(diǎn) /td td 站點(diǎn) /td td 終點(diǎn) /td td 出發(fā)時(shí)間 /td td預(yù)計(jì)到終點(diǎn)時(shí)間 /td td 貨運(yùn)方式 /td td 貨運(yùn)編碼 /td td 總體情況介紹 /td td 現(xiàn)在狀態(tài) /td td 到達(dá)時(shí)間 /td td車況 /td td 貨物狀況 /td td 人員狀況 /td /tr % while not % tr td %=rs(start)% /td td %=rs(next)% /td td%=rs(stop)% /td td%=rs(nexttime)% /td td %=rs(ztime)% /td td %=rs(fangshi)% /td td %=rs(cheid)% /td td %=rs(qingkuang)% /td td %=rs(zhuangtai)% /td td %=rs(dtime)% /td td %=rs(chekuang)% /td td %=rs(hwzhuangk