【文章內(nèi)容簡介】 記本的記錄信息 (Goods)：筆記本的 ID(id)、類型 ID (Typeid)、筆記本的名稱 (Name) 、筆記本編號 (Sn_Number)、生產(chǎn)公司 (Producer)、包裝型號(Package)、銷售價格（ SalePrice）、進貨價格（ StorePrice）、筆記本簡介（ Content）、入庫時間（ PostTime）、瀏覽次數(shù)（ ReadCount）購買次數(shù)（ BuyCount）、筆記本圖片（ ImageFile） 表 2 系統(tǒng)存儲筆記本電腦的表 (Goods) 列名 數(shù)據(jù)類型 長度 允許空 Id int 4 不允許空 Typeid int 4 是 Name Varchar 50 是 Sn_Number Varchar 50 是 Producer Varchar 50 是 Package Varchar 50 是 SalePrice Float 8 是 StorePrice float 8 是 Content Varchar 1000 是 PostTime datetime 8 是 ReadCount int 4 是 BuyCount int 4 是 ImageFile Varchar 100 是 2） 筆記本的類型信息 (Goodstype)： ID、類型名 (Type)。 表 3 系統(tǒng)中筆記本的類型表 Goodstype 列名 數(shù)據(jù)類型 長度 允許空 Id int 4 不允許空 Type varchar 50 是 3）存儲管理員的信息 (Admin)：管理員 ID（ AdminID） 、密碼 (passwd)、管理員名（ Name） 。 表 4 存儲管理員信息表（ Admin） 列名 數(shù)據(jù)類型 長度 允許空 AdminId varchar 20 不允許空 PassWd Varchar 20 是 Name Varchar 50 是 4） 筆記本訂單信息 (Basket)：交易的 ID(ID)、用戶名（ UserID）、商品編號（ GoodsID）、交易的日期 (Ordertime)、 選購數(shù)量（ Ordercount）、 商品單價（ SalePrice）、 訂單號 (OrderNumber)、 管理員處理訂單的日期（ PostTime） 。 表 5 系統(tǒng)的訂單表（ Basket） 列名 數(shù)據(jù)類型 長度 允許空 ID int 4 不允許空 UserID varchar 20 是 GoodsId int 4 是 OrderTime Datetime 8 是 OrderCount int 4 是 SalePrice float 8 是 OrderNumber varchar 50 是 PostTime datetime 8 是 5)用戶投訴信息（ Complain）： 投訴 ID（ Id）、投訴時間（ Posttime）、投訴用戶 名 （ Userid）、訂單號（ OrderNumber）、投訴內(nèi)容（ Content）、解決方案（ Rerult）、當前狀態(tài)（ Flag）。 表 6 用戶投訴表（ Complain） 列名 數(shù)據(jù)類型 長度 允許空 Id int 4 不允許空 Posttime datetime 8 是 UserId varchar 20 是 OrderNumber varchar 50 是 Content varchar 1000 是 Result varchar 1000 是 Flag bit 1 是 數(shù)據(jù)庫的連接 Microsoft SQL Server 是一種數(shù)據(jù)庫管理系統(tǒng)，可以用來方便、高效地管理大量的用戶數(shù)據(jù)。一般情況下， SQL Server數(shù)據(jù)庫有兩種連接數(shù)據(jù) 庫的方式。一種是采用用戶名和密碼連接數(shù)據(jù)庫；另一種是采用系統(tǒng)集成驗證連接數(shù)據(jù)庫，此時不再需要驗證用戶的名稱和密碼，直接采用操作系統(tǒng)登錄用戶的信任連接。我采用的是第一種連接方式，其基本屬性有： DRIVER（）， SERVER（服務(wù)器）表示數(shù)據(jù)庫所在機器的名稱， UID（用戶 ID）， PWD（用戶密碼）， Database（數(shù)據(jù)庫名稱） [6]。 連接數(shù)據(jù)庫的具體代碼如下： % Dim Conn Dim ConnStr Set Conn = () ConnStr = DRIVER={SQL Server}。SERVER=.。UID=sa。PWD=sa。Database=Shop ConnStr % 4 系統(tǒng)主要模塊界面 登錄模塊界面 普通用戶登錄界面 圖 3 普通用戶登錄界面 % //isUser用來判斷是否為注冊用戶，如果不是則為 False，否則為 True Dim isUser IsUser = False Uid = Session (user_id) Pwd = Session (user_pwd) If uid And pwd Then //判斷用戶名和密碼是否正確 sql = Select * From Users Where UserId=39。amp。uidamp。39。 And Pwd=39。amp。pwdamp。39。 Set rs = (sql) If Not then IsUser = True % 管理員登錄界面 圖 4 管理員登錄界面 % //根據(jù)錄入的用戶信息查詢數(shù)密碼 AdminId = Request. Form (login name) AdminPwd = Request. Form (password) If AdminId Then sql=Select * From Admin Where AdminId= 39。 amp。 AdminId amp。 39。 And Passwd=39。 amp。 AdminPwd amp。 39。 Set rsa = (sql) //如果用戶存在，則轉(zhuǎn)向到 If Not Then () End If End If % 用戶注冊模塊界面 圖 5 用戶注冊界面 % Dim sql, uid Set rs = () If Request. Form (isadd) =new Then Uid = Request (userid) 39。判斷此用戶是否存在 Set rsUser = (Select * from Users where UserId=39。 amp。 uid amp。 39。) If Not Then % script language=javascript alert(已經(jīng)存在此用戶名！ )。 History. Go(1)。 /script % Else Set rsUser = Nothing 39。在數(shù)據(jù)庫表 Users中插入新用戶信息 sql = Select * From Users sql,conn,1,3 ? End If Else 39。更新用戶信息 uid = (uid) sql = Update Users Set UserName = 39。amp。Request(username)amp。39。,Sex=39。amp。Request(sex)amp。39。, 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。 amp。_ Where UserId=39。amp。uidamp。39。 (sql) End If h2用 戶信息已成功保存！ /h2 % /body script language=javascript ()。 SetTimeout((),800)。 /script /html//后臺設(shè)計 商品查詢模塊界面 圖 6 商品查詢界面 % set rs=() Dim id,iname id = (id) sql = Select * From Goods Where id=amp。Cint(id) Set rsGoods = (sql) If Then 沒有此商品信息 Else iname = rsGoods(ImageFile) 39。更新閱讀次數(shù) sql = Update Goods Set ReadCount=ReadCount+1 Where id=amp。Cint(id) (sql) % % sql = SELECT * FROM GoodsType WHERE id= amp。 rsGoods(typeid) sql,conn,3,3 If Then % 沒有類別信息 % Else (rs(type)) End If % 圖 7 商品搜索界面 % 39。取得查 詢條件 Dim itype, gname, whereTo, tpid Set rs = () tpid = (tpid) 39。根據(jù)不同情況生成 WHERE子句 whereTo If tpid Then 39。顯示指定分類的所有商品信息， tpid代表分類編號 whereTo = Where TypeId= amp。 Cint(tpid) itype = iflag Else 39。在指定分類中，查詢指定商品 itype = (tid) gname = (gname) If isNull(gname) Or Len(gname)=0 Then whereTo = Where TypeId= amp。 Cint(itype) Else whereTo = Where TypeId= amp。 Cint(itype) amp。 And Name Like 39。% amp。 gname amp。 %39。 End If End If % 商品添加及修改模塊界面 圖 8 添加商品界面 % Function changechr(str) changechr = Replace(str, , ) changechr = Replace(changechr,Chr(13),br) End Function Dim GName Dim StrAction 39。得到 動作參數(shù)，如果為 add則表示添加新商品，如果為 update則表示更改商品 StrAction = (action) 39。取得商品題目和內(nèi)容和提交人用戶名 GName = Trim(Request(name)) GName = Replace(GName ,39。,‘) rqtContent = changechr(Request(Content)) 39。替換函數(shù) rqtContent = Replace(rqtContent,39。,‘ ) 39。替換內(nèi)容中的單引號 Set rs = () If StrAction=add Then 39。在數(shù)據(jù)庫表 Goods中插入新商品信息 sql=Select * from Goods sql,Conn,1,3 ? Else 39。更改此商品信息 id = (id) sql=UpdateGoodsSetTypeId=amp。CInt((Typeid))amp。,Name=39。amp。GNameamp。39。,Sn_Number=39。amp。Request(number)amp。39。,Posttime=39。amp。now()amp。39。 amp。_ ,SalePrice=amp。Request(saleprice)amp。,StorePrice=amp。Request(storeprice)amp。,Producer=39。amp。Request(producer)amp。39。 amp。_ ,Package=39。amp。Request(package)amp。39。,Content=39。amp。rqtContent amp。39。 Where id=