【文章內(nèi)容簡介】 p。Sexamp。,39。amp。addressamp。39。,39。amp。amp。39。,39。amp。_Request(telephone)amp。39。,39。amp。Request(mobile)amp。39。,amp。TypeUseramp。) 用戶管理中心模塊用戶登錄后，網(wǎng)站主頁的左側(cè)顯示用戶管理中心界面， 用戶管理中心界面其中功能有更改資料，更改密碼，客戶投訴，我的投訴，管理界面，購物車，退出登錄。該界面和用戶注冊界面相似，只不過界面的每個部分設(shè)置了用戶信息。 更改用戶信息界面其中關(guān)鍵性代碼為：sql = Select * From Users Where UserId=39。amp。userID amp。39。 and PWD=39。amp。Session(Password)amp。39。 設(shè)置查詢語句，為了保證安全需要密碼和用戶名都一致才可以修改。,實現(xiàn)流程如下：（1） 獲取修改后的用戶信息。（2） 檢查用戶信息是否完整，如果不完整，返回錯誤提示信息。（3） 修改數(shù)據(jù)庫中用戶信息。其中用了SQL的更新語句，以及用到了Request對象和Session對象。sql=Update Users Set UserName=39。amp。Request(username)amp。39。,Sex=amp。Sexamp。, amp。_ Address=39。amp。Request(address)amp。39。,Telephone=39。amp。Request(telephone)amp。39。,Mobile=39。amp。Request(mobile)amp。_ 39。,Email=39。amp。Request()amp。39。,Allow= amp。TypeUseramp。 Where UserId=39。amp。uid amp。39。 用此時在表格中獲取的數(shù)據(jù)去更新Users表中的相應(yīng)字段，條件是只更新指定的UserId。Session(UserName) = Request(username)Session(Address)=Request(address)Session(Email)=Request() 用此時表單中獲取的數(shù)據(jù)，去替代服務(wù)器中session此時保存的數(shù)據(jù)。單擊“更改密碼”鏈接，進入修改密碼界面， 更改用戶密碼界面修改用戶密碼需要用戶輸入原來的密碼，并輸入兩次新密碼。電子商城系統(tǒng)驗證當(dāng)前用戶名和當(dāng)前密碼是否一致，代碼如下：sql = Select * From Users Where UserId=39。amp。Session(userid)amp。39。 and PWD=39。amp。Session(Password)amp。39。 設(shè)置驗證用戶密碼和用戶名是否一致。 Set rs = (sql) 執(zhí)行SQL語句。If Then 指針指向最后一個位置，仍未發(fā)現(xiàn)一致的字段，則不能修改。 你無權(quán)修改！，實現(xiàn)流程如下。（1） 獲取密碼。UserId= (userid) 獲取用戶名。oldpwd= trim((oldpwd)) 獲取表單中輸入的密碼。（2） 檢查輸入密碼newpwd=trim((newpwd)) 獲取新密碼。If newpwd= Then result=resultamp。.font color=39。FF000039。用戶密碼不能為空！/fontBR 新密碼不能為空。confirmpwd=trim((confirmpwd)) 獲取輸入的確認密碼。If confirmpwdnewpwd Then result=resultamp。.font color=39。FF000039。兩次輸入的密碼不同！/fontBR 判斷確認密碼是否和輸入的新密碼相同。（3） 更新密碼(Update users set PWD=39。amp。newpwdamp。39。 where UserId=39。amp。UserIdamp。39。) 更新表users中的密碼，條件是只更新獲取的用戶名。Session(userid) = UserId 把此時獲得的用戶名，去更新Session中保存的用戶名。Session(Password) = newpwd 把此時獲得的密碼，去更新Session中保存的密碼。購物車即用戶所選中，但尚未付款成交的商品。用戶所選的商品保存在shop_list表中，User字段為保存購買商品的用戶，check字段保存商品是否成交的信息。因此通過查詢該表中User字段為當(dāng)前用戶，且字段Check0(0表示為未成交)的記錄，即可獲知用戶所買的商品。： 購物車界面（1） 查詢用戶所選中的商品。這些商品保存在shop_list表中，并且ShopCheck字段的值為“0”。Sql=SELECT ID,User,ShopName,Cost,Num,TotalCost,折扣,Time,ShopCheck,OrderNumber FROM shop_list WHERE ShopCheck=0 and user=39。 amp。 Session(userid) amp。 39。 列舉需要顯示的字段，查詢用戶所選中的商品。set rs=(Sql) 執(zhí)行SQL語句。（2） 判斷是否存在所選商品。如果查詢的結(jié)果為空，則該用戶沒有打算購買的商品。If Then 如果指針知道最后一個位置，仍然找不到符合要求的記錄，則提示購物車內(nèi)沒任何商品 CENTER P購物車內(nèi)沒任何商品！/P amp。 _PA HREF=39。39。產(chǎn)品類型/A/P/CENTER（3） 顯示表格的標(biāo)題。購物車界面以字段名稱為表格的標(biāo)題。 For I = 0 To – 1 列舉所有字段名稱，字段的序號和名稱保存在Fields字段中。 If (I).NameID Then 為安全起見，不顯示ID字段 TD amp。 (I).Name amp。 /TD End If Next TD刪除/TD（4）顯示購物車內(nèi)商品信息的代碼如下：For I = 0 To – 1 列舉所有字段名稱，字段的序號和名稱保存在Fields字段中。If (I).Name=ShopCheck Then 字段名為shopcheck時。If (I).Value=1 Then 當(dāng)shopcheck=1,訂單已處理。 Data = Data amp。 TD訂單已處理/TD ElseIf (I).Value=0 Then 當(dāng)shopcheck=0時,訂單正處理。 Data = Data amp。 TD訂單正處理/TD End If ElseIf (I).NameID Then 為安全起見，不顯示ID字段。 Data = Data amp。 TD amp。 (I).Value amp。 /TD End If Next Data TDA HREF=39。?ID= amp。 rs(ID) amp。 39。刪除/A/TD/TR ,傳遞ID字段信息。 Total = Total + rs(TotalCost)* 總價打八折。開始用戶登錄購物車發(fā)送信息購物確認購物完成NY發(fā)送購買數(shù)量，總價格，及折扣等信息NN商品瀏覽購買商品在線支付YYNYY 瀏覽和購買商品模塊程序流程圖 商品查詢界面商品的簡單查詢依據(jù)商品類別和名稱查詢所有符合條件的商品。 簡單查詢界面 詳細信息界面 簡略信息界面簡單查詢界面設(shè)置在首頁上，方便了用戶的查詢。該界面主要包含商品類型和商品名稱。商品類別通過GoodsType表獲取，實現(xiàn)代碼如下:sql = Select * From GoodsType 設(shè)置查詢商品類別信息的SQL語句。Set rs=(Sql)If Not Then 判斷是否存在商品，存在則把商品加入下拉列表框。Do While Not option value=%=rs(Type)%%=rs(name)%/option 在下拉列表框中顯示商品類型選項 。 ，實現(xiàn)流程如下。（1） 獲取查詢條件。（2） 生成查詢條件。typeid= Trim(Request(typeid)) 獲取商品類型編號。 If typeid= Then 如果商品類型編號為空，顯示所有商品信息。 typeid=all End IfIf typeidall Then 如果商品類型不為所有類型，則查詢指定商品序號。 SearchSql = SearchSqlamp。 and TypeId like 39。 amp。 typeidamp。%39。 End Ifgname = Trim(Request(name)) 獲取待查詢商品名稱。 If Not(isNull(gname) Or Len(gname)=0) Then 不為空，則在數(shù)據(jù)庫中查詢與輸入字段相同的商品名稱。 SearchSql = SearchSql amp。 and Name Like 39。% amp。 gname amp。 %39。 End If（3） 執(zhí)行查詢。（4） 顯示商品信息。Set rs= (Sql) 顯示頁中所有記錄。For i=1 to nPageSize 如果當(dāng)前頁為最后一頁，該頁顯示的記錄數(shù)目可能小于規(guī)定的記錄數(shù)目，因此當(dāng)當(dāng)前記錄為最后一條記錄時要終止顯示。If Then Exit ForIf 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)計電子商城系統(tǒng)提供了兩種信息統(tǒng)計方法，即銷售統(tǒng)計和瀏覽統(tǒng)計。通過這兩種方法，用戶可以方便地查看各種商品的銷售和瀏覽情況，指導(dǎo)自己的購買行為。銷售排行榜依據(jù)商品的購買次數(shù)進行降序排序，即購買次數(shù)多的商品排在前面，購買次數(shù)少的商品排在后面。商品保存在goods表中，其中BuyConut字段保存商品的銷售數(shù)量，通過查詢該字段的值獲取銷售排行榜。實現(xiàn)代碼如下：sql = Select ID,Name,BuyCount as ShopCount,Sn_Number From Goods order by BuyCount DESC 從goods表中查詢商品排行，按購買次數(shù)的降序排列。set rs=(sql) 執(zhí)行sql語句。If not Or Then 在指針沒有知道第一行或最后一行時，就找到了符合條件的記錄，則輸出商品信息：tr tda href=../?id=%=rs(id)%%=rs(Sn_Number)%/a/tdtd%=rs(Name)%/tdtd%=rs(ShopCount)%/td/tr 循環(huán)輸出。 loopEnd If關(guān)注排行榜依據(jù)商品的瀏覽次數(shù)進行降序排序，實現(xiàn)方法和銷售排行榜相同，只是查詢語句不同。關(guān)注排行榜的查詢SQL語句如下：sql = Select ID,Name,ReadCount as ShopCount,Sn_Number From Goods order by ReadCount DESC 瀏覽和購買商品瀏覽商品即顯示商品的信息，以方便用戶購買商品。電子商城系統(tǒng)提供了購物車在線付款功能，用戶可以輕松實現(xiàn)在線購買商品。單擊商品的按鍵，顯示商品的詳細信息，包括用戶對商品的投訴，以及解決問題的方案， 商品詳細信息界面,顯示商品界面的流程如下：（1） 獲取商品序號并連接數(shù)據(jù)庫。ShopID = (ShopID) 獲取商品序號。（2） 查詢該商品是否存在，不存在，則結(jié)束。sql = Select * From Goods Where goodscheck=true and ShopID=amp。Cint(ShopID) 從goods表中查詢貨物為以驗證，ShopID為（1）中獲取的ShopID值。 Set rsGoods = (sql) 執(zhí)行SQL語句。If Then 指針知道最后一條記錄，仍找不到符合條件的商品，則顯示沒有此商品信息。 沒有此商品信息（3） 更新商品的瀏覽次數(shù)。sql = Update Goods Set ReadCount=ReadCount+1 Where ShopID=amp。Cint(ShopID) 更新goods表中的商品瀏覽量，瀏覽量加1，只對應(yīng)于獲取的商品序號。(sql)（4） 顯示商品類型。 sql = SELECT * FROM