【導(dǎo)讀】對(duì)于企業(yè)來(lái)講，無(wú)論是企業(yè)之間,還是企業(yè)和客戶(hù)之間的交易，如。果能夠?qū)崿F(xiàn)網(wǎng)上交易將大大提高交易速度節(jié)約交易成本。近幾年，隨著網(wǎng)絡(luò)數(shù)據(jù)庫(kù)技術(shù)的。進(jìn)一步發(fā)展，使得這一設(shè)想逐漸成為現(xiàn)實(shí)。商品的詳細(xì)資料，然后根據(jù)各人的喜好購(gòu)買(mǎi)心儀的商品。系統(tǒng)會(huì)自動(dòng)為顧客生成訂單，按。照顧客所填寫(xiě)的信息提交訂單并發(fā)貨。系統(tǒng)管理員則可以對(duì)現(xiàn)有的商品進(jìn)行添加和編輯，審查已注冊(cè)的用戶(hù)并對(duì)提交的訂單進(jìn)行處理。

　　

【正文】 RE 訂單ID=39。amp。request(del_orderID)amp。39。) if 0 then 對(duì)不起，數(shù)據(jù)庫(kù)處理有錯(cuò)誤，請(qǐng)稍候再試 ... else set conn=nothing end if else 21 set conn=nothing ((Http_REFERER)) end if % （ 2） 標(biāo)記已處理訂單的程序如下 。 !include file=../../!include file=../ % if request(mark_orderID) then set rs=() sql=update 訂 單 表 set 是 否 處 理 =39。amp。request(mark)amp。39。 where 訂單ID=39。amp。request(mark_orderID)amp。39。 sql,conn,1,1 if 0 then 對(duì)不起，數(shù)據(jù)庫(kù)處理有錯(cuò)誤，請(qǐng)稍候再試 ... else ((Http_REFERER)) end if end if set rs=nothing set conn=nothing % （ 3） 后臺(tái)客戶(hù)訂單列表的設(shè)計(jì)頁(yè) 面 ， 具體代碼如下 ： trtd width=23% bgcolor=FFFFFFstrong訂單號(hào)： %=rs_order(訂單 ID)% //顯示處理的訂單編號(hào) /strong/tdtd width=29% bgcolor=FFFFFF日期： %=rs_order(訂單日期 )%/tdtd width=16% bgcolor=FFFFFF % if rs_order(是否處理 )=1 then% font color=FF6600已處理 /font % else % font color=0033FF未處理 /font %end if% /td //如果查得“是否已處理”的值為 1那么顯示為已處理，否則顯示為未處理 td width=32% bgcolor=FFFFFFtable width=100% border=0 cellspacing=3 cellpadding=0trtd width=65% align=center valign=middle bgcolor=C4DCB6 onMouseOver=mOvr(this,39。79B43D39。)。 onMouseOut=mOut(this,39。C4DCB639。)。 % if rs_order(是否處理 )=1 then % a href=?mark_orderID=%=rs_order(訂單 ID)%amp。mark=0標(biāo)記為未處理 /a % else %a href=?mark_orderID=%=rs_order(訂單 ID)%amp。mark=1標(biāo)記為已處理 /a%end if% //標(biāo)記是否處理的訂單，并通過(guò)訂單 ID號(hào)設(shè)置連接頁(yè)面 /tdtd width=35% align=center valign=middle bgcolor=C4DCB6 onMouseOver=mOvr(this,39。79B43D39。)。 onMouseOut=mOut(this,39。C4DCB639。)。 a href=?del_orderID=%=rs_order(訂單 ID)% onClick=return confirm(39。真的要?jiǎng)h除這份訂單嗎？ 39。)刪除 /a/td/tr //通過(guò)訂單 ID刪除選擇的訂單 （ 4） 未處理訂單列表 是顯示所有未處理的客戶(hù)訂單頁(yè)面 。 該頁(yè)面的制作同 ，除減少了搜索功能外，該頁(yè)面顯示的是 rs_order(“ 是否處理 ” )=1 的所有未處理訂單。代碼略。 （ 5） 已處理客戶(hù)訂單列表 和未 處理客戶(hù)訂單列表是相對(duì)的功 22 能頁(yè)面，當(dāng) rs_order(“ 是否處理 ” )的值不等于 1 的情況下訂單會(huì)顯示在該頁(yè)面。效果圖同上。代碼略。 商品管理 Product_admin 文件夾用來(lái)放置商品管理的頁(yè)面，主要包括 9 個(gè)頁(yè)面，這是購(gòu)物的重點(diǎn)，涉及到上傳圖片等高難度編程操作。 （ 1） 刪除商品的 只是一段刪除商品的動(dòng)態(tài)頁(yè)面，代碼在前面的刪除功能中經(jīng)常使用到，具體代碼如下： !include file=../../!include file=../ % if request(del_productID) then (delete * from 產(chǎn)品表 WHERE 產(chǎn)品 ID=amp。CInt(request(del_productID))) (delete * from 訂單產(chǎn)品 WHERE 產(chǎn)品 ID=39。amp。request(del_productID)amp。39。) if 0 then 對(duì)不起，數(shù)據(jù)庫(kù)處理有錯(cuò)誤，請(qǐng)稍候再試 ... else set conn=nothing end if else set conn=nothing ((Http_REFERER)) end if % （ 2） 插入商品頁(yè)面 ，是一段插入記錄的代碼。當(dāng)中引用了 的程序代碼，具體代碼如下： !include file=../../!include file=../ !include FILE= %39。OPTION EXPLICIT% %=5000% % dim upload,file,formName,formPath,imageName imageName=set upload=new upload_5xsoft //建立上傳對(duì)象 if (filepath)= then //得到上傳目錄 set upload=nothing else formPath=(filepath) //在目錄后加 (/) if right(formPath,1)/ then formPath=formPathamp。/ end if for each formName in //列出所有上傳了的文件 23 set file=(formName) //生成一個(gè)文件對(duì)象 if 0 then //如果 FileSize 0 說(shuō)明有文件數(shù)據(jù) (formPathamp。) //保存文件 39。 amp。amp。 (amp。amp。) = amp。formPathamp。amp。 成功 !br imageName= end if set file=nothing next //刪除此對(duì)象 39。sub HtmEnd(Msg) 39。 set upload=nothing 39。 bramp。Msgamp。 [a href=javascript:()。 返回/a]/body/html 39。 39。end sub 39。for each formName in //列出所有 form數(shù)據(jù) 39。 pro_chandi=amp。(pro_chand)amp。br 39。next % % Dim root_class,this_class this_class=CStr(Left(CLng((pro_bianma)),4)) root_class=CStr(Left(CLng((pro_bianma)),2)) if (pro_mingcheng) then pro_mingcheng=(pro_mingcheng) pro_bianma=CStr((pro_bianma)) pro_shichangjia=(pro_shichangjia) pro_huiyuanjia=(pro_huiyuanjia) pro_chandi=(pro_chandi) pro_danwei=(pro_danwei) pro_pinpai=(pro_pinpai) pro_zaijia=(pro_zaijia) pro_tuijian=(pro_tuijian) pro_shuoming=(pro_shuoming) (insert into 產(chǎn)品表 (商品名稱(chēng) ,商品編碼 ,市場(chǎng)價(jià) ,會(huì)員價(jià) ,產(chǎn)地 ,單位 ,品牌 ,產(chǎn)品圖片 , 子 類(lèi) 別 ID, 根 類(lèi) 別 ID, 在 架 狀 態(tài) , 主 頁(yè) 推 薦 , 商 品 說(shuō) 明 ) values (39。amp。pro_mingchengamp。39。,39。amp。pro_bianmaamp。39。,39。amp。pro_shichangjiaamp。39。,39。amp。pro_huiyuanjiaamp。39。,39。amp。pro_chandiamp。39。,39。amp。pro_danweiamp。39。,39。amp。pro_pinpaiamp。39。,39。amp。imageNameamp。39。,39。amp。this_classamp。39。,39。amp。root_classamp。39。,39。amp。pro_zaijiaamp。39。,39。amp。pro_tuijianamp。39。,39。amp。pro_shuomingamp。39。)) end if if 0 then 對(duì)不起，數(shù)據(jù)庫(kù)處理有錯(cuò)誤，請(qǐng)稍候再試 ... else set conn=nothing set upload=nothing (?return_inf=添加產(chǎn)品信息成功，請(qǐng)繼續(xù)添加！ ) 24 end if % （ 3） 添加商品頁(yè)面 和用戶(hù)注冊(cè)系統(tǒng)的用戶(hù)信息輸入頁(yè)面設(shè)計(jì)差不多，只是多了商品圖片上傳功能，頁(yè)面上的內(nèi)容為表單中建立的相應(yīng)的動(dòng)態(tài)對(duì)象 。 （ 4） 后臺(tái)管理商品列表建立 。頁(yè)面中列除了商品的一些信息比如是否有圖片，商品價(jià)格等，重要是后面的“修改”及“刪除”功能，通過(guò)點(diǎn)擊“修改”命令能打開(kāi)新商品信息頁(yè)面 進(jìn)行商品更新。 （ 5） 更新商品信息頁(yè)面 的設(shè)計(jì)同新聞系統(tǒng)中更新新聞功能一樣，設(shè)計(jì)效果如圖 所示。 圖 （ 6） 單擊更新商品信息頁(yè)面中的“提交”按鈕后，主要通過(guò)建立上傳命令動(dòng)態(tài)頁(yè)面 實(shí)現(xiàn)。該動(dòng)態(tài)頁(yè)面的功能命令同插入商品頁(yè)面一樣，難點(diǎn)在于圖片的上傳更新。 詳見(jiàn)源程序。 （ 7） 關(guān)于上傳文件測(cè)試頁(yè)面 、上傳圖片文件測(cè)試頁(yè)面 、上傳文件 ASP 命令模版 個(gè)頁(yè)面是為了方便企業(yè)建立購(gòu)物車(chē) 單獨(dú)調(diào)用，詳見(jiàn)源文件。 25 8 輔助頁(yè)面的制作 網(wǎng)上購(gòu)物系統(tǒng)通過(guò)上面幾個(gè)節(jié)的分析與設(shè)計(jì)在購(gòu)物及后臺(tái)管理上基本已經(jīng)完成，但還有很多的說(shuō)明也面，如制作與購(gòu)物相關(guān)的一些說(shuō)明（客戶(hù)服務(wù)中心）頁(yè)面 ，關(guān)于企業(yè)的內(nèi)容簡(jiǎn)介也面 等是需要由企業(yè)自身出發(fā)，在頁(yè)面中輸入與企業(yè)相關(guān)的一些信息及購(gòu)物說(shuō)明。 這也要根據(jù)企業(yè)自己的物流配送相結(jié)合。 到這里一個(gè)功能完善的購(gòu)物車(chē)就設(shè)計(jì)制作完畢，通過(guò)購(gòu)物車(chē)程序，可以掌握如何利用 ASP實(shí)現(xiàn)一個(gè)購(gòu)物車(chē)的基本思路，主要涉及的技術(shù)是通過(guò) ASP 內(nèi)建對(duì)象 Request、 Response、Session、 Application 的應(yīng)用來(lái)實(shí)現(xiàn)購(gòu)物的采購(gòu)統(tǒng)計(jì)結(jié)算功能。其中主要是通過(guò) Session的應(yīng)用來(lái)實(shí)現(xiàn)購(gòu)物車(chē)的暫時(shí)儲(chǔ)存功能。 26 總結(jié) 本系統(tǒng)是一個(gè)面向小型企業(yè) 的網(wǎng)上購(gòu)物系統(tǒng) ，具有一定實(shí)用性的數(shù)據(jù)庫(kù)管理系統(tǒng)。它主要完成 購(gòu)物的一系列流程和后臺(tái)的管理系統(tǒng) 。本系統(tǒng)采用當(dāng)前流行的開(kāi)發(fā)工具 — ASP 來(lái)完成整個(gè)系統(tǒng)的設(shè)計(jì)，在數(shù)據(jù)庫(kù)的設(shè)計(jì)上利用了 SQL 的便利性和實(shí)用性。 本系統(tǒng)具有相當(dāng)?shù)膶?shí)用功能。 在客戶(hù)方面，采取會(huì)員制保證交易的安全性。開(kāi)發(fā)了強(qiáng)大的搜索查詢(xún)功能，能夠快捷的找到相 應(yīng)的商品