【正文】 其實(shí)現(xiàn)代碼： while not user=trim((username)) 39。登陸成功跳轉(zhuǎn)至 else end if wend 輸入錯(cuò)誤，請重新輸入！ 用戶管理模塊的實(shí)現(xiàn) 添加用戶 () 39。確認(rèn)密碼 business=trim((business)) 39。聯(lián)系電話 address=trim((place)) 39。/script else if pwd=okpwd then 39。user_nameamp。pwdamp。businessamp。departmentamp。E_mailamp。phoneamp。addressamp。/script end if end if % 修改用戶信息 () 在企業(yè)中為了能確保用戶個(gè)人信息的安全性及準(zhǔn)確性，用 戶有權(quán)更改自己的個(gè)人信息。amp。amp。amp。amp。amp。=。39。pagecount返回 recordset對象的分頁總數(shù) intpage = last = false else 第 20 頁 共 27 頁 intpage = cint(page) end if end if end if if not then = intpage 39。指定放入緩存區(qū)的網(wǎng)頁的逾期時(shí)間 為 0 title=(title) 39。idamp。獲取公告編號 delsql=delete from gginforma where id=39。 delsql 文件管理模塊 保存上傳文件 () % set conn=() =dsn=xh。定義文件簡介變量 dim file_subject 39。定義文件大小 dim bm savepath=savepath 39。取得文件介紹 errnumber==GetFromVal(errnumber) bm=GetFromVal(bm) 39。(39。,39。,39。,39。,39。) (sql) end if end if set conn=nothing if errflag then alert(39。)。39。/amp。rs(upfilename)amp。bmamp。jlamp。phoneamp。jlamp。phoneamp。bmamp。nameamp。pwd1amp。nameamp。jlamp。phoneamp。bmamp。保存文件 =3 39。chr(34) 39。指定默認(rèn)最大上傳文件為 5MB end if do while startpos 0 39。取得文件擴(kuò)展名 fixfnn=split(fixfileext,|) 39。bCrLf)+4 filelen=instrb(startpos,formdata,divider)2filestart if filelen=maxsize*1024 then 39。指示出在當(dāng)前流中的位置 copyto allyes_objstream,filelen 39。 本系統(tǒng)以簡單易用、功能強(qiáng)大、界面友好、性能穩(wěn)定為原則 ， 基本完成了企業(yè)公告及資料 發(fā)布 系統(tǒng)的功能，以及企業(yè)的日常管理工作功能。 [3] 張紅軍 ,劉育楠 . 動(dòng)態(tài)網(wǎng)頁技術(shù)精粹 [M].北京：清華大學(xué)出版社， 2021。 [7] 方睿 ,吳四九 .網(wǎng)絡(luò)數(shù)據(jù)庫原理及應(yīng)用 [M].成都： 四川大學(xué)出版社 ,2021。 [5] 網(wǎng)冠科技 .網(wǎng)頁綜合制作時(shí)尚創(chuàng)作百例 [M].北京：機(jī)械工業(yè)出版社， 2021。 參考文獻(xiàn) [1] 劉瑞新 ,張兵義 ,常永英 . ASP動(dòng)態(tài)網(wǎng)站開發(fā)畢業(yè)設(shè)計(jì)指導(dǎo)及實(shí)例 [M].北京：機(jī)械工業(yè)出版社， 2021。文件報(bào)錯(cuò) end if 第 25 頁 共 27 頁 結(jié) 論 本 系統(tǒng) 通過大量的資料調(diào)研，較為深入地分析論證了該系統(tǒng)的可行性。打開流對象 write formdata 39。比較取得文件的擴(kuò)展名是否與所限制文件上擴(kuò)展名相同 if lcase(fileextname)=lcase(trim(fixfnn(i))) then savefile=fileerror 39。文件格式限制 fnn=split(upfilename,.) 39。檢測目錄參數(shù)完整性 path=pathamp。提示流數(shù)據(jù)類型，這里為二進(jìn)制類型 =3 =1 formfilefield=chr(34)amp。) 5 設(shè)計(jì)難題及解決方法 上傳 文件 的實(shí)現(xiàn) 是本系統(tǒng)的一個(gè)難點(diǎn) 在系統(tǒng)的實(shí)現(xiàn)過程中需要從瀏覽器向服務(wù)器上傳文件，現(xiàn)在有很多 ASP 上傳組件，如 SA_FILEUP 組件、 LyUpload 組件、 組件等， 使用它們 必須在 服務(wù)器上注冊 這些組件 ，該系統(tǒng)使用了無需任何組件支持的無組件上傳程序 ，運(yùn)用了 savefile 保存上傳文件函數(shù)和getformval 獲取表變值函數(shù)。 where bm=39。,phone=39。 修改管理員 代碼： set rs=() (update dep set jl=39。),conn 刪除管理員 代碼： set rs=() sql=delete from addminforma where name=39。,39。) 管理員管理模塊 管理員登陸成功后可對管理員進(jìn)行權(quán)限操作，添加管理員代碼： set rst=() insert into addminforma(name,password) values(39。 where bm=39。,phone=39。)) 部門 修改 代碼 : (update dep set jl=39。,39。,39。 第 23 頁 共 27 頁 部門 管理模塊 添加部門 代碼 : (insert into dep values(39。39。amp。vbcrlf end if (script alert(39。msgamp。persizeamp。bmamp。savepathamp。fileextamp。file_subjectamp。保存并取得文件名 select case trim(upfilename) case patherror msg=錯(cuò)誤：指定的路徑不存在 ! errflag=true case refilerror msg=錯(cuò)誤：文件不存在 ! errflag=true case sizeerror msg=錯(cuò)誤：文件超出指定長度！ 第 22 頁 共 27 頁 errflag=true case fileerror msg=錯(cuò)誤：被限制上傳的文件格式 errflag=true case else msg= errflag=false end select if not errflag then 39。使用虛擬路徑進(jìn)行賦值 filepath=(filepath) 39。定義出錯(cuò)標(biāo)識 dim errnumber dim savepath 39。pwd=xh dim filepath 39。idamp。 ,conn,3,2 rs(title)=title 39。從表單中獲取編號 context=(neirong) select * from gginforma where id=39。擋 recordset 對象內(nèi)有設(shè)置分頁時(shí)， pagesize 為每頁的記錄條數(shù) if or then exit for % 修改 首頁 公告 代碼： =true 39。 添加 首頁 公告 % = 25 = 3 39。amp。39。39。39。39。39。判斷在用戶在修改個(gè)人的資料信息時(shí)輸入的密碼與確認(rèn)密碼是否一致，如果一致則將允許用戶修改個(gè)人的資料信息 ,否則不能 修改 。)) else scriptalert( 兩 次 密 碼 輸 入 不 一 致 , 請 重 新 輸 入 ! )。,39。,39。,39。,39。,39。,39。 (insert into userinforma values(39。 if phone= then phone=未知 end if if place= then place=未知 end if if user_name= or pwd= or okpwd= or business= or department= then scriptalert( 信 息 輸 入 不 完 整 , 請重新輸入 ! )。所屬部門 E_mail=trim((Email)) 39。用戶 名 pwd=trim((password1)) 39。獲取密碼 if (trim(rs(name))=user and password=trim(rs(password))) then 39。 % set conn=() =dsn=xh。并同時(shí) 對 各部門的文件進(jìn)行分類的管理。 （ 2）用戶信息管理 系統(tǒng)管理員能夠查詢在職用戶， 添加新 增用戶的信息、刪除離職人員的信息、更新在職人員需修改的相關(guān)信息， 同時(shí)關(guān)賦予用戶所具有的操作權(quán)限。當(dāng)然對于企業(yè)公告及資料（公文）發(fā)布系統(tǒng)也是如此。而且上傳的格式文件除支持 .doc 文件外，還支持其它多種格式，比如上傳視頻文件、音樂文件、工具軟件等，都是可以根據(jù)實(shí)際需要而進(jìn)行的。文件上傳是企業(yè)信息化中一個(gè)非常重要的功能之一 ,它能使企業(yè)各個(gè)部門實(shí)現(xiàn)信息資料互通 ,在不同的地方把企業(yè)需要的通知、公告、文件、檔案等資料同時(shí)上傳到一個(gè)服務(wù)器上，每個(gè)部門不需要人為的到別的部門提取資料，而在網(wǎng)上就能通 過 對方上傳的文件進(jìn)行下載，另外還對上傳和下載實(shí)現(xiàn)編號、權(quán)限和分類管理即分部門管理，使用文件共享更加安全合理。各級部門職工管理信息的發(fā)布及近期部門的工作安排，重大會(huì)議及活動(dòng)。一般情況下，企業(yè)內(nèi)所處理的信息涉及企業(yè)的機(jī)密，而且不同的辦公人員對辦公信息的處理權(quán)限也是不同的，因此，安全性控制功能應(yīng)該是系統(tǒng)得以投入使用的先決條件。運(yùn)行 配置 要求如表 32： 第 8 頁 共 27 頁 表 32運(yùn)行配置要求 最低配置 建議配置 CPU:Pentium 3 600 CPU:Pentium 4 G 以上 內(nèi)存 128MB 內(nèi)存 :512 MB 或更多 56KB 撥號網(wǎng)絡(luò) 寬帶網(wǎng)絡(luò) 顯示分辨率 : 800 X 600 顯示分辨率 :1024 X 768 IE 以上 IE 、 或更高 Windows98 Windows202 XP 或以上 系統(tǒng)模塊設(shè)計(jì) 根據(jù) 功能 需求分析 和 業(yè)務(wù)流程 分析，對系統(tǒng)各功能進(jìn)行集中、分塊，按照結(jié)構(gòu)化程序設(shè)計(jì)的要求，本系統(tǒng)的系統(tǒng)功能模塊圖如圖 32所示： 企業(yè)公告及資料上傳系統(tǒng) 修改個(gè)人信息 用戶管理 提交工作報(bào)告 查看公告 留 言 管理員管理 公告信息管理 管理員信息管理 部門管理 提交報(bào)告管理 用戶信息管理 修改初始密碼 修改個(gè)人其它信息 留言薄管理 添加首頁公告 修改、刪除公告 下載、刪除報(bào)告 報(bào)告分級管理 添加、刪除用戶 查詢用戶 添加、修改部門 添加、刪除管理員 添加、刪除留言 回復(fù)留言 登錄 第 9 頁 共 27 頁 圖 32 企業(yè)公告及資料 發(fā)布 系統(tǒng)功能模塊示意圖 系統(tǒng)的流程分析 整個(gè)系統(tǒng)流程設(shè)計(jì)是根據(jù)系 統(tǒng)從初始錄入數(shù)據(jù)階段到對其它功能模塊進(jìn)行操作時(shí)的流程， 如圖 33系統(tǒng) 流程圖： 圖 33 系統(tǒng) 流程圖 概念結(jié)構(gòu)設(shè)計(jì) 針對以上對系統(tǒng)的需求分析，為了更好地對系統(tǒng)的總體要求及各權(quán)限用戶的有更加明確的方向，現(xiàn)將系統(tǒng) E— R圖表述如 圖 3－ 4： 管理 管理員 1 部門 公告信息 留言簿 N N N 用戶 管理 管理 1 1 1 N 用戶信息反饋 1 N 查看 修改 屬于 1 N N 否 是 用戶 管理員 N 身份判斷？ 登錄 處理職工信息 處理管理員信息 處理公告信息 處理報(bào)告信息 管理員信息管理 提交報(bào)告管理 公告