【正文】 ss) UserName=rsaddress(UserName) Telephone=rsaddress(Telephone) （ 3）顯示用戶信息 。 (form method=39。post39。 action=39。?total=amp。Totalamp。39。) TR TD ALIGN=Center訂單信息 /TD/TR TRTD商品名稱： U%= Name %/U/TD/TR TRTD貨款： U%= Total %元 /U/TD/TR 南昌航空大學(xué)學(xué)士學(xué)位論文 37 TRTD收貨地址 font color=FF0000*/font： Uinput type=text name=address size=20 value=%=address%/U/TD/TR 聯(lián)系電話與收貨 地址代碼同上。 單擊確定訂單信息界面的提交按鈕，進(jìn)入網(wǎng)銀 在線付款界面，用戶付款后，如果返回支付狀態(tài)為 20，則表示支付成功 ,同時(shí)更新商品庫(kù)存 ；否則表示付款失敗或出現(xiàn)問(wèn)題。 20的情況。代碼如下： If v_pstatus=” 20” then If v_amount=Session(“ total” ) then 如果用戶支付金額等于總價(jià) 款，表示交易成功，則更新所有訂單的已付款，已付款金額等于商品總價(jià) 。 Sql=” update shop_list set YIFUKUAN=TotalCost where check=” 1” and User=’” amp。Session(“ userid” )amp?！? ’” Sql=” select num from shop_list check=” 1” and User=’” amp。Session(“ userid” )amp?！? ’” 獲取購(gòu)買數(shù)量 。 Sql=” update goods set 庫(kù)存 =庫(kù)存 num where goodscheck=” 1” and ShopID=’” amp。Session(“ ShopID” )amp。” ’” 商品 庫(kù)存量減去成功購(gòu)買數(shù)量為當(dāng)前庫(kù)存量 。 管理界面 單擊用戶管理中心界面的“管理界面 ” 鏈接，進(jìn)入管理界面，如圖 圖 管理界面 南昌航空大學(xué)學(xué)士學(xué)位論文 38 在該系統(tǒng)中，只有系統(tǒng)管理員和普通管理員才可以進(jìn)入管理界面時(shí)，需要判斷用戶的權(quán)限。在其他文件中也需要判斷當(dāng)前用戶是否為管理員，因此把判斷當(dāng)前用戶是否為管理員的操作做成函數(shù)可方便使用。在介紹管理界面菜單前，現(xiàn)介紹有關(guān)函數(shù)。 IsAdmin(User)函數(shù)判斷當(dāng)前用 戶是否為系統(tǒng)管理員：是，則返回 True。否，則返回 False. IsUser(User)函數(shù)判斷當(dāng)前用戶是否為普通管理員：是，則返回True。否，則返回 False。 在這兩個(gè)函數(shù)中都要過(guò)濾特殊字符，以防止非法用戶攻擊。 Dochar(User)函數(shù)的功能為過(guò)濾特殊字符。這些函數(shù)都保存在 ，使用這些函數(shù)之前需要包含該文件，包含代碼如下： !include File= Dochar(User)函數(shù)可以過(guò)濾單引號(hào)“ %” ,回車鍵，“ ” ,“ ” ,并且可以根據(jù)需要過(guò)濾其他字符。如下過(guò)濾方式使用 HTML中的空格“ amp。nbsp” ,代替原有的字符。 % 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。 南昌航空大學(xué)學(xué)士學(xué)位論文 39 user=DoChar(user) sql_admin = Select PWD,Allow From users where usercheck=true and UserID=39。amp。useramp。39。 Set rs_admin=(sql_admin) If Then IsAdmin=false （ 2）若存在該用 戶，獲取該用戶的權(quán)限值。 （ 3）判斷該用戶權(quán)限值是否為 1，為 1，則返回 True。否則返回 False。 If trim(rs_admin(PWD))=Session(Password) and rs_admin(Allow)=1 Then 判斷密碼是否正確及權(quán)限是否為 1。 IsAdmin=true else IsAdmin=false End If IsUser()函數(shù)的實(shí)現(xiàn)流程如下： （ 1）檢查是否存在該用戶，不存在，則返回 False。 （ 2）若存在該用戶，獲取該用戶的權(quán)限值 。 （ 3）判斷該用戶權(quán)限值是否為 1，為 1，則返回 True。否則返回 False。代碼與 IsAdmin()函數(shù)實(shí)現(xiàn)代碼類似 。 管理菜單擁有多個(gè)子菜單，有些子菜單只有系統(tǒng)管理員才能看到。因此在顯示這些子菜單前需要判斷當(dāng)前用戶是否為系統(tǒng)管理員。下面是顯示管理菜單的部分代碼： If IsAdmin(Session(userid)) Then tr 南昌航空大學(xué)學(xué)士學(xué)位論文 40 tdfont color=000080公告管理 /font/td /tr 其他顯示項(xiàng)目以此類推。 商品類別分類 電子商城 系統(tǒng)對(duì)商品進(jìn)行分類管理，包括硬件，軟件等大類，每個(gè)大類還有小類 。本系統(tǒng)允許管理員添加，修改和刪除大類，并在每個(gè)大類下面添加，修改，刪除小類。本系統(tǒng)只允許管理員 管理商品類別 。商品 類別 管理界面如圖 圖 商品類別管理界面 瀏覽商品 類別需要了解商品類別的數(shù)據(jù)結(jié)構(gòu)，不同的商品類別 使用不同長(zhǎng)度的字符表示，商品大類使用兩位字符表示，該大類下的小類使用 4位字符表示，南昌航空大學(xué)學(xué)士學(xué)位論文 41 依次類推。小類的類別表示是在所屬商品類別標(biāo)識(shí)基礎(chǔ)上，加上兩位字符構(gòu)成，這兩位字符表表示該小類在所屬商品類別中的排列順序。如使用 “ 01”表示商品的硬件大類，則可以使用“ 0101”表示硬件類別下的“顯示器”小類。 GoodsType表保存商品類別信息， Type字段保存商品類別信息。假設(shè)商品大類類別序號(hào)為“ TypeID” ,其下的小類類別即 Type字段中形同 TypeIDamp。_“ _”的記錄；如果 TypeID為空，則查詢所有商品的大類類別信息。 本系統(tǒng)只允許管理員修改商品所屬的類別，以及商品類別的名稱。在商品類別管理界面中，管理員單擊商品的類別，在修改按鈕行選擇商品類別所屬的商品大類。輸入修改后的商品名稱，單擊修改按鈕即可。 修改時(shí)，管理員需要選 擇商品所屬大類和輸入修改后的類別名稱，因此需要添加這兩項(xiàng)功能的控件。另外，兩個(gè) hidden屬性的 modifyid和 oldtype控件分別記錄類別的序號(hào)和所屬類別。 sql = Select * From GoodsType order by id Set rs=(Sql) If Then 在 GoodsType表中查找到符合的類別 。 option value=%=rs(Type)%%=rs(Name)%/option 顯示商品類別 。 Loop End If 修改表單顯示提交的 URL，其中包含 id和 action兩個(gè)參數(shù)。 Action為操作類型，其值為 update,id為商品類別的序號(hào)。依據(jù)這兩項(xiàng)可以更新商品類型，流程如下： （ 1） 獲取更新的相關(guān)參數(shù) 。 （ 2） 判斷新類別與原來(lái)類別是否相同，相同則轉(zhuǎn)（ 7） 。 （ 3） 查詢所屬類別大類下是否存在該類別，存在該類別名稱，則轉(zhuǎn)（ 9） 。 南昌航空大學(xué)學(xué)士學(xué)位論文 42 （ 4） 若不存在該類別，獲取所屬類別下的小類別 。 （ 5） 小類數(shù)目小于 10，新類別名稱加字符“ 0”，以使名稱達(dá)到兩位 字符 。 （ 6） 執(zhí)行更新 SQL語(yǔ)句，則轉(zhuǎn)（ 9） 。 （ 7） 查詢所屬類別是否存在該類別名，存在相同名稱，則轉(zhuǎn)（ 9） 。 （ 8） 執(zhí)行更新語(yǔ)句 。 （ 9） 結(jié)束。 本系統(tǒng)允許管理員添加商品大類類別和添加小類，但是添加的類別標(biāo)識(shí)由系統(tǒng)自行設(shè)定。在商品管理界面中，管理員在添加按鈕行選擇商品類別所屬的商品類別。然后輸入添加的商品類別名稱，單擊添加即可。添加商品類別的流程如下 ： （ 1）獲取更新的相關(guān)參數(shù)。 （ 2）新類別的名稱為空，則轉(zhuǎn)（ 7）。 （ 3）查詢所屬類別下是否存在該類別名稱，存在該類別名稱，則轉(zhuǎn)（ 7）。 （ 4）獲取 所屬類別下小類數(shù)目。 （ 5） 小類數(shù)目小于 10，在新類別名稱加“ 0”以使名稱為兩位字符。 （ 6）執(zhí)行更新 SQL語(yǔ)句，轉(zhuǎn)（ 7）。 （ 7）結(jié)束。 本系統(tǒng)允許管理員刪除商品大類和小類類別，但是刪除的商品類別下不能有小類。在商品管理界面中，管理員選擇刪除的商品類別。然后單擊刪除按鈕，即可刪除該商品類別。在刪除表單中，提交的 URL中只包含一個(gè)參數(shù) action，其值為 delete。依據(jù)其 值執(zhí)行刪除操作。流程如下： （ 1）獲取刪除類別的標(biāo)識(shí)。 （ 2）獲取刪除類別下是否有小類，存在小類，則轉(zhuǎn)（ 4） 。 （ 3）執(zhí)行刪除 SQL語(yǔ)句 。 （ 4）結(jié)束。 商品管理 南昌航空大學(xué)學(xué)士學(xué)位論文 43 本系統(tǒng)允許系統(tǒng)管理員和驗(yàn)證用戶在登陸后管理商品。 電子商城 系統(tǒng)提供了如下管理商品的功能：添加新商品，處理新商品入庫(kù)，瀏覽商品，修改商品信息，刪除商品信息。商品管理界面如圖 圖 商品管理界面 新商品的所有信息保存在 goods表中，新商品的圖片保存在 images文件中。Goods表中的 Image字段不保存圖片文件的數(shù)據(jù)，只保存圖片文件的名稱。 單擊添加商品鏈接，會(huì)傳遞給所鏈接網(wǎng)頁(yè)一個(gè)參數(shù) action,此時(shí)的參數(shù)為 add,即為添加商品， a href=?action=add target=_blank添加商品 /a。 單擊修改鏈接， 參數(shù) action為 modify,同時(shí)傳遞此時(shí)的商品序號(hào) a href=?id=%=rs(id)%amp。action=modify target=_blank修改 /a。 單擊刪除鏈接， 參數(shù) action為 delete,同時(shí)傳遞此時(shí)的商品序號(hào) a href=?id=%=rs(id)%amp。action=delete target=_blank修改 /a。 添加商品界面允許用戶填寫(xiě)商品信息。該界面除了商品類型外，所有商品信息都為空。該頁(yè)面也是修改商品信息的界面， 如圖 南昌航空大學(xué)學(xué)士學(xué)位論文 44 圖 添加商品界面 首先設(shè)置所有商品信息為空，其實(shí)顯示表單及商品類型，顯示圖片，顯示添加商品界面。最后顯示商品信息。 添加商品時(shí)，需要過(guò)濾商品名稱和商品介紹。主要過(guò)濾 HTML和 JavaScript關(guān)鍵字，以防止非法用戶輸入非法代碼 。替換特定字符的功能由 Dochar()函數(shù)實(shí)現(xiàn)，它包含在 。 用戶提 交的商品需要管理員審核后才能發(fā)布，審核方法是設(shè)置 goods表中的goodscheck字段，該字段的值為 False，則暫停商品發(fā)布；為 True，則同意發(fā)布該商品。管理員單擊商品管理界面中的商品列表選項(xiàng)，然后單擊已驗(yàn)證鏈接，將暫停發(fā)布該商品；單擊商品的未驗(yàn)證鏈接，將允許發(fā)布該商品。審核流程如下： （ 1）獲取待審核的商品 序 號(hào)和審核類型。 Dim id,iname id =(id) action=trim(lcase(Request(Action))) （ 2）檢查商品序 號(hào)是否為空，為空，則轉(zhuǎn)（ 6）。 南昌航空大學(xué)學(xué)士學(xué)位論文 45 （ 3）審核類型轉(zhuǎn)換為成 True或 False。 （ 4）設(shè)置 查找， 更新 或刪除 字段 goodscheck的 SQL語(yǔ)句。 If action=add Then TypeId=0 Name= GoodsID=0 Producer= Package= SalePrice=0 Price=0 Content=暫時(shí)無(wú)該商品信息。 ImageFile= ElseIf action=modify Then sql = Select * From Goods Where id=amp。Cint(id) Set rsGoods = (sql) If Then 沒(méi)有此商品信息 End If TypeId=rsGoods(typeid) Name=rsGoods(name) GoodsID=rsGoods(Sn_Number) Pro