【導讀】求，設計并實現(xiàn)了一個基于WEB技術的商場管理系統(tǒng)。該系統(tǒng)由七個功能模塊。銷售管理模塊、人事信息管理模塊、數據報表模塊和系統(tǒng)配置模塊。設計，以及功能模塊的劃分等，而且詳盡敘述了各個功能模塊的具體實現(xiàn)方法，行用戶權限分配等。系統(tǒng)的開發(fā)采用了ASP技術，以SQLServer2021作為后。且安裝方便，配置簡易。系統(tǒng)設計目的及意義···········································································5

　　

【正文】 Pass=password Sys_CheckCode=replace(trim(Request(Sys_CheckCode)),39。,) 39。獲取驗證碼 if username= or password= then 39。判斷用戶名和密碼是否正確 scriptalert( 用 戶 名 和 密 碼 不 能 為 空 ！ )。 =。/script end if if Sys_CheckCodeCStr(session(CheckCode)) then scriptalert(驗證碼不正確，請刷新后重新登陸 ! )。 =。/script end if set rs=() sql=select * from Users where loginid=39。amp。usernameamp。39。and pwd=39。amp。Md5_Passamp。39。 sql,conn,1,3 if not then 39。登錄成功 gonghaoID=Rs(gonghao) =120 Session(AdminID)=gonghaoID39。保存員工工號 Session(adminName)=Rs(name) 39。保存員工姓名 Session(adminLoginId)=Rs(loginid) 39。保存員工登錄帳號名 set rst=() 39。讀取權限 sql=select * from Quanxian where gonghao=39。amp。gonghaoIDamp。39。 sql,conn,1,3 if not () then LoginArray= () Session(LoginArray)=LoginArray 39。用數組方式保存員工操作權限 else scriptalert( 權 限 讀 取 錯 誤 !)。 =。/script end if set rst=nothing () 39。驗證成功 ,跳轉主頁面 else 39。登錄失敗 scriptalert( 密碼錯誤或者無此用戶！ )。 =。/script end if set rs=nothing end if if request(Action)=LoginOut then Session(AdminID)= 39。用戶安全注銷，結束會話 Session(adminName)= Session(adminLoginId)= Session(LoginArray)= end if % 圖 32 用戶身份驗證算法 商品信息管理模塊的實現(xiàn) 商品分類 對商品分類可以便于對商品的管理， 本系統(tǒng)中采用二級 商 品 分 類的方法，一級類別描述 產品所屬的大致類別，二級類別則在一級類別的基礎上，對商 品進行細致的劃分。 跳轉到系統(tǒng)主頁 輸入用戶名和密碼及驗證碼 用戶名或密碼 是否為空 驗證碼是否正確 用戶名或密碼 是否 正確 用戶信息數據庫 密碼錯誤或者無此用戶 商品 信息數據庫 驗證錯誤，請重新登錄 密碼或 用戶名不能為空 是 否 否 是 是 否 商品分類包括對商品類型的增加，修改和刪除， 商品類型增加的界面如圖33 所示。 圖 33 增加商品類型 用戶輸入類型信息增加后會在數據庫中增加相應的記錄，其實現(xiàn) 代碼是： set rst=() sql=insert into Spfenlei(fenleiname,fenleimatou,beizhu)amp。_ values(39。amp。fenleinameamp。39。,upper(39。amp。fenleimatouamp。39。),39。amp。beizhuamp。39。) sql,Conn 用戶輸入類型信息修改后會在數據庫中對相應的記錄進行更新，其實現(xiàn)代碼是： sql=update Spfenlei set fenleiname=39。amp。fenleinameamp。39。,amp。_ fenleimatou=upper(39。amp。fenleimatouamp。39。), beizhu=39。amp。beizhuamp。39。 where amp。_ id=39。amp。idamp。39。 sql,Conn 刪除商品類型的實現(xiàn)代碼是： sql=Delete From Spfenlei Where id=39。amp。idamp。39。 sql,Conn 商品增加 用戶在系統(tǒng)初期時會錄入商品詳細信息，其錄入界面如圖 34所示。 商品編號是根據當前日期自動生成的唯一編號，不能由用戶修改。類型為商品的實際類型，如果當前列表中無該類型可點擊右邊的 [增加類型 ]增加商品類型。商品供貨商可以直接雙擊選擇相應的供貨商，該供貨商是已經在客戶管理中增加的。商品增加是將商品信息增加到數據庫中，首先是檢查該商品是否已經存在，其實現(xiàn)代碼是： set rs=(select * from [Shangpin] where bianhao =39。amp。bianhaoamp。39。) if not ( or ) then ... 39。報錯處理 如果沒有該商品就將其添加到商品信息表中和商品倉庫表中，代碼是： sql=insert into Shangpin (fenleiname,bianhao,name,xinghao,danwei,amp。_ gonghuoshang,beizhu) values(39。amp。fenleiname amp。39。,39。amp。bianhao amp。39。,39。amp。nameamp。_ amp。39。, 39。 amp。 xinghao amp。39。,39。 amp。 danwei amp。39。,39。 amp。 gonghuoshang amp。39。,39。 amp。beizhu amp。39。) sql,Conn 39。增加商品信息表資料 sqlck=insert into Spcangku(bianhao,name,fenleiname,xinghao,danwei,amp。_ gonghuoshang,shuliang,jiage,jiagehe,beizhu) values(39。amp。bianhaoamp。39。,amp。_ 39。amp。nameamp。39。,39。amp。fenleinameamp。39。,39。amp。xinghaoamp。39。,39。amp。danweiamp。39。,39。amp。gonghuoshangamp。_ amp。39。,39。amp。shuliangamp。39。,amp。jiageamp。,amp。jiageheamp。,39。amp。beizhuamp。39。) sqlck,Conn 39。增加商品倉庫信息表資料 圖 34 商品增加 商品修改 商品修改可以在商品列表中選擇對應的商品進行修改，商品修改界面如圖35 所示。 圖 35 商品修改 商品修改是對相應的商品信息進行更新，即更新其商品信息表和商品倉庫表，代碼是： sql=update shangpin set name=39。amp。nameamp。39。,fenleiname=39。amp。fenleinameamp。_ amp。39。,xinghao=39。amp。xinghaoamp。39。,danwei=39。amp。danweiamp。39。,gonghuoshang=39。amp。gonghuoshamp。_ angamp。39。,beizhu=39。amp。beizhuamp。39。 where bianhao=39。amp。bianhaoamp。 39。 sql,Conn 39。修改商品信息表資料 sql=update Spcangku set name=39。amp。nameamp。39。,fenleiname=39。amp。fenleinameamp。_ amp。39。,xinghao=39。amp。xinghaoamp。39。,danwei=39。amp。danweiamp。39。,gonghuoshang=39。amp。gonghuosamp。_ hangamp。39。,beizhu=39。amp。beizhuamp。39。 where bianhao=39。amp。bianhaoamp。 39。 sql,Conn 39。修改商品倉庫信息表資料 商品刪除 商品刪除可以在商品列表中選擇對應的商品進行刪除，商品刪除即刪除商品信息表和商品倉庫表中相應的商品，代碼是： sql=delete from shangpin where bianhao=39。amp。bianhaoamp。39。 sql,Conn 39。刪除商品信息表資料 sql=delete from spcangku where bianhao=39。amp。bianhaoamp。39。 sql,Conn 39。刪除商品倉庫信息表資料 商品查詢 商品查詢可以滿足用戶對商品多種關鍵字類型進行模糊查詢，包括商品名稱，商品編號，商品類型和商品供貨商四種類型的關鍵字。其查詢界面如圖 36所示 。 圖 36 商品信息查詢 商品查詢是根據關鍵字進行模糊查詢，實現(xiàn)代碼是： key=Trim(Request(key)) 39。關鍵字 name=Trim(Request(name)) 39。查詢類型 if not (key = or name=) then set rs = () sql=select * from shangpin where amp。nameamp。 like 39。%amp。 key amp。%39。 Order by idamp。_ desc sql,conn,0,2,1 else 39。報錯 ? end if 商品進貨管理模塊的實現(xiàn) 商品 入庫 當根據采購單進貨時可在商品入庫中錄入進貨信息并入庫，其界面如圖 37所示。 圖 37 商品入庫 在該界面中可以一次為同一供貨商提供的商品添加最多 10 條商品記錄，而且分別添加到商品入庫單中和入庫基本信息表中，其實現(xiàn)代碼是： set rck=()39。在 Rudujiben庫中增 加入庫記錄 sql=insert into Rukujiben (rkbianhao,rkghsbianhao,rkghsname,rkshijian,amp。_ rkflag,rkcaigouyuan,rkfangshi,rkzongji,beizhu) values( 39。amp。rkbianhaoamp。39。,amp。_ 39。amp。rkghsbianhaoamp。39。,39。amp。rkghsnameamp。39。,39。amp。rkshijianamp。39。,39。amp。rkflagamp。39。,39。amp。rkcaamp。_ igouyuanamp。39。,39。amp。rkfangshiamp。39。,convert(money,39。amp。rkzongjiamp。39。),39。amp。beizhuamp。39。) sql,Conn 因為最多可同時為同一供貨商提供的商品添加 10 條記錄，所以當不足 10條記錄時在增加時會產生空值，所以添加記錄時排除空值記錄，其代碼如下： for i=1 to 10 39。在 Rukudan庫中增加商品詳情入庫單 if rkshangpinbianhao([i])= then exit for 39。當第 N條記錄為空時 ,直接跳出循環(huán) ,無需插入無效記錄！ set rst=() sql=insert into Rukudan(rkbianhao,rkshangpinbianhao,rkshangpinname,amp。_ rkfenleiname,rkshangpinxinghao,rkshanpindanwei,rkshuliang,rkjiage,rkjiaamp。_ gehe) values(39。amp。rkbianhaoamp。39。,39。amp。rkshangpinbianhao([i])amp。39。,39。amp。rkshangamp。_ pinname([i])amp。39。,39。amp。rkfenleiname([i])amp。39。,39。amp。rkshangpinxinghao([i])amp。39。, amp。_ 39。amp。rkshangpindanwei([i])amp。39。,39。amp。rkshuliang([i])amp。39。,convert(money,39。amp。rkjiamp。_ age([i])amp。39。),convert(money,39。amp。rkjiagehe([i])amp。39。)) sql,Conn set rst=nothing next 如果是直接審核入庫那將增加庫存， 根據入庫單編號查出商品編號以及數量然后循環(huán) UPDATE 更新值 。 if rkflag=是 then set rs = () sql=select * from Rukudan where rkbianhao=39。amp。rkbianhaoamp。39。 sql,conn,0,2,1 for i=1 to 10 if or then exit for bianhao=rs(rkshangpinbianhao) shuliang=rs(rkshuliang) jiage=rs(rkjiage) set rst=() sql=update Spcangku set shuliang=shuliang+39。amp。shuliangamp。39。,amp。_ jiage=amp。jiageamp。 where bianhao=39。amp。bianhaoamp。39。 sql ,conn sql=update Spcangku set jiagehe=jiage*shuliang where bianhao=amp。_ 39。amp。bianhaoamp。39。 sql ,conn set rst=nothing next end if 商品 入庫審核 商品入庫審核可對商品入庫操作進行再次審核，以保證商品的正確入庫，如果審核不通過可刪除本次入庫操作。并且可以查看已通過審核的入庫單，且可根據實際情況執(zhí)行反審核入庫，即將已審核入庫的商品進行出庫操作。 入庫審核的實現(xiàn)代碼如下： set rst=() 39。添加倉庫的商品數量 sql=update Spcangku set shuliang=shuliang+39。amp。shuliangamp。39。,jiage=amp。_ amp。jiageamp。 where bianhao=39。amp。bianhaoamp。39。 sql ,conn sql=update Spcangku set jiagehe=jiage*shuliang where bianhao=amp。_ 39。amp。bianhaoamp。39。 sql ,conn 39。對通過審核的入庫單增加標志“是” sql=update rukujiben set rkflag=39。amp。flagamp。39。 where rkbianhao=amp。_ 39。amp。rkbianhaoamp。39。 and id=39。amp。idamp。39。 sql ,conn 商品 庫存警示 商品庫存警示會在商品的庫存超過或者低于預先設定好的限值時報警，提示用戶進行相應操作，使商品庫存達到最大合理化。其實現(xiàn)代碼為： sql=select * from Spcangku where shuliangshangxian1 or shuliangxiaxianamp。_ +1 Order by id desc 39。顯示庫存超過或者低于預先設定好的限值 sql,conn,0,2,1 ?? 39。根據當前庫存量來顯示庫存警示是短線還是超儲 shuliang=rs(shuliang) 39。當前庫存量 shangxian=rs(shangxian)1 39。庫存上限 xiaxian=rs(xiaxian)+1 39。庫存下限 if shuliangxiaxian then (短線 ) else (超儲 ) end if 初次商品添加時會自動將庫存上限設置為 10000，下限設置為 0，所以用戶要根據實際情況修改限值。 商品銷售管理模塊的實現(xiàn) 商品 銷售價格 當有新商品入庫后，應對其零售價格進行設置；當根據商品銷售情況對商品價格作出調整時應對商品價格進行修改。商品銷售價格設置界面如圖 38 所示。 圖 38 商品價格設置 設置商品零售價格后對其數據庫進行修改，代碼如下： bianhao=Trim((bianhao)) 39。商品編號 lsjiage=(lsjiage) 39。零售單價 set rs=() sql=update Spcangku set lsjiage=amp。lsjiageamp。 where bianhao=39。amp。 bianhao amp。 39。 sql,Conn set rst=() sql=update Spcangku set lsjiagehe=lsjiage*shuliang where bianhao=amp。_ 39。amp。 bianhao amp。 39。 sql,Conn 商品 銷售開單 商品銷售開單實現(xiàn)前臺面向顧客銷售商品，將銷售信息錄入數據庫，并且可根據促銷活動對商品打折。銷售金額會自動進行計算，可直接審核出庫或者選擇稍后審核后出庫。銷售開單的界面以及實現(xiàn)代碼和商品入庫的類似，只是所操作的數據庫不同，在此省略。 商品 銷售查詢 商品銷售查詢可以為用戶提供對商品銷售兩種關鍵字類型的模糊查詢，包括商品銷售單號和商品銷售日期兩種類型的關 鍵字。 按商品銷售單號查詢的實現(xiàn)代碼是： sql=select * from Xiaoshoujiben where amp。nameamp。 like 39。%amp。 key amp。%39。 and xsflagamp。_ =39。是 39。 Order by id desc 按商品銷售日期查詢的實現(xiàn)代碼是： sql=select * from Xiaoshoujiben where xsriqi betweenamp。_ 39。amp。date1amp。39。an