【文章內(nèi)容簡(jiǎn)介】 藏架（hopList） 收藏架是用來存入用戶收藏的商品的編號(hào)、名稱、購(gòu)物數(shù)量、會(huì)員價(jià)格和購(gòu)物時(shí)間等信息的. 結(jié)構(gòu)如表36所示：表36 收藏架表字段名數(shù)據(jù)類型 字段大小字段說明Product_Id長(zhǎng)整型10商品編號(hào)Form_Id 長(zhǎng)整型自動(dòng)所屬訂單號(hào)Product_Name文本30商品名稱Number 文本255購(gòu)物數(shù)量P_NewPrice貨幣自動(dòng)會(huì)員價(jià)格RegTime日期／時(shí)間默認(rèn)值Now()購(gòu)物時(shí)間 訂單表（OrderList） 訂單表是用來存入訂單號(hào)、會(huì)員賬戶名、會(huì)員姓名、郵編、聯(lián)系電話、電子郵箱、聯(lián)系地址、付款方式、：表37 訂單表字段名 數(shù)據(jù)類型字段大小字段說明Form_ID 長(zhǎng)整型自動(dòng)訂單號(hào)User_ID 文本20會(huì)員賬戶名字段名 數(shù)據(jù)類型字段大小字段說明Name 文本 20會(huì)員姓名Zip文本 20郵編Phone文本 30聯(lián)系電話Email文本 30電子信箱Address文本 50聯(lián)系地址Pays文本 20付款方式RegTime日期／時(shí)間默認(rèn)值Now()訂貨時(shí)間 第4章 系統(tǒng)功能的實(shí)現(xiàn) 系統(tǒng)功能本系統(tǒng)具備如下功能模塊：會(huì)員管理模塊：為了方便用戶購(gòu)買商品，設(shè)立了會(huì)員功能，用戶成為會(huì)員可以對(duì)自己的資料進(jìn)行管理，并且可以集中管理自己的訂單.購(gòu)物車處理模塊：作為網(wǎng)上商城系統(tǒng)必不可少的選擇商品環(huán)節(jié)，為了滿足用戶的購(gòu)物需求，設(shè)立了購(gòu)物車功能.商品查詢和快速分類功能：為了方便用戶購(gòu)買，.訂單處理模塊：管理員不僅可以隨時(shí)查看系統(tǒng)訂單信息，而且可以處理訂單狀態(tài).訂單處理完畢后可以刪除訂單.商品管理模塊：可以把不再銷售的商品刪除；可以對(duì)正在銷售商品信息進(jìn)行修改；可以隨時(shí)添加新的商品.系統(tǒng)結(jié)構(gòu)圖如圖41所示：圖41 系統(tǒng)結(jié)構(gòu)圖 客戶端 收藏架 在設(shè)計(jì)收藏架中，首先要考慮到的是收藏架中商品信息的存儲(chǔ)，而且在整個(gè)的商品購(gòu)買中沒有改變，這里就要用到ASP中的內(nèi)置Session組件，它是訪問者從的到達(dá)某個(gè)特定主頁(yè)到離開為止的那段時(shí)間，服務(wù)器端給他分配一個(gè)用來儲(chǔ)存信息的全局變量的集合，這些變量可以自動(dòng)生成，也可以是程序人員在服務(wù)器端腳本程序中定義的. Session可以用來存儲(chǔ)訪問者的特定信息，無論什么時(shí)候用戶在我網(wǎng)站中選擇了一種商品，那么這種商品就會(huì)進(jìn)入收藏架，當(dāng)用戶準(zhǔn)備離開時(shí)， ，Session變量始終存在，當(dāng)用戶在應(yīng)用程序的頁(yè)之間跳轉(zhuǎn)時(shí)，存儲(chǔ)在Session對(duì)象中的變量也不會(huì)清除.在建立收藏架中，：ProductList = Session(ProductList)，通過函數(shù)PutToShopBag()將ProductList的值賦給Products，使用函數(shù)Split()將讀取到的字符串進(jìn)行分割，以得到購(gòu)物信息：Products = Split(Request(cpbm), , ). ／*建立收藏架的詳細(xì)代碼*/ ProductList = Session(ProductList) Products = Split(Request(cpbm), , ) For i=0 To UBound(Products) PutToShopBag Products(i), ProductList Next Session(ProductList) = ProductList /*函數(shù)PutToShopBag()代碼*/ % Sub PutToShopBag( cpbm, ProductList ) If Len(ProductList) = 0 Then ProductList = 39。 amp。 cpbm amp。 39。 ElseIf InStr( ProductList, cpbm ) = 0 Then ProductList = ProductList amp。 , 39。 amp。 cpbm amp。 39。 End If End Sub % 收藏架界面如下42圖所示：圖42 收藏架界面在我的收藏架中可操作的事件為： 修改：在數(shù)量項(xiàng)目文本框中可以更改數(shù)目，該事件是用以更新收藏架中的商品數(shù)量； 刪除：該事件清空收藏架；下一步：該事件是用來關(guān)閉窗口并重新打開新的窗口. 除了收藏架中的可視化操作外，還有就是商品購(gòu)入事件（即在網(wǎng)上商店的點(diǎn)擊購(gòu)買的事件）.現(xiàn)在我們稱這些事件是用來觸發(fā)購(gòu)物籃中的工作模式，在每次的觸發(fā)模式時(shí)，（）各工作模式的具體實(shí)現(xiàn)：（1）Add模式（購(gòu)買添加）： 用戶點(diǎn)擊他想購(gòu)買的商品的“訂購(gòu)”鏈接時(shí)，通過調(diào)用函數(shù)OpenBag(),“訂購(gòu)”，如下 例：function openbag(id) {(?cpbm=+id,height=200,width=600,left=190,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no)。}在該觸發(fā)事件觸發(fā)時(shí)， 對(duì)購(gòu)物車執(zhí)行了這次添加后，大部分其余的ASP代碼就不再執(zhí)行，因?yàn)樗鼞?yīng)用于其他的工作模式，模式的選擇都是采用IF語(yǔ)句來實(shí)現(xiàn)的，.（2）Record模式（更新數(shù)量）： 該模式用于顧客項(xiàng)購(gòu)買多件貨物時(shí)，.如下面的語(yǔ)句：Sum = 0 While Not Quatity = CInt( Request( Q_ amp。 rs(Product_Id)) ) If Quatity = 0 Then Quatity = CInt( Session(rs(Product_Id)) ) If Quatity = 0 Then Quatity = 1 end if End If Session(rs(Product_Id)) = QuatitySum = Sum + ccur(rs(P_NewPrice)) * Quatity 在輸入文本框中時(shí)，該程序?qū)?duì)其輸入的值進(jìn)行判斷，是否是數(shù)字的字符，以避免存儲(chǔ)出錯(cuò)，(采用Javascript腳本語(yǔ)言編寫)：//功能介紹：檢查是否為數(shù)字//參數(shù)說明：要檢查的數(shù)字//返回值：1為是數(shù)字，0為不是數(shù)字function fucCheckNUM(NUM){ var i,j,strTemp。 strTemp=0123456789。 if ( == 0) return 0 for (i=0。i。i++) { j=((i))。 if (j==1) { //說明有字符不是數(shù)字 return 0。 } } //說明是數(shù)字 return 1。}這種預(yù)先判斷的處理方式，很大的程度上解決了非法輸入對(duì)后面的存儲(chǔ)所帶來的一系列問題.（3）DelAll模式（清空購(gòu)物籃）： 這個(gè)是對(duì)購(gòu)物籃的商品進(jìn)行清空的處理，其實(shí)就是對(duì)全局變量ProductList賦空值(Session(ProductList) = ).通過調(diào)用函數(shù)clean().LinkTo模式（去收銀臺(tái)） onclick==39。39。()。 ，只能通過確認(rèn)更改來實(shí)現(xiàn). 會(huì)員注冊(cè)成為本網(wǎng)站會(huì)員，可享受最低九五折優(yōu)惠，會(huì)員注冊(cè)頁(yè)面頁(yè)面如圖43所示：圖43 會(huì)員注冊(cè)頁(yè)面 在會(huì)員注冊(cè)中，首先是檢查該顧客所申請(qǐng)的用戶名是否以被人申請(qǐng)了，若已被人申請(qǐng)了該用戶名，則系統(tǒng)將提示給用戶“該用戶名已存在”：set rs=()sqltext=select * from RegUser where UserId=39。 amp。 (uid) amp。 39。 sqltext,conn,1,1 查找數(shù)據(jù)庫(kù)，檢查用戶名是否已經(jīng)注冊(cè)過if = 1 then if rs(userid)=(uid) then ?msg=此用戶名已經(jīng)注冊(cè)過，請(qǐng)選用其他用戶名! end ifend if 之后進(jìn)入用戶詳細(xì)資料登記的頁(yè)面（），如圖44所示：圖44 用戶詳細(xì)登記頁(yè)面 ，它將使用大量的Javascript的語(yǔ)言開發(fā)的程序，：圖45 用戶詳細(xì)登記錯(cuò)誤提示 在用戶登記個(gè)人的詳細(xì)資料時(shí)，仍然使用ASP中的Recordset的對(duì)象，對(duì)數(shù)據(jù)庫(kù)進(jìn)行添加的操作，其方法如下：rs(UserId)=(uid)rs(PassWD)=(pwd)rs(WtPass)=(question)rs(DaPass)=(answer)rs(Name)=(Name)rs(Sex)=(Sex)rs(Email)=(Email)rs(Phone)=(usephone)rs(Address)=(haddr)rs(Zip)=(postcode)%%set rs_detail=()sqltext2=select * from RegUser where UserId=39。 amp。 (uid) amp。 39。 sqltext2,conn,1,1申請(qǐng)成功后進(jìn)入提示界面，告訴用戶已經(jīng)申請(qǐng)成功，如圖46所示： 圖46 申請(qǐng)成功后的提示界面 商品查詢 商品查詢可以按照商品名、型號(hào)、.(1) 會(huì)員查詢，首先登錄會(huì)員，會(huì)員查詢方式如下： ：While Not set rs_class_2=() sqltext3=select * from Class_2 where Class_1_Name=39。 amp。 rs_class_1(Class_1_Name) amp。 39。 sqltext3,conn,1,1如果在文本輸入框中輸入了商品名稱，：ProductClass_2=request(ProductClass_2)set rs=()sqltext=select * from Product if request(Product_Name) then sqltext=sqltext amp。 where Product_Name like 39。%amp。 request(Product_Name) amp。%39。 else sqltext=sqltext amp。 where Product_Name like 39。%amp。 amp。%39。 end if if request(Product_Class