畢業(yè)設(shè)計-企業(yè)公告及資料發(fā)布系統(tǒng)的設(shè)計與實現(xiàn)-資料下載頁

【導(dǎo)讀】源共享、提高辦公效率、節(jié)減不必要的開支。因此，改變傳統(tǒng)的獨立、零散的信。息發(fā)布方式是網(wǎng)絡(luò)信息發(fā)展的必然趨勢。在此基礎(chǔ)上本系統(tǒng)將ASP技術(shù)作為WEB應(yīng)用程序的重要開發(fā)工具。實現(xiàn)了其中的基本功能，包括：文件管理，部門管理，公告管理，管理員管理，

　　

【正文】 消息。 添加 首頁 公告 % = 25 = 3 39。記錄下載到瀏覽器端 sql,conn, 2,2 pre = true last = true page = trim((page) if len(page) = 0 then intpage = 1 pre = false else if cint(page) = 1 then intpage = 1 pre = false else if cint(page) = then 39。pagecount返回 recordset對象的分頁總數(shù) intpage = last = false else 第 20 頁 共 27 頁 intpage = cint(page) end if end if end if if not then = intpage 39。當(dāng) recordset對象有設(shè)置分頁時， absolutepage會返回目前的頁碼 end if for i=1 to 39。擋 recordset 對象內(nèi)有設(shè)置分頁時， pagesize 為每頁的記錄條數(shù) if or then exit for % 修改 首頁 公告 代碼： =true 39。設(shè)置啟用瀏覽器的緩沖處理 =0 39。指定放入緩存區(qū)的網(wǎng)頁的逾期時間 為 0 title=(title) 39。從表單中獲取標(biāo)題 id=(id) 39。從表單中獲取編號 context=(neirong) select * from gginforma where id=39。amp。idamp。39。 ,conn,3,2 rs(title)=title 39。將表單中修改的值保存到數(shù)據(jù)記錄中 rs(context)=context 刪除公告 : id=Request(id) 39。獲取公告編號 delsql=delete from gginforma where id=39。amp。idamp。39。 delsql 文件管理模塊 保存上傳文件 () % set conn=() =dsn=xh。uid=xh。pwd=xh dim filepath 39。定義文件路徑變量 第 21 頁 共 27 頁 dim fileext 39。定義文件簡介變量 dim file_subject 39。定義文件主題變量 dim errflag 39。定義出錯標(biāo)識 dim errnumber dim savepath 39。定義文件保存路徑變量 dim maxfilesize 39。定義文件大小 dim bm savepath=savepath 39。虛擬路徑（后面不加“ /”）符號 maxfilesize=5*1024 限制上傳的文件為 5MB errflag=false filepath=savepath 39。使用虛擬路徑進(jìn)行賦值 filepath=(filepath) 39。將虛擬路徑轉(zhuǎn)換為磁盤路徑 fileext==GetFromVal(fileext) 39。取得文件介紹 errnumber==GetFromVal(errnumber) bm=GetFromVal(bm) 39。取得部門名 errnumber=cint(errnumber) if len(trim(file_subject))=0 then 文件主題不能為空！ end if if len(trim(fileext))=0 then fileext=無簡介！ end if upfilename=SaveFile(fruit,filepath,maxfilesize,errnumber,1) 39。保存并取得文件名 select case trim(upfilename) case patherror msg=錯誤：指定的路徑不存在 ! errflag=true case refilerror msg=錯誤：文件不存在 ! errflag=true case sizeerror msg=錯誤：文件超出指定長度！ 第 22 頁 共 27 頁 errflag=true case fileerror msg=錯誤：被限制上傳的文件格式 errflag=true case else msg= errflag=false end select if not errflag then 39。在上傳文件沒有錯誤情況下，把得到的文件信息保存到數(shù)據(jù)庫中 sql=insert into docinformation (doc_name,context,doc_size,dep,path)_ values(sql=sqlamp。(39。amp。file_subjectamp。39。,39。amp。fileextamp。39。,39。amp。savepathamp。39。,39。amp。bmamp。39。,39。amp。persizeamp。39。) (sql) end if end if set conn=nothing if errflag then alert(39。amp。msgamp。39。)。amp。vbcrlf end if (script alert(39。 您 已 經(jīng) 成 功 上 傳=39。39。/script) % 下載上傳文件 () % sql=select * from doc_information set rs=() sql,conn,1,1 a href=39。amp。rs(upfilepath)amp。/amp。rs(upfilename)amp。39。 target=rightamp。rs(upfilename)amp。/a % 直接鏈接到上傳文件所存的路徑可以直接點擊下載相應(yīng)的文件。 第 23 頁 共 27 頁 部門 管理模塊 添加部門 代碼 : (insert into dep values(39。amp。bmamp。39。,39。amp。jlamp。39。,39。amp。phoneamp。39。)) 部門 修改 代碼 : (update dep set jl=39。amp。jlamp。39。,phone=39。amp。phoneamp。39。 where bm=39。amp。bmamp。39。) 管理員管理模塊 管理員登陸成功后可對管理員進(jìn)行權(quán)限操作，添加管理員代碼： set rst=() insert into addminforma(name,password) values(39。amp。nameamp。39。,39。amp。pwd1amp。39。),conn 刪除管理員 代碼： set rs=() sql=delete from addminforma where name=39。amp。nameamp。39。 修改管理員 代碼： set rs=() (update dep set jl=39。amp。jlamp。39。,phone=39。amp。phoneamp。39。 where bm=39。amp。bmamp。39。) 5 設(shè)計難題及解決方法 上傳 文件 的實現(xiàn) 是本系統(tǒng)的一個難點 在系統(tǒng)的實現(xiàn)過程中需要從瀏覽器向服務(wù)器上傳文件，現(xiàn)在有很多 ASP 上傳組件，如 SA_FILEUP 組件、 LyUpload 組件、 組件等， 使用它們 必須在 服務(wù)器上注冊 這些組件 ，該系統(tǒng)使用了無需任何組件支持的無組件上傳程序 ，運用了 savefile 保存上傳文件函數(shù)和getformval 獲取表變值函數(shù)。 Savefile()函數(shù)的關(guān)鍵代碼： % function SaveFile(formfilefield,path,maxsize,savtype) 39。保存文件 =3 39。修改流數(shù)據(jù)的權(quán)限，這里為只寫 =1 39。提示流數(shù)據(jù)類型，這里為二進(jìn)制類型 =3 =1 formfilefield=chr(34)amp。formfilefieldamp。chr(34) 39。檢測路徑 if right(path,1)\ then 39。檢測目錄參數(shù)完整性 path=pathamp。\ 第 24 頁 共 27 頁 end if if len(trim(maxsize))=0 then maxsize=5*1024 39。指定默認(rèn)最大上傳文件為 5MB end if do while startpos 0 39。如果上傳的文件不為空 開始保存每個 file文件對象數(shù)據(jù) strlen=InStrB(startpos,formdata,bCrLf)startpos searchstr=MidB(formdata,startpos,strlen) if instr(bin2str(searchstr),formfilefield)0 then upfilename=bin2str(getupfilename(searchstr,path,savtype)) 39。文件格式限制 fnn=split(upfilename,.) 39。文件名與擴展名使用 split函數(shù)分割 intfnn=ubound(fnn) fileextname=trim(fnn(intfnn)) 39。取得文件擴展名 fixfnn=split(fixfileext,|) 39。分割所限制的文件的擴展名 intfix=ubound(fixfnn) for i=0 to intfix 39。比較取得文件的擴展名是否與所限制文件上擴展名相同 if lcase(fileextname)=lcase(trim(fixfnn(i))) then savefile=fileerror 39。然后報錯 exit do if upfilename then filestart=instrb(startpos,formdata,bCrLfamp。bCrLf)+4 filelen=instrb(startpos,formdata,divider)2filestart if filelen=maxsize*1024 then 39。當(dāng)取得的文件大小小于所限制文件大不小時 filecontent=midb(formdata,filestart,filelen) with objstream open 39。打開流對象 write formdata 39。向流中 輸 入字節(jié)數(shù)據(jù) position=filestart1 39。指示出在當(dāng)前流中的位置 copyto allyes_objstream,filelen 39。復(fù)制 filelen數(shù)量字節(jié)到 allyes_objstream中 end with re_savtype=savtype if savtype=0 then savtype=1 39。文件報錯 end if 第 25 頁 共 27 頁 結(jié) 論 本 系統(tǒng) 通過大量的資料調(diào)研，較為深入地分析論證了該系統(tǒng)的可行性。本系統(tǒng)主要運用 Microsoft ASP 作為開發(fā)工具，綜合現(xiàn)代的企業(yè)管理模式，企業(yè)實際的需求，為適應(yīng)信息化、高效率的現(xiàn)代辦公要求而推出的一套操作簡便，能夠自我維護(hù)、自我管理、自我實施的高度集成化的信息管理平臺 。 本系統(tǒng)以簡單易用、功能強大、界面友好、性能穩(wěn)定為原則 ， 基本完成了企業(yè)公告及資料 發(fā)布 系統(tǒng)的功能，以及企業(yè)的日常管理工作功能。 當(dāng)然，由于主客觀因素的影響，本系統(tǒng)的開發(fā)做得不夠盡善盡美， 上傳 功能和 頁 面 的美觀方面 都有待進(jìn)一步完 善，以滿足信息技術(shù)與企業(yè)管理電子化日新月異的需求。 參考文獻(xiàn) [1] 劉瑞新 ,張兵義 ,常永英 . ASP動態(tài)網(wǎng)站開發(fā)畢業(yè)設(shè)計指導(dǎo)及實例 [M].北京：機械工業(yè)出版社， 2021。 [2] 屈喜龍 ,朱杰 . ASP+SQL Server 開發(fā)動態(tài)網(wǎng)站實例薈萃 [M].北京：機械工業(yè)出版社，2021。 [3] 張紅軍 ,劉育楠 . 動態(tài)網(wǎng)頁技術(shù)精粹 [M].北京：清華大學(xué)出版社， 2021。 [4] 楊志姝 ,唐有明 . Dreamweaver MX 2021 網(wǎng)站設(shè)計與網(wǎng)頁制作標(biāo)準(zhǔn)教程 [M].北京：清華大學(xué)出版社， 2021。 [5] 網(wǎng)冠科技 .網(wǎng)頁綜合制作時尚創(chuàng)作百例 [M].北京：機械工業(yè)出版社， 2021。 [6] 李嚴(yán)等 .ASP數(shù)據(jù)庫開發(fā)實例解析 [M].北京：機械工業(yè)出版社 ,2021。 [7] 方睿 ,吳四九 .網(wǎng)絡(luò)數(shù)據(jù)庫原理及應(yīng)用 [M].成都： 四川大學(xué)出版社 ,2021。