【文章內(nèi)容簡(jiǎn)介】 ,reqModify dim products, tempQuantity dim i, j dim Head 39。讀取參數(shù) reqProductID = (productID) 39。此句可以排除reqProductID為空和是非數(shù)字的情況 if Not IsNumeric(reqProductID) then reqProductID = 0 您所選夠的商品不存在，請(qǐng)重試…… end if reqClear = (clear) reqModify = (Modify) 39。如果reqProductID有效，剛將它加入到購(gòu)物車 if reqProductID 0 then PutToCart reqProductID, 1 end ifHead = 以下是您所選購(gòu)的物品清單 39。如果是清空購(gòu)物車命令，剛清空購(gòu)物車 If reqClear = yes Then Session(productList) = Session(quantityList) = End If 39。如果單擊了“確認(rèn)修改”，則按照當(dāng)前設(shè)置重新裝載購(gòu)物車 If reqModify = Yes Then Session(productList) = Session(quantityList) = 39。此處Form中的productID為每個(gè)商品對(duì)應(yīng)的復(fù)選框 39。 39。如果從表單提交的以個(gè)以上的同名參數(shù)，則值之間以英文逗號(hào)分隔 products = Split((productID), , ) For I = 0 To UBound(products) j = UBound(products)i tempQuantity = (quantityamp。products(j)) if tempQuantity = then tempQuantity = 1 PutToCart products(j), tempQuantity Next End If 39。 Session(productList) 39。 brbr 39。 Session(quantityList) 39。 brbr39。顯示購(gòu)物車 call ShowCart() % 提交訂單模塊設(shè)計(jì) 提交訂單模塊的功能主要由以下幾個(gè)文件來(lái)實(shí)現(xiàn)：(1)輸入用戶信息頁(yè)面：。(2)輸入用戶信息表單：。(3)確認(rèn)用戶信息頁(yè)面：。(4)確認(rèn)用戶信息表單：。(5)提交結(jié)果頁(yè)面：。(6)提交結(jié)果表單：。提交訂單過(guò)程就是一個(gè)填寫顧客信息，然后像OrderList和OrderDetail表中插入記錄的過(guò)程，一共分為3步。輸入信息界面如下面圖15：圖15 輸入信息界面圖下面圖16這頁(yè)是對(duì)上面用戶信息的確認(rèn)。圖16 對(duì)用戶上面的信息確認(rèn)圖最后確認(rèn)后完成此次訂單。代碼如下：%dim orderID 39。此為訂單編號(hào)，頁(yè)面級(jí)變量Sub SubmitOrder() dim cmdObj, rsObj, strSQL 39。防止反復(fù)刷新此頁(yè) if Session(productList) = then () end if 39。創(chuàng)建對(duì)象 Set cmdObj = () Set rsObj = () = SELECT top 1 * FROM OrderList ORDER by id desc = adCmdText () On Error Resume Next 39。開始事務(wù)，這里使用事務(wù)因?yàn)橄騉rderList和向OrderDetail表插入數(shù)據(jù)必須同時(shí)發(fā)生 Set = conn 39。打開記錄集 cmdObj, , adOpenStatic, adLockOptimistic 39。向OrderList表中添加數(shù)據(jù) if Session(memberID) then rsObj(memberID) = Session(memberID)else rsObj(memberID) = 0 39。非會(huì)員 end if rsObj(customerName) = (customerName) rsObj(address) = (address) rsObj(Zipcode) = (Zipcode) rsObj(phone) = (phone) rsObj() = () rsObj(payment) = (payment) rsObj(remark) = (remark) 39。尋找剛才添加的記錄，以獲取OrderList中的編號(hào) strSQL = SELECT top 1 * FROM OrderList ORDER by id desc 39。 aabr set rsObj = (strSQL) if or Err then bbbr 39。如果有錯(cuò)誤發(fā)生，則回滾 () 數(shù)據(jù)庫(kù)操作失敗，請(qǐng)a href = 39。Javascript:(1)39。返回/a else orderID = rsObj(id) 39。 ccbr 39。 orderID end if () 39。向OrderDetail表中添加數(shù)據(jù) dim Sum, productList, quantityArray, productArray, quantity dim iproductList = Session(productList) If Len(productList) 0 Then quantityArray = Split(Session(quantityList), , ) productArray = Split(Session(productList), , ) for i = 0 to UBound(productArray) strSQL = SELECT * FROM product WHERE id = amp。productArray(i) strSQL, conn, adOpenKeyset, adLockReadOnly if Not or err then quantity = quantityArray(i) If quantity = 0 Then quantity = 1 strSQL = INSERT INTO orderDetail (orderID, productID, productName, price,quantity) strSQL = strSQL amp。 VALUES( amp。 orderID amp。 , strSQL = strSQL amp。 productArray(i) amp。,39。 strSQL = strSQL amp。 rsObj(name)amp。 39。, strSQL = strSQL amp。 rsObj(memberPrice)amp。 , strSQL = strSQL amp。 quantityamp。) (strSQL) 39。更新購(gòu)買次數(shù) strSQL = Update product set buyNum = buyNum+1 WHERE id = amp。productArray(i) (strSQL) end if next else 39。如果購(gòu)物車為空，出錯(cuò) end if if Err then () 有錯(cuò)誤發(fā)生！，訂單沒(méi)有被提交，請(qǐng)重試br else 39。接受事務(wù) () 39。清空購(gòu)物車 Session(productList) = Session(quantityList) = End if 39。釋放對(duì)象，并將連接放入連接池 () Set rsObj = Nothing Set cmdObj = Nothing CloseConn() if Err then end if end sub 在線幫助模塊在線幫助模塊，即常見問(wèn)題模塊，它的功能主要由以下幾個(gè)文件來(lái)實(shí)現(xiàn)：(1)顯示常見問(wèn)題列表：。(2)常見問(wèn)題詳細(xì)內(nèi)容頁(yè)面：。(3)與常見問(wèn)題相關(guān)的基礎(chǔ)函數(shù)：。下面是常見問(wèn)題列表，從這里出發(fā)可以查看問(wèn)題答案。圖17 常見問(wèn)題列表圖常見問(wèn)題中售后服務(wù)問(wèn)題答案界面如圖18所示。圖18 常見問(wèn)題中售后服務(wù)問(wèn)題答案界面圖常見問(wèn)題中如何付款問(wèn)題答案界面如圖19所示。圖19 常見問(wèn)題中如何付款問(wèn)題答案界面圖常見問(wèn)題中如何付款問(wèn)題答案界面如圖20所示。圖20 常見問(wèn)題中送貨方式問(wèn)題答案界面圖部分程序代碼如下：! include file = include/! include file = include/! include file = include/HTMLHEAD! include file = include\/HEADBODY! 頁(yè)頭與菜單TABLE align = center cellSpacing = 0 cellPadding = 0 width = 750 border = 0 ID = tabMain class = tabframe TBODY TR TD % ShowHeadAndMenu() % /TD /TR /TBODY/TABLE! 頁(yè)面中間部分TABLE align = center cellSpacing = 0 cellPadding = 0 width = 750 border = 0 height = 411 ID = Table3 class = tabframeTBODYTR !左側(cè)頁(yè)面 TD vAlign = top align = middle width = 180 height = 411 table width = 95% ID = Table1trtd ! include file = include/ /td/tr/table /TD !右側(cè)頁(yè)面 TD vAlign = top align = right height = 411 ! 搜索表單 TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = 100% bgColor = 666666 borderColorLight = aaaaaa border = 1 ID = Table18 TBODYTR TD TABLE cellSpacing = 0 cellPadding = 0 width = 100% bgColor = ffffff border = 0 style = bordercollapse: collapse bordercolor = 111111 ID = Table19 TBODY TR TD bgColor = f0f8ff% call ShowSearchForm(, ) %/TD /TR/TBODY/TABLE /TR/TBODY/TABLE ! 常見問(wèn)題 TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = 100% bgColor = 666666 borderColorLight = aaaaaa border = 1 ID = Table2 TBODYTR TD TABLE cellSpacing = 0 cellPadding = 0 width = 100% bgColor = ffffff b