【文章內容簡介】 位數據，加密的過程伴隨一系列的轉換與代換操作。 DES 加密 (解密 )的過程可以分為兩步：首先變換密鑰得到 56 位密鑰，然后據轉換操作得到 48位共 16組子密鑰。其次是用上面得到的 16 組子密鑰加密(解密 ) 64 位明 (密 )文，這個過程會有相應的 SBOX 等的代換 轉換操作。 整個算法加密過程可以參考 DES 相關說明文件： 4 數據庫設計 Access數據庫的概念 Access2020 就是關系數據庫開發(fā)工具，數據庫能匯集各種信息以供查詢、存儲和檢索。 Access 的優(yōu)點在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了一種類似于 Excel 的電子表格，可以使數據庫一目了然。另外， Access 允許創(chuàng)建自定義報表用于打印或輸出數據庫中的信息。 Access 也提供了數據存儲庫，可以使用桌面數據庫文件把數據庫文件置于網絡文件服務器，與其他網絡用戶共享數據庫。 Access 是一種關系數據庫工具，關系數據庫是已開發(fā)的最通用的數據庫之一 。 數 據庫的特點： 1. 具有最小的冗余度，即數據庫盡可能不重復。 2. 資源共享性，即以最優(yōu)的方式服務與一個或多個應用程序。 3. 數據獨立性，即數據的存儲盡可能獨立于使用它的應用程序。 4. 安全可靠。 5. 保密性能好。 第 7 頁 共 25 頁 在本系統(tǒng)中 為 了安全考慮，將 ACCESS 的擴展名改為 .asp,或 .asa 等，這樣即使別人知道了數據庫路徑，也無法下載，因為 IIS把它們當作 asp 來解析，這樣在一定程度上有了安全的作用。但是 .ASA 并不是合法的 ACCESS 數據庫擴展名。真正的擴展名為： .mdb。 數據庫結構設計 本系統(tǒng)數據庫設 計表的原則是 ： “One Fact in One Place” 即某個表只包括其本身基本的屬性，當不是它們本身所具有的屬性時需進行分解。表之間的關系通過外鍵相連接。它具有以下特點：有一組表專門存放通過鍵連接起來的關聯數據。 包含：系統(tǒng)管理員信息（ admin）、商品大類（ BigClass）、商品信息（ Bill）、商品缺貨信息（ InShort）、代理信息（ Member）、非代理購買者信息（ NoneMember）、定單信息（ Orders）、已出售商品信息（ Sold）和商品存貨信息（ Stock）。具體表項設計如下： 1. 系統(tǒng) 管理員信息（ admin） （如表 1） 表 1系統(tǒng)管理員信息（ admin） 2. 商品大類（ BigClass）（如表 2） 表 2商品大類（ BigClass） 3. 商品信息（ Bill）（如表 3） 第 8 頁 共 25 頁 表 3商品信息（ Bill） 4. 商品缺貨信息（ InShort）（如表 4） 表 4商品缺貨信息（ InShort） 5. 代理信息（ Member）（如表 5） 表 5代理信息（ Member） 6. 非代理購買者信息（ NoneMember）（如表 6） 表 6非代理購買者信息（ NoneMember） 第 9 頁 共 25 頁 7. 定單信息（ Orders）（如 表 7） 表 7定單信息（ Orders） 8. 已出售商品信息（ Sold）（如表 8） 表 8已出售商品信息（ Sold） 9. 商品存貨信息（ Stock）（如表 9） 表 9商品存貨信息（ Stock） 第 10 頁 共 25 頁 數據庫各表之間的關系（如圖 2） 圖 1 數據庫各表間的關系 數據庫連接 該數據庫使用的是 Access OLE Db 驅動程序。據微軟表示， Access OLE Db驅動程序的效率比 ODBC 驅動程序高。 數據庫連接主要代碼為： set conn=() DBPath = (./data/) provider=。data source= amp。 dbpath 5 系統(tǒng)模塊設計與分析 系統(tǒng)總體流程 系統(tǒng)開發(fā)的主要任務是實現點拉的網上交易。本系統(tǒng)包括后臺管理模塊、代理注冊登陸模塊及商品交易模塊三個模塊 ?？傮w流程（如圖 2） 商品大類 BigClass 商品信息 Bill 商品存貨信息 Stock 已售商品信息 Soid 商品缺貨信息 InShort 定單信息 Orders 代理信息 Member 非代理購買者信息NoneMember 系統(tǒng)管理員信息Admin 第 11 頁 共 25 頁 圖 2 系統(tǒng)總體流程圖 后臺管理模塊 后臺管理模塊實現 11 個功能，包括：添加商品（ ）、類別管理（ ）、庫存查看（ ）、系統(tǒng)設置（ ）、訂單管理（ ）、缺貨信息（ ）、已售商品（ ）、代理審核（ ）、代理查看（ ）、商品管理（ ）、退出系統(tǒng)（ ）。這是后臺管理的主體。如 圖 3： 圖 3 后臺管理模塊 商品添加 BillAdd 退出系統(tǒng) M_Exit 商品管理 M_Bill 代理查看 M_Agent 代理審核 M_Reg 已售商品 M_Sold 缺貨信息 M_InShort 訂單管理 M_Order 系統(tǒng)設置 M_admin 庫存查看 M_Stock 類別管理 M_Class 系統(tǒng)管理員登陸 商品展示窗口 后臺管理模塊 代理 注冊登陸模塊 商品交易模塊 第 12 頁 共 25 頁 其中重要的兩項功能流程圖為： 圖 4 商品添加流程圖 圖 5 庫存管理流程圖 商品添加的關鍵代碼為： if not isNumeric(BigClassID) or not isNumeric(BillID) or CardNo= or Pin= then EchoMes 商品類別 /商品名稱 /卡號 /密碼不能為空 end if 商品添加時檢查商品信息是否填寫完整。 if Session(Sql) then Sql=Insert Into Stock (BigClassID,BillID,CardNo,Pin,AddTime,Lock) Values ( amp。 BigClassID amp。, amp。 BillID amp。,39。 amp。 CardNo amp。39。,39。 amp。 Pin amp。39。,39。 amp。 Now amp。 39。,False) Else Sql=Insert Into Stock (BigClassID,BillID,CardNo,Pin,AddTime,Lock) Values ( amp。 BigClassID amp。, amp。 BillID amp。,39。 amp。 CardNo amp。39。,39。 amp。 Pin amp。39。,Now,False) end if 判斷 Session(Sql)，并由判斷結果向數據庫中插入數據。 (Sql) 顯示新卡添加成功。 庫存管理關鍵代碼為： if isNumeric(ClassID) then 判斷 ClassID是否為數字。 Sql=Select * from Stock Where BigClassID= amp。 ClassID Else 從數據庫中取出大類 ID 為 ClassID 的記錄。 選擇所要查看商品類別 從數據庫中獲取商品信息 刪除 填寫商品信息 檢查商品信息是否填寫完全 選擇要刪除的商品 N Y 添加 商品添加成功 商品刪除成功 進入庫存管理頁面 成功顯示所要查看商品 添加 /刪除商品 第 13 頁 共 25 頁 Sql=Select * from Stock Order By BigClassID,BillID end if 從數據庫 Stock表中取出 全部記錄。 代理 注冊登陸模塊 代理注冊登陸模塊實現了 2 個功能：代理注冊（ ）和代理登陸（ ）如圖 6，其流程圖如圖 7 及圖 8。 圖 6 代理注冊登陸模塊 圖 7 代理注冊流程圖 圖 8 代理登陸流程圖 代理注冊關鍵代碼： Sql=Insert into Member (UserName, [PassWord], Name, IDNumber, Province, City, Tel,Email, TotalMoney,RegTime, RegIp,Ver) Values Sql=Sql amp。 (39。 amp。 UserName amp。 39。,39。 amp。 PassWord amp。 39。,39。 amp。 Name amp。 39。,39。 amp。 IDNumber amp。39。,39。 amp。 Province amp。 39。,39。 amp。 City amp。 39。,39。 amp。 Tel 商品展示窗口 代理注冊 代理登陸 填寫注冊信息 管理員審核 數據加入數據庫 注冊成功 注冊失敗 通過 未通過 讀取數據庫中數據 判斷用戶及密碼 登陸失敗 進入交 易模塊 正確 錯誤 進入頁面 登陸成功 第 14 頁 共 25 頁 Sql=Sql amp。 39。,39。 amp。 Email amp。 39。, 0, Now (),39。 amp。 Request (REMOTE_Addr) amp。39。,False) 以上代碼為添加新的代理信息。 代理登陸關鍵代碼： if AgentName and AgentPassword then 判斷是否輸入代理人用戶名和密碼 if Not Session(Member) then Sql=Select * from Member Where UserName=39。 amp。 AgentName amp。39。 and Password=39。 amp。 AgentPassword amp。 39。 and Ver Else Sql=Select * from Member Where id= amp。 Session