畢業(yè)設(shè)計(jì)（論文）-辦公自動化管理系統(tǒng)的設(shè)計(jì)

–PAGE4––PAGE5–辦公自動化管理系統(tǒng)的設(shè)計(jì)摘要【摘要】隨著信息技術(shù)的飛速發(fā)展和日趨激烈的商業(yè)競爭，企業(yè)已不再滿足于獨(dú)立、零散的辦公自動化應(yīng)用，企業(yè)需要的是協(xié)同工作、綜合、集成化的解決方案。而網(wǎng)絡(luò)是解決由于物理距離造成的信息交流不暢、協(xié)商溝通不便的辦公瓶頸問題的最佳方式。企業(yè)網(wǎng)上辦公自動化通過對各辦公自動化要素的閉環(huán)整合，實(shí)現(xiàn)了工作流、信息流、知識流和辦公自動化系統(tǒng)的整合管理，提供了一個(gè)科學(xué)、開放、先進(jìn)的信息化辦公平臺，實(shí)現(xiàn)辦公自動化，并進(jìn)行遠(yuǎn)程辦公或在家辦公。企業(yè)網(wǎng)上辦公自動化將人從繁瑣、無序、低序、低端的工作中解放出來從事核心事務(wù)，整體提高了單位辦事效率和對信息的可控性，降低辦公成本，提高執(zhí)行力，使管理趨于完善.【關(guān)鍵詞】辦公自動化管理、ADO連接、數(shù)據(jù)源、辦公管理

目錄TOC\o"1-3"\h\z摘要 10引言 11系統(tǒng)分析 21.1需求分析 21.2可行性分析 22總體設(shè)計(jì) 22.1項(xiàng)目規(guī)劃 22.2系統(tǒng)功能結(jié)構(gòu)圖 33系統(tǒng)設(shè)計(jì) 33.1設(shè)計(jì)目標(biāo) 33.2開發(fā)及運(yùn)行環(huán)境 43.3邏輯結(jié)構(gòu)設(shè)計(jì) 44網(wǎng)站總體架構(gòu) 54.1模塊功能介紹 54.2網(wǎng)站首頁的運(yùn)行結(jié)果 55系統(tǒng)登錄模塊設(shè)計(jì) 66日常管理模塊設(shè)計(jì) 86.1收文管理模塊設(shè)計(jì) 86.2發(fā)文管理模塊設(shè)計(jì) 96.3批示管理模塊設(shè)計(jì) 106.4會議管理模塊設(shè)計(jì) 126.5個(gè)人辦公管理模塊設(shè)計(jì) 156.6人事管理模塊設(shè)計(jì) 237業(yè)務(wù)管理模塊設(shè)計(jì) 257.1生產(chǎn)報(bào)表管理模塊 257.2采購計(jì)劃管理模塊設(shè)計(jì) 317.3庫存管理模塊設(shè)計(jì) 338用戶管理模塊設(shè)計(jì) 358.1用戶添加管理模塊設(shè)計(jì) 358.2用戶修改管理模塊設(shè)計(jì) 388.3用戶注銷管理模塊設(shè)計(jì) 39附錄A參考文獻(xiàn) 40附錄B數(shù)據(jù)表 42附錄C文件架構(gòu)圖 470引言隨著中國加入WTO及全球經(jīng)濟(jì)一體化進(jìn)程的加快，世界經(jīng)濟(jì)已由工業(yè)化經(jīng)濟(jì)逐步進(jìn)入網(wǎng)絡(luò)信息化時(shí)代。在信息時(shí)代來臨之季，各企業(yè)都緊跟時(shí)代的腳步，轉(zhuǎn)變著企業(yè)的經(jīng)營模式、管理模式，從傳統(tǒng)的人工管理體制，向信息自動化管理體制過渡。與此同時(shí)，企業(yè)的傳統(tǒng)式的辦公管理模式也在逐步向自動化辦公管理模式轉(zhuǎn)變。網(wǎng)絡(luò)自動化辦公系統(tǒng)就是在這樣的大背景下應(yīng)運(yùn)而生的。信息時(shí)代的到來讓人們嘗到了“信息爆炸”的滋味，信息的大量擁入讓企業(yè)在信息處理方便應(yīng)接不暇，傳統(tǒng)的辦公模式、對信息的處理方法，早已不能滿足企業(yè)對信息快速、準(zhǔn)確的處理的要求。一個(gè)企業(yè)對信息數(shù)據(jù)的掌握程度、處理能力，體現(xiàn)了一個(gè)企業(yè)對市場的敏感程度，數(shù)據(jù)的真實(shí)性、準(zhǔn)確性直接決定著企業(yè)的發(fā)展方向。從傳統(tǒng)的辦公模式向自動化辦公管理模式轉(zhuǎn)變，提高企業(yè)的信息處理能力，以增強(qiáng)企業(yè)的市場競爭力，成了企業(yè)發(fā)展過程中的首要問題。

1系統(tǒng)分析1.1需求分析通過調(diào)查，要求系統(tǒng)需要有以下功能：由于操作人員的計(jì)算機(jī)知識普遍較差，要求有良好的人機(jī)界面。管理系統(tǒng)用戶，由于該系統(tǒng)的使用對象多，要求有較好的權(quán)限管理。管理企業(yè)的會議信息，發(fā)文信息、公共信息。提供個(gè)人辦公服務(wù)。對企業(yè)員工基本情況進(jìn)行全面管理。設(shè)置生產(chǎn)數(shù)據(jù)統(tǒng)計(jì)、打印功能。對企業(yè)制定的采購計(jì)劃進(jìn)行管理。對庫存信息進(jìn)行管理。發(fā)布企業(yè)的生產(chǎn)指標(biāo)，對其進(jìn)行管理。強(qiáng)大的生產(chǎn)數(shù)據(jù)統(tǒng)計(jì)功能。當(dāng)外界環(huán)境（停電、網(wǎng)絡(luò)病毒）干擾本系統(tǒng)時(shí)，系統(tǒng)可以自動保護(hù)原始數(shù)據(jù)的安全。在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好。數(shù)據(jù)計(jì)算自動完成，盡量減少人工干預(yù)。系統(tǒng)退出。1.2可行性分析經(jīng)濟(jì)性通過網(wǎng)站對企業(yè)內(nèi)部信息進(jìn)行全面的自動化的管理，大大提高了企業(yè)的辦公效率。通過系統(tǒng)對企業(yè)生產(chǎn)經(jīng)營過程中的數(shù)據(jù)進(jìn)行全面的管理和統(tǒng)計(jì)，避免人為處理各類數(shù)據(jù)時(shí)所產(chǎn)生的各種問題，提高了企業(yè)的經(jīng)濟(jì)效益，為企業(yè)經(jīng)營決策提供了大量的、權(quán)威的數(shù)據(jù)，使企業(yè)的管理進(jìn)行到科學(xué)化、系統(tǒng)化的范籌。技術(shù)性網(wǎng)絡(luò)化的辦公管理，使企業(yè)管理更加規(guī)范，實(shí)現(xiàn)了通過網(wǎng)絡(luò)對信息進(jìn)行發(fā)布、傳遞、接收等一系列功能。系統(tǒng)中設(shè)置的個(gè)人辦公管理模塊，為個(gè)人辦公提供了一個(gè)更為方便的管理平臺，大大提高個(gè)人辦公的工作效率，進(jìn)而提高整個(gè)企業(yè)的辦公效率。2總體設(shè)計(jì)2.1項(xiàng)目規(guī)劃辦公自動化管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫開發(fā)應(yīng)用程序，由日常管理模塊、業(yè)務(wù)管理模塊、用戶管理模塊組成，規(guī)劃系統(tǒng)功能模塊如下：日常管理模塊該模塊包括收文管理模塊、發(fā)文管理模塊、批示管理模塊、會議管理模塊、公共信息管理模塊、個(gè)人辦公管理模塊、人事管理模塊。業(yè)務(wù)管理模塊該模塊包括生產(chǎn)報(bào)表模塊、采購計(jì)劃模塊、庫存管理模塊、指標(biāo)情況模塊。用戶管理模塊該模塊主要包括用戶添加模塊、用戶管理模塊、用戶注銷模塊。2.2系統(tǒng)功能結(jié)構(gòu)圖辦公自動化管理系統(tǒng)功能結(jié)構(gòu)如圖1所示。圖1系統(tǒng)功能結(jié)構(gòu)圖3系統(tǒng)設(shè)計(jì)3.1設(shè)計(jì)目標(biāo)本系統(tǒng)是針對中小型企業(yè)內(nèi)部辦公自動化管理的要求進(jìn)行設(shè)計(jì)的，主要實(shí)現(xiàn)如下目標(biāo)：系統(tǒng)采用人機(jī)對話方式，界面清晰、信息查詢靈活、方便、快捷、準(zhǔn)確、數(shù)據(jù)存儲安全可靠。利用系統(tǒng)快速的統(tǒng)計(jì)生產(chǎn)的數(shù)據(jù)報(bào)表，并對報(bào)表信息進(jìn)行打印。鍵盤操作，快速響應(yīng)。實(shí)現(xiàn)了各類發(fā)文信息、公共信息的強(qiáng)大的管理能力。實(shí)現(xiàn)對員工基礎(chǔ)信息（人事管理）的管理功能等。實(shí)現(xiàn)了個(gè)人辦公的信息自動化管理功能。對企業(yè)的采購計(jì)劃、庫存信息進(jìn)行管理。發(fā)布生產(chǎn)指標(biāo)，對企業(yè)生產(chǎn)指標(biāo)信息進(jìn)行管理。發(fā)布會議信息，并對會議信息進(jìn)行管理。對系統(tǒng)用戶進(jìn)行管理。為了加強(qiáng)數(shù)據(jù)保密性，為每個(gè)用戶設(shè)置權(quán)限級別。系統(tǒng)最大限度地實(shí)現(xiàn)了易安裝性、易維護(hù)性和易操作性。系統(tǒng)運(yùn)行穩(wěn)定、安全可靠。3.2開發(fā)及運(yùn)行環(huán)境硬件平臺：CPU：P41.8GHz；內(nèi)存：256MB以上。軟件平臺：操作系統(tǒng)：Windowsxp/Windows2000。數(shù)據(jù)庫：SQLServer2000。瀏覽器：IE5.0，推薦使用IE6.0。Web服務(wù)器：IIS5.0。分辨率：最佳效果1024×768像素。3.3邏輯結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)數(shù)據(jù)庫采用SQLServer2000數(shù)據(jù)庫，系統(tǒng)數(shù)據(jù)庫名稱為db_office。數(shù)據(jù)庫db_office中包含13張表。數(shù)據(jù)庫中的數(shù)據(jù)表請參見附錄B。4網(wǎng)站總體架構(gòu)4.1模塊功能介紹系統(tǒng)主要包括以下功能模塊：系統(tǒng)登錄模塊：主要用于用戶登錄管理。日常管理模塊：主要包括收文管理、發(fā)文管理、批示管理、會議管理、公共信息管理、個(gè)人辦公管理、人事管理7部分。業(yè)務(wù)管理模塊：主要包括生產(chǎn)報(bào)表管理、采購計(jì)劃管理、庫存管理、指標(biāo)情況管理4部分。用戶管理模塊：主要包括超級用戶、普通用戶兩種登錄情況。超級用戶包括用戶添加、用戶修改(所有用戶)、用戶注銷3部分；普通用戶包括用戶修改(個(gè)人信息進(jìn)行修改)、用戶注銷2部分。4.2網(wǎng)站首頁的運(yùn)行結(jié)果網(wǎng)站首頁的運(yùn)行結(jié)果如圖3所示。1212345圖3網(wǎng)站首頁運(yùn)行結(jié)果為了方便閱讀將網(wǎng)站頁面的各部分說明以列表形式給出，如表1所示。表1網(wǎng)站首頁解析區(qū)域名稱說明對應(yīng)文件1旗幟廣告區(qū)用于顯示網(wǎng)站的標(biāo)識、標(biāo)題admin.asp2日常管理區(qū)主要用于日常工作管理admin.asp3業(yè)務(wù)管理區(qū)主要用于業(yè)務(wù)管理admin.asp4用戶管理區(qū)主要用于管理用戶的添加、修改、注銷admin.asp5展示區(qū)主要用于顯示相關(guān)操作或其他內(nèi)容列表main.asp5系統(tǒng)登錄模塊設(shè)計(jì)系統(tǒng)登錄模塊主要用于驗(yàn)證用戶登錄系統(tǒng)時(shí)輸入的用戶名、密碼、驗(yàn)證碼是否正確，如果正確用戶進(jìn)入系統(tǒng)，否則將不能進(jìn)入此系統(tǒng)。系統(tǒng)登錄頁面的設(shè)計(jì)效果如圖4所示。圖4系統(tǒng)登錄頁面設(shè)計(jì)效果系統(tǒng)登錄頁面所涉及的HTML表單元素如表2所示。表2系統(tǒng)登錄頁面所涉及的HTML表單元素名稱類型含義重要屬性form1Form表單action="check.asp?action=login"method="POST"admin_nametext用戶名onFocus="this.select();"onmouseover="this.style.background='#EAEAEA';"onmouseout="this.style.background='#FFFFFF'"admin_passpassword密碼onFocus="this.select();"onmouseover="this.style.background='#EAEAEA';"onmouseout="this.style.background='#FFFFFF'"verifycodetext驗(yàn)證碼onFocus="this.select();"onmouseover="this.style.background='#EAEAEA';"onmouseout="this.style.background='#FFFFFF'"size="6"maxlength="4"verifycode2hidden隱藏域value="<%=session("verifycode")%>"submitsubmit【登錄】按鈕class="input"value="登錄"submit2reset【重填】按鈕value="重填"class="input"系統(tǒng)登錄頁面所涉及到的程序代碼如下：<% dimverifycode,verifycode2verifycode=trim(Request.Form("verifycode"))'獲取輸入驗(yàn)證碼的值 verifycode2=trim(Request.Form("verifycode2"))'應(yīng)用Trim函數(shù)替換字符串左右空格符 ifverifycode<>verifycode2then'判斷輸入的驗(yàn)證碼與隨機(jī)產(chǎn)生的驗(yàn)證碼是否一致 response.write"<SCRIPTlanguage=JavaScript>alert('您輸入的驗(yàn)證碼不正確。');" response.write"location.href='index.asp'</SCRIPT>" else session("verifycode")=""'清空驗(yàn)證碼%><% ifrequest("action")="login"then'判斷表單是否接收到值 admin_name=request("admin_name")'接收用戶名 admin_pass=request("admin_pass")'接收用戶密碼 username=trim(request("admin_name"))'應(yīng)用Trim函數(shù)去掉左右空格符 password=trim(request("admin_pass")) fori=1tolen(username)'應(yīng)用len函數(shù)計(jì)算出用戶名的長度user=mid(username,i,1)'判斷用戶名中是否含有非法字符 ifuser="'"oruser="%"oruser="<"oruser=">"oruser="&"oruser="|"then response.write"<scriptlanguage=JavaScript>"&"alert('您的用戶名含有非法字符,請重新輸入！');"&"history.back()"&"</script>" response.end endif nextfori=1tolen(password)'判斷用戶密碼中是否含有非法字符 pass=mid(password,i,1) ifpass="'"orpass="%"orpass="<"orpass=">"orupass="&"orpass="|"then response.write"<scriptlanguage=JavaScript>"&"alert('您的密碼含有非法字符,請重新輸入！');"&"history.back()"&"</script>" response.end endif next%><% setrs=server.createobject("adodb.recordset") sql="select*fromuserswhereusername='"&admin_name&"'anduserpwd='"&admin_pass&"'" rs.opensql,conn,1,3 ifrs.eofthen'判斷輸入的用戶名、密碼或驗(yàn)證碼是否正確 response.write"<br><br><br><br><fontsize=2><center>對不起，您輸入的用戶名、密碼或驗(yàn)證碼有誤，從重新輸入，謝謝！<br><br>本軟件建議您使用IE6.0以上版本，分辨率：1024*768<br><br>否則一切后果與本軟件無關(guān)，特此聲明！</font>" else session("admin_name")=request("admin_name")'創(chuàng)建session階段變量 response.Redirect("admin.asp")'跳轉(zhuǎn)到指定的動態(tài)頁 endif rs.close setrs=nothing conn.close'關(guān)閉已打開的記錄集 setconn=nothing'將不用的對象釋放掉 endifendif%>系統(tǒng)登錄頁面的運(yùn)行結(jié)果如圖5所示。圖5系統(tǒng)登錄頁面的運(yùn)行結(jié)果6日常管理模塊設(shè)計(jì)日常管理模塊主要包括收文管理、發(fā)文管理、批示管理、會議管理、公共信息管理、個(gè)人辦公管理、人事管理7部分。6.1收文管理模塊設(shè)計(jì)收文管理主要用于顯示發(fā)文人、審批人、發(fā)文日期、發(fā)文標(biāo)題，通過單擊“發(fā)文標(biāo)題”超鏈接，可以打開收文的詳細(xì)信息頁面。收文信息以分頁形式進(jìn)行顯示。收文管理頁面的設(shè)計(jì)效果如圖6所示。圖6收文管理頁面的設(shè)計(jì)效果收文管理頁面所涉及到的程序代碼如下：<% setrs=server.CreateObject("adodb.recordset") sql="select*fromfajianwhereshen=1orderbytimedesc" rs.opensql,conn,1,1%><%ifnotrs.eofthentel=rs.recordcount'獲取記錄集的總數(shù)shum=15rs.pagesize=shummaxpage=rs.pagecount'獲取最大頁面碼值requestpage=clng(request("p"))ifrequestpage=""orrequestpage=0thenrequestpage=1'設(shè)置默認(rèn)值endififrequestpage>maxpagethenrequestpage=maxpageendififnotrequestpage=1thenrs.move(request1)*rs.pagesizeendiffori=1tors.pagesizeandnotrs.eof%><tr><tdheight="26"bgcolor="#FFFFFF"><spanclass="style3">→</span><ahref="#"onClick="window.open('shouxian.asp?id=<%=rs("id")%>','','scrollbars=yes,width=510,height=500')"><%=rs("title")%></a></td><tdheight="26"bgcolor="#FFFFFF"><divalign="center"><%=rs("name")%></div></td><tdheight="26"bgcolor="#FFFFFF"><divalign="center"><%=rs("sname")%></div></td><tdbgcolor="#FFFFFF"><divalign="center"><%=rs("time")%></div></td></tr><%rs.movenextifrs.eofthenexitfor'如果記錄集為空，跳出循環(huán)nextelseresponse.Write("暫無信息")endifrs.close%>6.2發(fā)文管理模塊設(shè)計(jì)發(fā)文管理主要包括發(fā)布發(fā)文、發(fā)文刪除兩部分。發(fā)布發(fā)文管理的相關(guān)程序代碼如下：<% ifrequest("post")="true"then'判斷表單是否提交 callwri'調(diào)用wri自定義函數(shù) endif functionwri ifrequest("title")<>""andrequest("content")<>""then'判斷發(fā)文的標(biāo)題、內(nèi)容是否為空 setrs=server.CreateObject("adodb.recordset") sql="select*fromfajian" rs.opensql,conn,1,3'打開記錄集 rs.AddNew rs("title")=request("title") rs("content")=request("content") rs("name")=session("admin_name") rs("shen")=0'添加發(fā)文屬于未審核 rs("time")=now()'根據(jù)計(jì)算機(jī)系統(tǒng)設(shè)定的日期和時(shí)間返回當(dāng)前的日期和時(shí)間值 rs.update rs.close response.Redirect("chenggong.htm")'跳轉(zhuǎn)到指定的動態(tài)頁 elseresponse.Write("<scriptlanguage=javascript>alert('請把信息填寫完整')</script>") endif endfunction%>除了發(fā)布發(fā)文功能同時(shí)也設(shè)置了刪除發(fā)文的功能，單擊“刪除”超鏈接將刪除指定的發(fā)文信息。發(fā)文刪除的程序代碼如下：<%ifrequest("del")<>""then'判斷接收的del值不能等于空calldelendiffunctiondelsql2="deletefromfajianwhereid="&request("del")conn.Execute(sql2)'執(zhí)行sql2語句endfunction%><%setrs=server.CreateObject("adodb.recordset")sql="select*fromfajianwherename='"&session("admin_name")&"'andshen=0orderbytimedesc"rs.opensql,conn,1,1'打開記錄集%><ahref=faguan.asp?del=<%=rs("id")%>&p=<%=requestpage%>>刪除</a>發(fā)文刪除頁面的運(yùn)行結(jié)果如圖7所示。圖7發(fā)文刪除頁面的運(yùn)行結(jié)果6.3批示管理模塊設(shè)計(jì)批示管理主要包括發(fā)文批示、發(fā)文修改、發(fā)文刪除，只有當(dāng)用戶是超級用戶才有權(quán)限進(jìn)行批示管理，普通用戶沒有此權(quán)限。當(dāng)審批之后，發(fā)文在收文管理頁面中才能夠顯示出來。批示管理頁面的設(shè)計(jì)效果如圖8所示。圖8批示管理頁面設(shè)計(jì)效果批示管理頁面所涉及到的程序代碼如下：<% callcase1 ifrequest("del")<>""and(ps("shenhe")=1orps("chaoji")=1)then'判斷用戶是否有權(quán)限刪除發(fā)文 calldel endif functiondel sql2="deletefromfajianwhereid="&request("del") conn.Execute(sql2)'執(zhí)行sql2語句 endfunctionifrequest("shen")<>""and(ps("shenhe")=1orps("chaoji")=1)then'判斷用戶是否有權(quán)限進(jìn)行審核 callup endif functionup setrs1=server.CreateObject("adodb.recordset") sql1="select*fromfajianwhereid="&request("id") rs1.opensql1,conn,1,3 rs1("shen")=request("shen")'是否審核 rs1("sname")=session("admin_name")'獲取操作用戶名 rs1.update rs1.close endfunction%><% setrs=server.CreateObject("adodb.recordset") sql="select*fromfajianorderbytimedesc"'將所有記錄進(jìn)行降序排列 rs.opensql,conn,1,1%><%ifrs("shen")=1then%>已審核<%EndIf%><%ifrs("shen")=0then%><ahref=piguan.asp?shen=1&id=<%=rs("id")%>onClick="returnconfirm('確定審核嗎？')">審核</a>'通過鼠標(biāo)單擊事件實(shí)現(xiàn)彈出提示框<%EndIf%>修改發(fā)文進(jìn)行修改所涉及到的程序代碼如下<% callcase1'驗(yàn)證用戶身份,此時(shí)調(diào)用inc/yan.asp文件,selectcase1 setrs1=server.CreateObject("adodb.recordset") sql1="select*fromfajianwhereid="&request("id") rs1.opensql1,conn,1,1 session("id")=rs1("id") ifrs1("shen")<>1then'判斷是否已審核 ifrequest("post")="true"then'判斷是否已接收表單的值 callwri endif functionwri ifrequest("title")<>""andrequest("content")<>""then'判斷是否接收到值 setrs=server.CreateObject("adodb.recordset") sql="select*fromfajianwhereid="&session("id")'通過session("id")查找相關(guān)記錄 rs.opensql,conn,1,3'打開記錄集 rs("title")=request("title")'接收添加的標(biāo)題 rs("content")=request("content")'接收添加的內(nèi)容 rs("time")=now()'獲取當(dāng)前系統(tǒng)日期和時(shí)間 rs.update rs.close response.Redirect("chenggong.htm")'跳轉(zhuǎn)到發(fā)文修改成功頁面 else response.Write("<scriptlanguage=javascript>alert('請把信息填寫完整')</script>") endif endfunction ifrequest("id")=""then response.Redirect("piguan.asp") endif%>批示管理頁面的運(yùn)行結(jié)果如圖9所示。圖9批示管理頁面的運(yùn)行結(jié)果6.4會議管理模塊設(shè)計(jì)會議管理主要包括會議修改、會議刪除、會議發(fā)布3部分。當(dāng)用戶單擊會議標(biāo)題超鏈接時(shí)，進(jìn)入相關(guān)的會議信息詳細(xì)頁面，可對會議的詳細(xì)信息進(jìn)行瀏覽。會議管理頁面的設(shè)計(jì)效果如圖10所示。圖10會議管理頁面設(shè)計(jì)效果會議管理頁面所涉及到的程序代碼如下：<% callcase2'驗(yàn)證用戶身份，此時(shí)調(diào)用inc/yan.asp文件中selectcase2 ifrequest("del")<>""then'判斷是否接收到值 calldel endif functiondel sql2="deletefromhuiyiwhereid="&request("del") conn.Execute(sql2)'通過execute執(zhí)行sql2語句 endfunction %><% setrs=server.CreateObject("adodb.recordset") sql="select*fromhuiyiorderbytimedesc" rs.opensql,conn,1,1%><ahref=huiyiguan.asp?del=<%=rs("id")%>&p=<%=requestpage%>>刪除</a>'調(diào)用刪除會議功能模塊會議管理頁面的運(yùn)行結(jié)果如圖11所示。圖11會議管理頁面運(yùn)行結(jié)果在會議管理頁面，單擊“修改”超鏈接，進(jìn)入會議信息修改頁面后，用戶可以對會議的標(biāo)題、內(nèi)容進(jìn)行修改。只有當(dāng)用戶有修改權(quán)限時(shí)，才可以對會議的相關(guān)信息進(jìn)行修改。會議修改頁面的設(shè)計(jì)效果如圖12所示。圖12會議修改頁面的設(shè)計(jì)效果修改會議所涉及到的程序代碼如下：<%callcase2'驗(yàn)證用戶身份此時(shí)調(diào)用inc/yan.asp文件selectcase2 ifrequest("post")="true"then'判斷是否接收到表單值 callwri'通過call語句調(diào)用function過程 endif functionwriifrequest("title")<>""andrequest("content")<>""and(ps("huiyi")=1orps("chaoji")=1)then setrs=server.CreateObject("adodb.recordset") sql="select*fromhuiyiwhereid="&session("id") rs.opensql,conn,1,3 rs("title")=request("title")'接收進(jìn)行修改的會議標(biāo)題 rs("content")=request("content") rs("time")=now()'接收當(dāng)前系統(tǒng)日期和時(shí)間 rs.update rs.close response.Redirect("chenggong.htm") else response.Write("<scriptlanguage=javascript>alert('請把信息填寫完整')</script>") endif endfunction ifrequest("id")=""then response.Write("對不起，您不是管理員！") endif setrs1=server.CreateObject("adodb.recordset") sql1="select*fromhuiyiwhereid="&request("id") rs1.opensql1,conn,1,1%>會議發(fā)布所涉及到的程序代碼如下：<%callcase2ifrequest("post")="true"and(ps("huiyi")=1orps("chaoji")=1)then'判斷用戶是否有權(quán)限發(fā)布會議 callwriendiffunctionwri ifrequest("title")<>""andrequest("content")<>""then'接收的會議標(biāo)題、會議內(nèi)容不允許為空 setrs=server.CreateObject("adodb.recordset") sql="select*fromhuiyi" rs.opensql,conn,1,3 rs.AddNew rs("title")=request("title")'接收發(fā)布會議的標(biāo)題 rs("content")=request("content")'接收發(fā)布會議的內(nèi)容 rs("name")=session("admin_name") rs("time")=now()'獲取當(dāng)前系統(tǒng)日期和時(shí)間 rs.update rs.close response.Redirect("chenggong.htm") else response.Write("<scriptlanguage=javascript>alert('請把信息填寫完整')</script>") endif endfunction%>6.5個(gè)人辦公管理模塊設(shè)計(jì)個(gè)人辦公管理模塊主要包括個(gè)人活動登記管理、個(gè)人活動管理、個(gè)人郵件管理、名片夾管理4部分。個(gè)人活動登記管理模塊個(gè)人活動登記管理模塊主要用于添加個(gè)人活動記錄。個(gè)人活動登記管理頁面的設(shè)計(jì)效果如圖13所示。圖13個(gè)人活動登記管理頁面的設(shè)計(jì)效果個(gè)人活動登記管理頁面所涉及的相關(guān)的程序代碼如下：<% ifrequest("post")=2then'判斷是否接收到表單的值 callwrt1 endif functionwrt1 ifrequest("title")=""orrequest("content")=""then response.Write("<scriptlanguage=javascript>alert('請把內(nèi)容填寫完整！')</script>") else setrs=server.CreateObject("adodb.recordset") sql="select*fromgerenhuodong" rs.opensql,conn,1,3 rs.addnew rs("title")=request("title")'接收個(gè)人活動登記標(biāo)題 rs("content")=request("content")'接收個(gè)人活動登記內(nèi)容 rs("name")=session("admin_name") rs("time")=now()'獲取當(dāng)前系統(tǒng)日期和時(shí)間 rs.update rs.close response.Redirect("chenggong.htm") endif endfunction%>個(gè)人活動登記管理頁面的運(yùn)行結(jié)果如圖14所示。圖14個(gè)人活動登記管理頁面的運(yùn)行結(jié)果個(gè)人活動管理模塊個(gè)人活動管理模塊主要包括個(gè)人活動信息刪除、對提交個(gè)人活動信息進(jìn)行批準(zhǔn)、個(gè)人活動信息內(nèi)容的顯示3部分。當(dāng)用戶是超級用戶時(shí)可以對個(gè)人活動信息進(jìn)行批準(zhǔn)和刪除操作；而普通用戶只能對信息進(jìn)行修改。個(gè)人活動管理頁面的設(shè)計(jì)效果如圖20所示。圖15個(gè)人活動管理頁面的設(shè)計(jì)效果當(dāng)用戶為超級用戶時(shí)可以批準(zhǔn)發(fā)文、刪除發(fā)文。個(gè)人活動管理頁面超級用戶時(shí)所涉及到的相關(guān)程序代碼如下：<% ifrequest("pass")<>""then'判斷是否接收到表單的值 callgeren endif functiongeren setrs2=server.CreateObject("adodb.recordset") sql2="select*fromgerenhuodongwhereid="&request("id") rs2.opensql2,conn,1,3 rs2("pass")=1 rs2("pname")=session("admin_name")'接收批準(zhǔn)用戶名 rs2.update rs2.close endfunction ifrequest("del")<>""then'接收刪除的值不能為空 calldel endif functiondel sql2="deletefromgerenhuodongwhereid="&request("del")'刪除指定記錄 conn.Execute(sql2) endfunction%><% setrs=server.CreateObject("adodb.recordset") sql="select*fromgerenhuodongorderbytimedesc"'將個(gè)人活動信息進(jìn)行降序排列 rs.opensql,conn,1,1%>當(dāng)用戶為普通用戶時(shí)只可以修改發(fā)文。個(gè)人活動管理頁面普通用戶時(shí)所涉及到的相關(guān)程序代碼如下：<% setrs1=server.CreateObject("adodb.recordset") sql1="select*fromgerenhuodongwhereid="&request("id") rs1.opensql1,conn,1,1 session("id")=rs1("id")'建立session("id") ifrequest("post")="true"then'判斷表單是否提交 callwri endif functionwri ifrequest("title")<>""andrequest("content")<>""then'接收的標(biāo)題、內(nèi)容不允許為空 setrs=server.CreateObject("adodb.recordset") sql="select*fromgerenhuodongwhereid="&session("id") rs.opensql,conn,1,3 rs("title")=request("title")'接收修改發(fā)文標(biāo)題 rs("content")=request("content")'接收修改發(fā)文內(nèi)容 rs("name")=session("admin_name")'接收修改用戶名 rs("time")=now()'獲取當(dāng)前系統(tǒng)日期和時(shí)間 rs.update rs.close'關(guān)閉已打開的記錄集 response.Redirect("chenggong.htm")'跳轉(zhuǎn)到指定的動態(tài)頁面 else response.Write("<scriptlanguage=javascript>alert('請把信息填寫完整')</script>") endifendfunction%>個(gè)人活動管理頁面的運(yùn)行結(jié)果，如圖16所示。圖16個(gè)人活動管理頁面的運(yùn)行結(jié)果個(gè)人郵件管理模塊個(gè)人郵件管理模塊主要包括個(gè)人郵件刪除、寫郵件、郵件閱讀（當(dāng)郵件被閱讀之后，“NEW”標(biāo)識將會消失）。個(gè)人郵件管理頁面的設(shè)計(jì)效果如圖17所示。圖17個(gè)人郵件管理頁面的設(shè)計(jì)效果個(gè)人郵件管理頁面所涉及到的程序代碼如下：<% tel=0'設(shè)置默認(rèn)值 ifrequest("del")<>""then'判斷接收的值不允許為空 calldel'通過call語句調(diào)用del模塊 endif functiondel sql2="deletefromemailwhereid="&request("del")'判斷刪除指定的記錄 conn.Execute(sql2) endfunction setrs3=server.CreateObject("adodb.recordset")sql3="select*fromemailwherenew=0andsname='"&session("admin_name")&"'orderbytimedesc" rs3.opensql3,conn,1,1 cou=rs3.recordcount setrs=server.CreateObject("adodb.recordset") sql="select*fromemailwheresname='"&session("admin_name")&"'orderbytimedesc" rs.opensql,conn,1,1%><%ifrs("new")=0then%><imgsrc="images/new.gif"><%endif%>個(gè)人郵件管理頁面中對郵件的總數(shù)進(jìn)行了統(tǒng)計(jì)，統(tǒng)計(jì)郵件總數(shù)所涉及到的程序代碼如下所示：<%ifnotrs.eofthentel=rs.recordcountsetrs3=server.CreateObject("adodb.recordset") '用于計(jì)算新郵件的數(shù)量 sql3="select*fromemailwherenew=0andsname='"&session("admin_name")&"'orderbytimedesc" rs3.opensql3,conn,1,1 cou=rs3.recordcount%>共有<spanclass="style3"><%=tel%></span>封郵件新郵件<spanclass="style3"><%=cou%></span>封個(gè)人郵件管理頁面中，單擊“寫郵件”超鏈接進(jìn)入寫郵件頁面。寫郵件頁面所涉及到的程序代碼如下：<% ifrequest("post")=2then'判斷是否接收到表單的值 callwrt1 endif functionwrt1 ifrequest("title")=""orrequest("content")=""then'判斷接收郵件的標(biāo)題、內(nèi)容不能為空 response.Write("<scriptlanguage=javascript>alert('請把內(nèi)容填寫完整！')</script>") else setrs=server.CreateObject("adodb.recordset") sql="select*fromemail" rs.opensql,conn,1,3 rs.addnew'通過addnew()方法向數(shù)據(jù)庫中添加記錄 rs("title")=request("title")'接收添加郵件標(biāo)題 rs("content")=request("content")'接收添加郵件內(nèi)容 rs("sname")=request("sel") rs("fname")=session("admin_name")'接收添加郵件用戶名 rs("time")=now()'獲取當(dāng)前系統(tǒng)日期和時(shí)間 rs.update rs.close'關(guān)閉已打開的記錄集 response.Redirect("chenggong.htm") endif endfunction%>個(gè)人郵件管理頁面的運(yùn)行結(jié)果如圖18所示。圖18個(gè)人郵件管理頁面的運(yùn)行結(jié)果名片夾管理模塊設(shè)計(jì)名片夾管理模塊主要用于添加名片夾、修改名片夾、刪除名片夾、添加名片夾詳細(xì)信息、名片夾詳細(xì)信息顯示、名片夾詳細(xì)信息修改、名片夾詳細(xì)信息刪除7部分。在名片夾管理頁面，單擊“添加”按鈕，添加名片夾名稱。添加名片夾名稱頁面的設(shè)計(jì)效果如圖19所示。圖19添加名片夾名稱頁面的設(shè)計(jì)效果添加名片夾名稱頁面所涉及到的程序代碼如下：<% ifrequest("post")=3then'判斷是否接收到表單值 callw endif functionw ifrequest("lanmu")=""then response.Write("<scriptlanguage=javascript>alert('名片夾不能為空')</script>>") else setrs=server.CreateObject("adodb.recordset") sql="select*fromlanmu" rs.opensql,conn,1,3 rs.addnew rs("lanmu")=request("lanmu")'添加名片夾名稱 rs("name")=session("admin_name") rs.update rs.close'關(guān)閉已打開的記錄集 response.Redirect("chenggong.htm")'跳轉(zhuǎn)到指定頁面 endif endfunction%>在名片夾管理頁面，單擊名片信息的“添加”按鈕，添加名片的詳細(xì)信息。添加名片詳細(xì)信息頁面主要用于添加姓名、電話、地址、QQ、email等信息。添加名片詳細(xì)信息頁面的設(shè)計(jì)效果如圖20所示。圖20添加名片詳細(xì)信息頁面的設(shè)計(jì)效果添加名片詳細(xì)信息的程序代碼如下：<% ifrequest("post")<>""then callwww endif functionwww Email=request("email")ifrequest("name")=""orrequest("tel")=""orrequest("address")=""orrequest("qq")=""orrequest("email")=""then response.Write("<scriptlanguage=javascript>alert('請把信息填寫完整！');location='javascript:history.go(-1)'</script>") elseIfInstr(Email,"@")=0OrRight(Email,1)="@"OrLeft(Email,1)="@"Then response.write"<scriptlanguage=JavaScript>"&chr(13)&"alert('請檢查您的郵件地址是否正確！');"&"history.back()"&"</script>" Response.End else setrs1=server.CreateObject("adodb.recordset") sql1="select*fromlianxi" rs1.opensql1,conn,1,3 rs1.addnew rs1("lanmu")=request("lanmu") rs1("name")=request("name") rs1("tel")=request("tel") rs1("address")=request("address") rs1("qq")=request("qq") rs1("email")=request("email")'添加email地址 rs1.update rs1.close'關(guān)閉已打開的記錄集 response.Redirect("chenggong.htm") endif endfunction%>在名片夾管理頁中，單擊名片夾“管理”超鏈接，進(jìn)入名片夾管理頁面。名片夾管理主要用于修改名片夾名稱、刪除名片夾，名片夾管理中刪除名片夾的程序代碼如下：<%ifrequest("del")<>""then calldel endif functiondel sql2="deletefromlanmuwhereid="&request("del") conn.Execute(sql2)'執(zhí)行sq12語句 sql3="deletefromlianxiwherelanmu="&request("del")'刪除名片夾 conn.Execute(sql3)'執(zhí)行sq13語句 endfunction%><% setrs=server.CreateObject("adodb.recordset") sql="select*fromlanmuwherename='"&session("admin_name")&"'" rs.opensql,conn,1,1%>修改名片夾所涉及到的程序代碼如下：<% ifrequest("post")=3then callw endif functionw ifrequest("lanmu")=""then'判斷欄目是否為空 response.Write("<scriptlanguage=javascript>alert('欄目不能為空')</script>>") else setrs=server.CreateObject("adodb.recordset") sql="select*fromlanmuwhereid="&request("id") rs.opensql,conn,1,3 rs("lanmu")=request("lanmu") rs.update rs.close response.Redirect("chenggong.htm") endif endfunction setrs1=server.CreateObject("adodb.recordset") sql1="select*fromlanmuwhereid="&request("id")'查詢欄目記錄 rs1.opensql1,conn,1,3%>在名片夾管理頁面，單擊“名片夾名稱”的超鏈接，進(jìn)入名片夾詳細(xì)信息頁面。名片夾詳細(xì)信息頁面主要是對名片詳細(xì)信息進(jìn)行修改、刪除操作，設(shè)計(jì)效果如圖21所示。圖21名片夾詳細(xì)信息頁面設(shè)計(jì)效果名片夾詳細(xì)信息頁面所涉及到的相關(guān)程序代碼如下：<% ifrequest("id")=""then'創(chuàng)建session("id") id=session("id") else id=request("id") endif setrs=server.CreateObject("adodb.recordset") sql="select*fromlanmuwhereid="&id rs.opensql,conn,1,1 ifsession("admin_name")<>rs("name")then'判斷用戶權(quán)限 response.Write("<scriptlanguage=javascript>alert('對不起您沒有這個(gè)權(quán)利！');location='javascript:history.go(-1)'</script>") endif ifrequest("del")<>""then callde endif functionde sql4="deletefromlianxiwhereid="&request("del") conn.execute(sql4) endfunction setrs1=server.CreateObject("adodb.recordset") sql1="select*fromlianxiwherelanmu="&rs("id") rs1.opensql1,conn,1,3%>名片夾詳細(xì)信息頁面的運(yùn)行結(jié)果如圖22所示。圖22名片夾詳細(xì)信息頁面運(yùn)行結(jié)果

附錄A參考文獻(xiàn)1．JSP數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊人民郵電出版社2006年3月 2．Delphi數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊人民郵電出版社2006年3月3．VisualBasic數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊人民郵電出版社2006年3月4．VisualC++數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊人民郵電出版社2006年3月5．JSP信息系統(tǒng)開發(fā)實(shí)例精選機(jī)械工業(yè)出版社王國輝、牛強(qiáng)、李南南等2005年7月 6．VisualBasic信息系統(tǒng)開發(fā)實(shí)例精選機(jī)械工業(yè)出版社宋坤、趙智勇、劉強(qiáng)等2005年7月 7．SQLServer數(shù)據(jù)庫開發(fā)實(shí)例解析機(jī)械工業(yè)出版社宋昆、李嚴(yán)等2006年1月8．Access數(shù)據(jù)庫開發(fā)實(shí)例解析機(jī)械工業(yè)出版社李俊民、高春燕等2006年1月9．VisualBasic精彩編程200例機(jī)械工業(yè)出版社 賽奎春、高春艷等2003年1月10．ASP數(shù)據(jù)庫開發(fā)實(shí)例解析機(jī)械工業(yè)出版社李嚴(yán)、于亞芳、王國輝 2004年12月11．Delphi工程應(yīng)用與項(xiàng)目實(shí)踐機(jī)械工業(yè)出版社宋坤、趙智勇等2005年1月 12．VisualBasic工程應(yīng)用與項(xiàng)目實(shí)踐機(jī)械工業(yè)出版社 高春艷、李俊民等2005年1月 13．VisualC＋＋工程應(yīng)用與項(xiàng)目實(shí)踐機(jī)械工業(yè)出版社 張雨、阮偉良等5005年1月14．JSP工程應(yīng)用與項(xiàng)目實(shí)踐機(jī)械工業(yè)出版社陳威、白偉明、李楠 2005年2月15．ASP工程應(yīng)用與項(xiàng)目實(shí)踐機(jī)械工業(yè)出版社王國輝、牛強(qiáng)、李南南 2005年4月16．VisualBasic信息系統(tǒng)開發(fā)實(shí)例精選機(jī)械工業(yè)出版社 高春艷、李俊民、張耀庭等 2005年7月17．ASP信息系統(tǒng)開發(fā)實(shí)例精選機(jī)械工業(yè)出版社王國輝、牛強(qiáng)、李南南等2005年7月 18．Delphi信息系統(tǒng)開發(fā)實(shí)例精選機(jī)械工業(yè)出版社宋坤、趙智勇、劉強(qiáng)等2005年7月 19．Visualfoxpro數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用人民郵電出版社周桓、張雨、王國輝2004年5月20．PoweBuilder數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用人民郵電出版社劉志銘張振坤馮文萃2004年5月21．Delphi數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用人民郵電出版社賽奎春陳紫鴻宋昆2004年5月22．Visualbasic數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用人民郵電出版社高春艷、李艷2004年5月23．VisualC++管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析人民郵電出版社明日科技2005年7月 24．VisualBasic管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析人民郵電出版社明日科技2005年7月 25．PowerBuilder管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析人民郵電出版社明日科技2005年7月 26．VisualFoxPro管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析人民郵電出版社明日科技2005年7月 27．Delphi數(shù)據(jù)庫開發(fā)實(shí)例解析機(jī)械工業(yè)出版社賽奎春、鄭驍鵬等2004年2月28．VisualBasic數(shù)據(jù)庫開發(fā)實(shí)例解析機(jī)械工業(yè)出版社 劉志銘、高春艷等2003年8月 29．VisualFoxPro數(shù)據(jù)庫開發(fā)實(shí)例解析機(jī)械工業(yè)出版社 王晶瑩、王國輝等2003年9月 30．PowerBuilder數(shù)據(jù)庫開發(fā)實(shí)例解析機(jī)械工業(yè)出版社 華傳銘、張振坤等2003年9月31．PowerBuilder精彩編程200例機(jī)械工業(yè)出版社張振坤、李文立等 2004年9月32．VisualFoxPro精彩編程200例機(jī)械工業(yè)出版社王國輝、董韶華等2004年9月

附錄B數(shù)據(jù)表（1）zhibiao（指標(biāo)表）指標(biāo)表主要用于保存發(fā)布指標(biāo)信息。該表結(jié)構(gòu)如表B.1所示。表B.1表zhibiao結(jié)構(gòu)字段名數(shù)據(jù)類型長度主鍵否描述idint4否自動編號namenvarchar50否發(fā)起人titlenvarchar50否標(biāo)題contentntext16否內(nèi)容[time]smalldatetime4否發(fā)布指標(biāo)日期時(shí)間（2）ri（生產(chǎn)報(bào)表）生產(chǎn)報(bào)表主要保存鍋爐生產(chǎn)的詳細(xì)信息。該數(shù)據(jù)表的結(jié)構(gòu)如表B.2所示。表B.2表ri結(jié)構(gòu)字段名數(shù)據(jù)類型長度主鍵否描述idint4否自動編號meiint4否煤gangint4否鋼yunnvarchar50否運(yùn)行狀況[date]datetime8否發(fā)布日期weeknvarchar50否周jinvarchar50否轉(zhuǎn)化日期[month]nvarchar50否月[year]nvarchar50否年（3）renshi（個(gè)人信息表）個(gè)人信息表主要用于保存用戶的詳細(xì)信息。該數(shù)據(jù)表的結(jié)構(gòu)如表B.3所示表B.3表renshi結(jié)構(gòu)字段名數(shù)據(jù)類型長度主鍵否描述idint4否自動編號namenvarchar50否用戶名稱agenvarchar50否年齡[year]smalldatetime4否出生年月日xuelinvarchar50否學(xué)歷schoolnvarchar50否畢業(yè)學(xué)校telnvarchar50否聯(lián)系電話emailnvarchar50否電子郵件jiguannvarchar50否籍慣addressnvarchar50否通訊地址zhiwunvarchar50否現(xiàn)任職位[time]smalldatetim4否入檔日期（4）lianli（名片表）名片表主要用于保存聯(lián)系人的信息。該數(shù)據(jù)表的結(jié)構(gòu)如表B.4所示。表B.4表lianli結(jié)構(gòu)字段名數(shù)據(jù)類型長度主鍵否描述idint4否自動編號lanmuint4否名片夾類型namenvarchar50否姓名telnva