【正文】 ImageFile= ElseIf action=modify Then sql = Select * From Goods Where id=amp。 （ 4）設(shè)置 查找， 更新 或刪除 字段 goodscheck的 SQL語句。 Dim id,iname id =(id) action=trim(lcase(Request(Action))) （ 2）檢查商品序 號是否為空，為空，則轉(zhuǎn)（ 6）。管理員單擊商品管理界面中的商品列表選項(xiàng)，然后單擊已驗(yàn)證鏈接，將暫停發(fā)布該商品；單擊商品的未驗(yàn)證鏈接，將允許發(fā)布該商品。替換特定字符的功能由 Dochar()函數(shù)實(shí)現(xiàn)，它包含在 。 添加商品時(shí)，需要過濾商品名稱和商品介紹。該頁面也是修改商品信息的界面， 如圖 南昌航空大學(xué)學(xué)士學(xué)位論文 44 圖 添加商品界面 首先設(shè)置所有商品信息為空，其實(shí)顯示表單及商品類型，顯示圖片，顯示添加商品界面。 添加商品界面允許用戶填寫商品信息。 單擊刪除鏈接， 參數(shù) action為 delete,同時(shí)傳遞此時(shí)的商品序號 a href=?id=%=rs(id)%amp。 單擊修改鏈接， 參數(shù) action為 modify,同時(shí)傳遞此時(shí)的商品序號 a href=?id=%=rs(id)%amp。Goods表中的 Image字段不保存圖片文件的數(shù)據(jù)，只保存圖片文件的名稱。 電子商城 系統(tǒng)提供了如下管理商品的功能：添加新商品，處理新商品入庫，瀏覽商品，修改商品信息，刪除商品信息。 （ 4）結(jié)束。 （ 2）獲取刪除類別下是否有小類，存在小類，則轉(zhuǎn)（ 4） 。依據(jù)其 值執(zhí)行刪除操作。然后單擊刪除按鈕，即可刪除該商品類別。 本系統(tǒng)允許管理員刪除商品大類和小類類別，但是刪除的商品類別下不能有小類。 （ 6）執(zhí)行更新 SQL語句，轉(zhuǎn)（ 7）。 （ 4）獲取 所屬類別下小類數(shù)目。 （ 2）新類別的名稱為空，則轉(zhuǎn)（ 7）。然后輸入添加的商品類別名稱，單擊添加即可。 本系統(tǒng)允許管理員添加商品大類類別和添加小類，但是添加的類別標(biāo)識由系統(tǒng)自行設(shè)定。 （ 8） 執(zhí)行更新語句 。 （ 6） 執(zhí)行更新 SQL語句，則轉(zhuǎn)（ 9） 。 南昌航空大學(xué)學(xué)士學(xué)位論文 42 （ 4） 若不存在該類別，獲取所屬類別下的小類別 。 （ 2） 判斷新類別與原來類別是否相同，相同則轉(zhuǎn)（ 7） 。 Action為操作類型，其值為 update,id為商品類別的序號。 option value=%=rs(Type)%%=rs(Name)%/option 顯示商品類別 。另外，兩個(gè) hidden屬性的 modifyid和 oldtype控件分別記錄類別的序號和所屬類別。輸入修改后的商品名稱，單擊修改按鈕即可。 本系統(tǒng)只允許管理員修改商品所屬的類別，以及商品類別的名稱。假設(shè)商品大類類別序號為“ TypeID” ,其下的小類類別即 Type字段中形同 TypeIDamp。如使用 “ 01”表示商品的硬件大類，則可以使用“ 0101”表示硬件類別下的“顯示器”小類。商品 類別 管理界面如圖 圖 商品類別管理界面 瀏覽商品 類別需要了解商品類別的數(shù)據(jù)結(jié)構(gòu)，不同的商品類別 使用不同長度的字符表示，商品大類使用兩位字符表示，該大類下的小類使用 4位字符表示，南昌航空大學(xué)學(xué)士學(xué)位論文 41 依次類推。本系統(tǒng)允許管理員添加，修改和刪除大類，并在每個(gè)大類下面添加，修改，刪除小類。下面是顯示管理菜單的部分代碼： If IsAdmin(Session(userid)) Then tr 南昌航空大學(xué)學(xué)士學(xué)位論文 40 tdfont color=000080公告管理 /font/td /tr 其他顯示項(xiàng)目以此類推。 管理菜單擁有多個(gè)子菜單，有些子菜單只有系統(tǒng)管理員才能看到。否則返回 False。 （ 2）若存在該用戶，獲取該用戶的權(quán)限值 。 If trim(rs_admin(PWD))=Session(Password) and rs_admin(Allow)=1 Then 判斷密碼是否正確及權(quán)限是否為 1。 （ 3）判斷該用戶權(quán)限值是否為 1，為 1，則返回 True。39。amp。 % Function DoChar(str) str=Lcase(str) changechr = replace(str, ,) changechr = replace(changechr ,%, ) changechr = replace(changechr ,select, ) 其他字符以此類推 Dochar=changechr End Function % IsAdmin()函數(shù)實(shí)現(xiàn)流程如下： （ 1）檢查是否存在該用戶，不存在，則返回 False。如下過濾方式使用 HTML中的空格“ amp。 Dochar(User)函數(shù)的功能為過濾特殊字符。否，則返回 False。 IsAdmin(User)函數(shù)判斷當(dāng)前用 戶是否為系統(tǒng)管理員：是，則返回 True。在其他文件中也需要判斷當(dāng)前用戶是否為管理員，因此把判斷當(dāng)前用戶是否為管理員的操作做成函數(shù)可方便使用?！? ’” 商品 庫存量減去成功購買數(shù)量為當(dāng)前庫存量 。 Sql=” update goods set 庫存 =庫存 num where goodscheck=” 1” and ShopID=’” amp。Session(“ userid” )amp。Session(“ userid” )amp。代碼如下： If v_pstatus=” 20” then If v_amount=Session(“ total” ) then 如果用戶支付金額等于總價(jià) 款，表示交易成功，則更新所有訂單的已付款，已付款金額等于商品總價(jià) 。 單擊確定訂單信息界面的提交按鈕，進(jìn)入網(wǎng)銀 在線付款界面，用戶付款后，如果返回支付狀態(tài)為 20，則表示支付成功 ,同時(shí)更新商品庫存 ；否則表示付款失敗或出現(xiàn)問題。39。?total=amp。post39。 address=rsaddress(Address) UserName=rsaddress(UserName) Telephone=rsaddress(Telephone) （ 3）顯示用戶信息 。 從 users表中查詢 session保存的用戶的姓名，地址，聯(lián)系電話 。Session(userid)amp。 sql=select UserName,Address,Telephone from Users where UserID=39。rs(ShopName)amp。 39。 amp。) 單擊在線付款鏈接，顯示確認(rèn)訂單信息界面，如圖 圖 確認(rèn)訂單信息界面 南昌航空大學(xué)學(xué)士學(xué)位論文 36 ，過程如下： （ 1）計(jì)算所有訂單價(jià)款總額和商品名稱。MakeOrderNumber(GoodsId )amp。,39。Now()amp。,39。,amp。,amp。,amp。,amp。nameamp。,39。Session(UserName)amp。_values(39。GoodsID 從 shop_list表中找到訂單正處理的商品 if =False Then 如果找到訂單正處理的商品，說明交易未完成 (該商品已經(jīng)購買過，還沒有成功交易！請刪除原有商品后重新購買！ ) （ 3）添加訂單。如果用戶需要再次購買該商品，需要?jiǎng)h除購物車內(nèi)已購買的商品，然后購買該商品。 （ 2）判斷用戶是否購買過該商品。 subTotal = SalePrice * Num 計(jì)算金額 =定價(jià) *數(shù)量 。 name= Request(shopname) 獲取商品名 。 GoodsId = Request(shopId) 獲取商品序號 。 在購買商品后，需要 把用戶名，商品序號，購買數(shù)量，商品價(jià)格，購買總價(jià)，以及訂單號放入購物車。539。Quantity39。TEXT39。 _39。saleprice= amp。 rs(ID) amp。 amp。?shopname= amp。Bottom39。POST39。 /TD 讀取數(shù)據(jù)表的字段名稱以作為表格的標(biāo)題 。 For I = 0 To 1 TD amp。 Sql= SELECT ID,Name,Sn_Number,Producer,SalePrice, 折扣 ,Content FROM Goods where goodscheck=true and ID=amp。 goodsid=(id) 獲取商品編號 。 （ 1） 獲取用戶 ID，商品編號 。 a href=Goods/?id=%=rsGoods(id)%img border=0 src=images//a 把獲取的 ID值傳遞給鏈接的網(wǎng)頁中 。 tr td商品名稱 %=rsGoods(Name)%/td /tr 顯示記錄集中獲得的商品名稱，其他信息以此類推 。 If not iname = “” Then 圖片名不為空，則顯示圖片信息 。 Goods表的 ImgaeFile字段保存圖片的相對路徑和名稱，電子商城 系統(tǒng)把上傳的商品圖片保存 在 images文件夾下。39。 amp。 (sql) （ 4） 顯示商品類型。 sql = Update Goods Set ReadCount=ReadCount+1 Where ShopID=amp。 If Then 指針知道最后一條記錄，仍找不到符合條件的商品，則顯示沒有此商品信息 。Cint(ShopID) 從 goods表中查詢貨物為以驗(yàn)證， ShopID為（ 1）中獲取的 ShopID值 。 （ 2） 查詢該商品是否存在，不存在，則結(jié)束。 單擊 商品的 按鍵，顯示商品的詳細(xì)信息，包括用戶對商品的 投訴 ，以及解決問題的方案，如圖 南昌航空大學(xué)學(xué)士學(xué)位論文 32 圖 商品詳細(xì)信息 界面 實(shí)現(xiàn)瀏覽商品功能的文件為 ,顯示商品界面的流程如下 ： （ 1） 獲取商品序號并連接數(shù)據(jù)庫。關(guān)注排行榜的查詢 SQL語句如下： sql = Select ID,Name,ReadCount as ShopCount,Sn_Number From Goods order by ReadCount DESC 瀏覽和購買商品 瀏覽商品即顯示商品的信息，以方便用戶購買商品。 If not Or Then 在指針沒有知道第一行或最后一行時(shí)，就找到了符合條件的記錄，則輸出商品信息 ： tr tda href=../?id=%=rs(id)%%=rs(Sn_Number)%/a/tdtd%=rs(Name)%/tdtd%=rs(ShopCount)%/td /tr 循環(huán)輸出 。實(shí)現(xiàn)代碼如下： sql = Select ID,Name,BuyCount as ShopCount,Sn_Number From Goods order by BuyCount DESC 從 goods表中查詢商品排行，按購買次 數(shù)的降序排列 。 南昌航空大學(xué)學(xué)士學(xué)位論文 31 銷售排行榜依據(jù)商品的購買次數(shù)進(jìn)行降序排序，即購買次數(shù)多的商品排在前面，購買次數(shù)少的商品排在后面。 If Then Exit For If i=1 Then nCurseStart=(ID) nCurseEnd=(ID) tr td%=rs(Sn_Number)%/td tda href=?id=%=rs(id)%%=rs(name)%/a/td td%=rs(SalePrice)%元 /td /tr 信息統(tǒng)計(jì) 電子商城 系統(tǒng)提供了兩種信息統(tǒng)計(jì)方法，即銷售統(tǒng)計(jì)和瀏覽統(tǒng)計(jì)。 Set rs= (Sql) 顯示頁中所有記錄 。 End If （ 3） 執(zhí)行查詢。 gname amp。 and Name Like 39。 If Not(isNull(gname) Or Len(gname)=0) Then 不為空，則在數(shù)據(jù)庫中查詢與輸入字段相同的商品名稱 。%39。 amp。 南昌航空大學(xué)學(xué)士學(xué)位論文 30 SearchSql = SearchSqlamp。 If typeid= Then 如果商品類型編號為空，顯示所有商品信息 。 （ 2） 生成查詢條件。 簡單查詢功能主要由 ，實(shí)現(xiàn)流程如下。 Set rs=(Sql) If Not Then 判斷是否存在商品，存在則把商品加入下拉列表框 。該界面主要包含商品類型和商品名稱。 南昌航空大學(xué)學(xué)士學(xué)位論文 27 圖 瀏覽和購買商品模塊程序流程圖 開始 用戶登錄 購物車 發(fā)送信息 購物確認(rèn) 購物完成 N Y 發(fā)送購買數(shù)量，總價(jià)格，及折扣等信息 N N 商品瀏覽 購買商品 在線支付 Y Y N Y Y 南昌航空大學(xué)學(xué)士學(xué)位論文 28 商品查詢界面 商品 的簡單查詢依 據(jù)商品類別和名稱查