【導讀】中小企業(yè)在我國經(jīng)濟發(fā)展中具有重要地位，但其信息化程度不高。中小企業(yè)ERP解決方案。中小企業(yè)基本進銷存業(yè)務以進、銷、存為核心，通。圍繞采購、庫存、銷售等具體物流業(yè)務，闡述了一個進銷存管理。系統(tǒng)中業(yè)務模塊的分析設計過程，以實現(xiàn)低成本、高效率的業(yè)務管理控制系統(tǒng)。本平臺采用B/S架構(gòu)，使用VBScript編寫，運行于WINDOWS. 系統(tǒng)設置等功能。

　　

【正文】 大類 數(shù)字 長整型 否 有 (有重復 ) 關鍵功能實現(xiàn) MD5 算法 MD5 算法屬于摘要算法，通常也被稱為： HASH 算法、雜湊算法、簽名算法。它的特點是：從不定長的原文中產(chǎn)生一個固定長度（如 MD5 是 128 位）的結(jié)果，稱為 “消息摘要 ”，這個消息摘要必須對原文非常敏感，即原文即使是有少量的變化，也會導致這個消息摘要面目全非。 MD5 廣泛應用于加密和解密技術(shù)上，在很多操作系統(tǒng)中，用戶的密碼是以MD5 值（或類似的其它算法）的方式保存的，用戶 Login 的時候，系統(tǒng)是把用戶輸入的密碼計算成 MD5 值，然后再去和系統(tǒng)中保存的 MD5 值進行比較，而系統(tǒng)并不 “知道 ”用戶的密碼是什么。 一些黑客破獲這種密碼的方法是一種被稱為 “跑字典 ”的方法。有兩種方法得到字典，一種是日常搜集的用做密碼的字符串表，另一種是用排列組合方法生成的，先用 MD5 程序計算出這些字典項的 MD5 值，然后再用目標的 MD5值在這個字典中檢索。 即使假設密碼的最大長度為 8，同時密碼只能是字母和數(shù)字，共26+26+10=62 個 字 符 ， 排 列 組 合 出 的 字 典 的 項 數(shù) 則 是 P(62,1)+ P(62,2)….+P(62,8) ，那也已經(jīng)是一個很天文的數(shù)字了，存儲這個字典就需要 TB級的磁盤組，而且這種方法還有一個前提，就是能獲得目標賬戶的密碼 MD5值的情況下才可以。 MD5 還常用于發(fā)布文件的完整性驗證：比如發(fā)布一個程序，為了防止別人 第 17 頁 共 31 頁 在 用戶的程序里插入病毒或木馬， 可以在發(fā)布這個程序的同時，公開這個程序文件的 MD5 碼，這樣別人只需要在任何地方下載這個程序后做一次 MD5，然后跟公開的這個 MD5 作一個比較就知道這個程序是否被第三方修改過。 本系統(tǒng)中， MD5 主要用于管理員密碼的加密，以提高系統(tǒng)的安全性。 普通員工及管理員登陸模塊 登陸檢查頁面，員工只要輸入正確的用戶名和密碼就能夠順利登陸到本系統(tǒng)的主頁面，如果輸入錯誤則提醒 用戶 。不同權(quán)限的員工輸入的用戶名和密碼都將提交到表單中查詢。 在登錄之前，首先要連接數(shù)據(jù)庫。此 文件就實現(xiàn)了該功能。原程序如下： % Dim conn set conn=() mypath=(data/) driver={microsoft access driver (*.mdb)}。dbq=amp。mypath % 利用 server 對象的 CreateObject 方法創(chuàng)建一個 Connection 對象。 對于數(shù)據(jù)庫來說， Connection 對象是唯一與外界溝通的管道，負責應用程序與數(shù)據(jù)庫服務器實際的鏈接操作，所以所有對數(shù)據(jù)庫做處理的操作，例如Command 對象和 Recordest 對象和數(shù)據(jù)庫之間的溝通都必須依賴與 Connection對象。 Conn 的含義是定義了一個變量用，來存放數(shù)據(jù)庫連接所創(chuàng)建的對象 driver={microsoft access driver (*.mdb)}。dbq=amp。mypath 則真正實現(xiàn)了數(shù)據(jù)庫的連接。 在對數(shù)據(jù)庫操作完后，一定要用 Close 方法關閉 Connection 對象與數(shù)據(jù)庫的鏈接，使用該方法時會切斷 Connection 對象與數(shù)據(jù)庫之間的傳送通道，并且所有依賴該 Connection 對象的 Command、 Recordest 對象都會立即被切斷關聯(lián)，此時 ActiveConnection 屬性設置為 Nothing， 在使用 Close 方法切斷 Connection對象與數(shù)據(jù)庫之間的鏈接之后，可以調(diào)用 Open 方法再次打開該對象；如果Connection 對象與數(shù)據(jù)庫正在進行事物處理，那么調(diào)用 Close 方法會造成執(zhí)行上的錯誤且所有未完全更新的數(shù)據(jù)將會丟失 ，同時 Recordest、 Command 對象也會自動關閉且丟失相關未更新數(shù)據(jù)。 普通員工和管理員登錄部分程序如下： 首先判斷用戶名稱和操作口令是否為空： 第 18 頁 共 31 頁 script language=javascript function check() { if (==||==) { alert(請輸入用戶名稱和口令！ )。 return false。 } } /script 然后取 Login 進去的用戶名稱，用 MD5 破解后的密碼與數(shù)據(jù)庫中的存在用戶信息比較。若符合則成功登陸，調(diào)用 ；若不符合則顯示“用戶名稱或口令錯誤”。 % nowusername=(username) nowpassword=(password) sql=select * from login where username=39。amp。nowusernameamp。39。 and password=39。amp。md5(nowpassword)amp。39。 set rs=(sql) if then % script language=javascript alert(39。用戶名稱或口令錯誤！ 39。) (1) /script % end if session(username)=nowusername % 產(chǎn)品入庫模塊 首先根據(jù)員工的權(quán)限判斷其是否有可以操作產(chǎn)品入庫， fla0=0 表示不具備此權(quán)限， fal0=1 表示可以操作產(chǎn)品入庫功能（在其他的原代碼中還會出現(xiàn) fla1 第 19 頁 共 31 頁 表示庫存管理、 fla2 表示出庫管理、 fla3 表示統(tǒng)計報表、 fla4 表示會員管理、 fla5表示系統(tǒng)設置），再根據(jù)是以有產(chǎn)品入庫還是新產(chǎn)品入庫選擇入庫方式，另外以有產(chǎn)品入庫中產(chǎn)品的選擇會與庫存查詢頁面關聯(lián)，從中選擇產(chǎn)品入庫。 如圖 3。 圖 3 產(chǎn)品入庫瀏覽頁面 首先判斷操作此過程的員工是否具有產(chǎn)品入庫的權(quán)限。不具有則彈出提示框“你不具備此權(quán)限，請與管理員聯(lián)系！”。 % if fla0=0 then % brcenterfont color=FF0000你不具備此權(quán)限，請與管理員聯(lián)系！/font/center 使用 可以使 Web 服務器停止處理 ASP 腳本并返回當前結(jié)果，文件中剩余的內(nèi)容將不做處理。 % end if % 以有產(chǎn)品入庫，并從庫存查詢 Produit 中查詢貨號，做為產(chǎn)品選擇標識。 % if request(hid1)=ok then nowhuohao=request(huohao) nowshulian=request(shulian) nowku=request(ku) nowlogin=request(login) set rs_produit=(select * from produit where huohao=39。 amp。 nowhuohao amp。39。) set rs=() sql=select * from produit where huohao=39。amp。nowhuohaoamp。39。 and 第 20 頁 共 31 頁 id_ku=amp。nowku sql,conn,1,3 依次填寫入庫產(chǎn)品信息，若類別以有則成功入庫；若是新類別，則要在彈出的（大、?。╊悇e管理頁面中添加新類別，將信息插入數(shù)據(jù)庫對應項中，產(chǎn)品入庫成功。 if then rs(id_bigclass)=rs_produit(id_bigclass) ******部分代碼省略 ***** rs(tichen)=rs_produit(tichen) else rs(shulian)=rs(shulian)+nowshulian end if sql=select bigclass from bigclass where id=amp。rs_produit(id_bigclass) set rs_bigclass=(sql) sql=select smallclass from smallclass where id=amp。rs_produit(id_smallclass) set rs_smallclass=(sql) sql=select ku from ku where id=amp。nowku set rs_ku=(sql) sql=insert into buy(id_produit,bigclass,smallclass,title,huohao,ku,shulian,guige, login,type,selldate) values(amp。rs_produit(id)amp。,39。amp。rs_bigclass(0)amp。39。,39。amp。rs_smallclass(0)amp。39。,39。amp。rs_produit(title)amp。39。,39。amp。nowhuohaoamp。39。,39。amp。rs_ku(0)amp。39。,amp。nowshulianamp。,39。amp。rs_produit(guige)amp。39。,39。amp。nowloginamp。39。,0,amp。date()amp。) (sql) % script language=javascript alert(產(chǎn)品入庫成功！ ) /script % end if % % 第 21 頁 共 31 頁 新產(chǎn)品入庫 if request(hid2) then nowbigclass=request(bigclass) ******部分代碼省略 ***** nowprice=request(price) if nowprice= then nowprice=0 end if nowguige=request(guige) nowlogin=request(login) nowclass=request(class) nowduihuan=request(duihuan) nowtichen_type=request(tichen_type) nowtichen=request(tichen) sql=select * from produit where huohao=39。amp。nowhuohaoamp。39。 set rs=(sql) if =false then % script language=javascript alert(您輸入的產(chǎn)品貨號已經(jīng)存在，請使用已有產(chǎn)品入庫進行添加！ ) (1) /script % end if sql=insert into produit(id_bigclass,id_smallclass,title,huohao,id_ku,shulian, danwei,price,guige,class,duihuan,tichen_type,tichen) values(amp。nowbigclassamp。,amp。nowsmallclassamp。,amp。nowtitleamp。,amp。nowhuohaoamp。,amp。nowkuamp。,amp。nowshulianamp。,amp。nowdanweiamp。,amp。nowpriceamp。,amp。nowguigeamp。,amp。nowclassamp。,amp。nowduihuanamp。,amp。nowtichen_typeamp。,amp。nowtichenamp。) (sql) sql=select * from produit order by id desc set rs_produit=(sql) sql=select bigclass from bigclass where id=amp。nowbigclass set rs_bigclass=(sql) sql=select smallclass from smallclass where id=amp。nowsmallclass 第 22 頁 共 31 頁 set rs_smallclass=(sql) sql=select ku from ku where id=amp。nowku set rs_ku=(sql) sql=insert into buy(id_produit,bigclass,smallclass,title,huohao,ku,shulian, guige,login,type,selldate) values(amp。rs_produit(id)amp。,39。amp。rs_bigclass(0)amp。39。,39。amp。rs_smallclass(0)amp。39。,39。amp。nowtitleamp。39。,39。amp。nowhuohaoamp。39。,39。amp。rs_ku(0)amp。39。,amp。nowshulianamp。,39。amp。nowguigeamp。39。,39。amp。nowloginamp。39。,0,amp。date()amp。) (sql) % script language=javascript alert(產(chǎn)品入庫成功！ ) /script % end if % script language=javascript 帶 *的項必須填寫 function c