電子商務(wù)課程設(shè)計(jì)—購(gòu)物網(wǎng)站(參考版)
2024-11-05 14:18本頁面
【正文】 _ ORDER BY prodNo Set objRs = () strRs, Application(strCn), 2, 2 strOrderNum = objRs(orderNo) % html body h2 align=center style=color:ee1090確認(rèn)訂單 /h2 hr form method=post action=?ONo=% = strOrderNum % table align=center tr th width=160產(chǎn) 品 名 稱 /th th width=100 align=right單價(jià) /th th width=60 align=right數(shù)量 /th th width=100 align=right小計(jì) /th th width=60/th /tr % intI = 0 Do Until objRs(unitPrice) = objRs(price) % tr td% = objRs(descript) %/td td align=right% = FormatNumber(objRs(unitPrice), 0) %/td td align=right input type=text name=cqty value=% = objRs(qty) % size=3/td td align=right% lngSubTot = objRs(qty) * _ objRs(unitPrice) lngTotal = lngTotal + lngSubTot strSubTot = FormatNumber(lngSubTot, 0) (strSubTot) %/td td align=rightinput type=submit name=update% =CStr(intI) % value=更新 /td /tr % intI = intI + 1 Loop % trtd height=10 colspan=5/td/tr tr td colspan=3 align=right本單金額合計(jì)： /td td align=right % lngTotal = calcDis(lngTotal) objRs(totalPrice) = lngTotal (FormatNumber(lngTotal, 0)) Set objRs = Nothing % /td td/td /tr trtd height=15 colspan=5/td/tr tr align=center td colspan=5 input type=submit name=confirm value= 確 定 /td /tr /table /form % Call showLogo % /body /html 數(shù)據(jù)庫(kù)的設(shè)計(jì) 數(shù)據(jù)庫(kù)各種字符設(shè)置，如下表 表 名稱 字符類型 NULL 用戶名 Char NOT NULL 密碼 Char NOT NULL 姓名 Char NOT NULL 地址 Char NOT NULL 郵箱 Char NULL 性別 Char NULL 年齡 Char NULL 電話 Char NULL 4 系統(tǒng)實(shí)現(xiàn) 網(wǎng)站首頁 。N39。 amp。 _ WHERE shopNo = amp。 _ LEFT JOIN product amp。 _ FROM (orders LEFT JOIN orderDetail amp。 strRsOpen, Application(strCn), 2, 2 For intI = 0 To UBound(strListArray) If strListArray(intI) = objRs3(descript) Then Exit For End If Next If intI UBound(strListArray) Then objRs2(checkStatus) = 0 objRs2(qty) = 0 Else objRs2(checkStatus) = 1 If objRs2(qty) = 0 Then objRs2(qty) = 1 End If objRs2(unitPrice) = objRs3(price) lngTotal = lngTotal + objRs2(qty) * objRs2(unitPrice) Wend lngTotal = calcDis(lngTotal) objRs1(totalPrice) = lngTotal objRs1(lastDate) = Date() Set objRs1 = Nothing Set objRs2 = Nothing Set objRs3 = Nothing If Request(submitbtn) = 整 理 訂 單 Then () Else () End If End If % html body center h2 style=color:1080ee% = strMsg %/h2 hr /center % Call showLogo % /body /html 5．訂單整理 ! include file=proc/ % Dim objRs, strRs Dim strUserNo, strOrderNum Dim intI, lngSubTot, lngTotal, strSubTot strUserNo = CStr((user)(lngNo)) lngTotal = 0 strRs = SELECT orderNo, prodNo, descript, qty, amp。 objRs2(ProdNo) amp。 39。 Set objRs1 = () strRs1, Application(strCn), 2, 2 If Then strMsg = 訂單內(nèi)并無資料，歡迎繼續(xù)購(gòu)物！ Set objRs1 = Nothing Else Set objRs2 = () Set objRs3 = () strRs2 = strRs2 amp。 _ FROM product amp。 _ WHERE orderNum = 39。 strRs2 = SELECT * amp。 AND status = 39。 _ WHERE shopNo = amp。 Set objRs = () strRs, Application(strCn) % center form metho
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1