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