計算機專業(yè)-畢業(yè)設計-中小企業(yè)信息交流系統(tǒng)畢業(yè)論文

中小企業(yè)內部信息交流系統(tǒng)摘要隨著信息技術的飛速發(fā)展和日趨激烈的商業(yè)競爭，企業(yè)已不再滿足于獨立、零散的辦公自動化應用，企業(yè)需要的是協(xié)同工作、綜合、集成化的解決方案。而網絡是解決由于物理距離造成的信息交流不暢、協(xié)商溝通不便的辦公瓶頸問題的最佳方式。企業(yè)網上（ASP）信息交流通過對各辦公自動化要素的閉環(huán)整合，實現了企業(yè)信息、信息交流、知識流和辦公自動化系統(tǒng)的整合管理，提供了一個科學、開放、先進的信息化辦公平臺，實現辦公自動化，并進行遠程辦公或在家辦公。企業(yè)網上辦公自動化將人從繁瑣、無序、低序、低端的工作中解放出來從事核心事務，整體提高了單位辦事效率和對信息的可控性，降低辦公成本，提高執(zhí)行力，使管理趨于完善。隨著全球經濟一體化進程的加快，世界經濟已由工業(yè)化經濟逐步進入網絡信息化時代。在信息時代來臨之季，各企業(yè)都緊跟時代的腳步，轉變著企業(yè)的經營模式、管理模式，從傳統(tǒng)的人工管理體制，向信息自動化管理體制過渡。與此同時，企業(yè)的傳統(tǒng)式的辦公管理模式也在逐步向自動化辦公管理模式轉變。網絡自動化辦公系統(tǒng)就是在這樣的大背景下應運而生的。關鍵詞：企業(yè)信息,交流，ASP

InternalinformationexchangeforSMEsComputerScienceandTechnology2008-2008zhougongpingSupervisor:ZhouPeichunAbstractAtpresent,thesmallhotel’scategoryflowswithincreasingoftheguestscontinuously,resultedinthedifficultytothemanagement.Usingthecomputertomanagethehotelandtheresidentinformation,enhancedtheinquiryspeed,savedtheworkforceandtheresourcesandhasmettheanticipatedrequirements.Inthissystem,wedesignsthesmallhotelmanagementsystemwhichaccordstothepresentsituationofthesmallhotelservicemanagementandthewayitdevelopsinthefutureandsmallhotelmanagementstudypractice.Thissystemisasoftwarewhichisusedforthesmallhotelservicemanagement.Themanagementofthesystemdatausestheoperatingsystemnewestmanagementmethod,sotheuseroperationwillbesimpler.Thevariousbusinessmanagementmodulesinthissystemmayrunsindependently.Theseadvantagescanincreasethebiggestefficiencyoftheguesthousemanagement,isalsoaguesthousetoservescientificandregulartoturnthetermofthemanagement.Thissystemmaymakefulluseofinformationtechnologytoincreasethemanagementlevel,servicelevelofthehotel.Thesystemwillrealizethefunctionsuchasthelodgingsregistration,thelodgingallowancereminder,supplementsthedeposit,theaccentroomregistration,returnsahousetiestheaccount,inquirystatistics.Thedynamicreal-timelodgingsregistration,theguestroomadjustment,thesalesreportform,willsupplementthedepositandsoonorganicallytorelateintogether,willcarryonthemanagementwelltothesmallhotel’sroom.

Keywords:Internalinformation;exchangeforSMEs;ASP;

目錄0前言 11系統(tǒng)分析 11.1需求分析 11.2可行性分析 12總體設計 22.1項目規(guī)劃 22.1.1檔案資料管理 22.1.2企業(yè)內部交流 22.1.3企業(yè)便利服務 22.1.4系統(tǒng)設置管理 32.1.5系統(tǒng)安全注銷 32.2系統(tǒng)功能結構圖 33系統(tǒng)設計 43.1設計目標 43.2開發(fā)及運行環(huán)境 43.3邏輯結構設計 54網站總體架構 54.1模塊功能介紹 54.2網站首頁的運行結果 55系統(tǒng)登錄模塊設計 66個人辦公區(qū)域模塊設計實現 116.1通告管理模塊設計 116.1.1發(fā)布通告 116.1.2管理通告 136.1.3瀏覽通告 176.2內部郵件模塊管理 186.2.1郵件管理 186.2.2發(fā)送郵件 196.2.3已發(fā)郵件 236.2.4已收郵件 247企業(yè)內部交流模塊設計實現 257.1網絡會議模塊設計 257.1.1一般網絡會議 277.1.2加密網絡會議 297.2文件共享模塊設計 328總結 359致謝 35附錄A參考文獻 36附錄B數據表 37（1）zhibiao（指標表） 37（2）ri（生產報表） 37（3）renshi（個人信息表） 38（4）lianli（名片表） 38（5）lanmu（名片夾表） 39（6）kuncun（庫存表） 39（7）huiyi（會議表） 39（8）gonggong（公共信息表） 40（9）fajian（發(fā)文表） 40（10）caigou（采購表） 41（11）users（用戶表） 41（12）gerenhuodong（個人活動登記表） 42（13）email（郵件表） 420前言信息時代的到來讓人們嘗到了“信息爆炸”的滋味，信息的大量擁入讓企業(yè)在信息處理方便應接不暇，傳統(tǒng)的辦公模式、對信息的處理方法，早已不能滿足企業(yè)對信息快速、準確的處理的要求。一個企業(yè)對信息數據的掌握程度、處理能力，體現了一個企業(yè)對市場的敏感程度，數據的真實性、準確性直接決定著企業(yè)的發(fā)展方向。從傳統(tǒng)的辦公模式向自動化辦公管理模式轉變，提高企業(yè)的信息處理能力，以增強企業(yè)的市場競爭力，成了企業(yè)發(fā)展過程中的首要問題。1系統(tǒng)分析1.1需求分析通過調查，要求系統(tǒng)需要有以下功能：由于操作人員的計算機知識較為普通，要求有良好的人機界面。管理系統(tǒng)用戶，由于該系統(tǒng)的使用對象多，要求有較好的權限管理。管理企業(yè)的會議信息，發(fā)文信息、公共信息。提供個人辦公服務。對企業(yè)員工基本情況進行全面管理。對企業(yè)內外部通訊方式進行管理。對內部郵件收發(fā)進行管理。發(fā)布企業(yè)的通告、通知信息，并對其進行管理。強大的考勤數據統(tǒng)計功能。在相應的權限下，刪除數據方便簡單，數據穩(wěn)定性好。數據計算自動完成，盡量減少人工干預。系統(tǒng)退出。1.2可行性分析通過網站對企業(yè)內部信息交流進行全面的自動化的管理，大大提高了企業(yè)的辦公效率。通過系統(tǒng)對企業(yè)生產經營過程中的數據進行全面的管理和統(tǒng)計，避免人為處理各類數據時所產生的各種問題，提高了企業(yè)的經濟效益，為企業(yè)經營決策提供了大量的、權威的數據，使企業(yè)的管理進行到科學化、系統(tǒng)化的范籌。技術性網絡化的辦公管理，使企業(yè)管理更加規(guī)范，實現了通過網絡對信息進行發(fā)布、傳遞、接收等一系列功能。系統(tǒng)中設置的個人辦公管理模塊，為個人辦公提供了一個更為方便的管理平臺，大大提高個人辦公的工作效率，進而提高整個企業(yè)的辦公效率。2總體設計2.1項目規(guī)劃企業(yè)內部信息管理系統(tǒng)是一個典型的數據庫開發(fā)應用程序，由日常管理模塊、業(yè)務管理模塊、用戶管理模塊組成，規(guī)劃系統(tǒng)功能模塊如下：個人辦公區(qū)域該模塊包括通告管理模塊、郵件管理模塊、人力管理模塊、通訊助理管理模塊、考勤信息管理模塊。2.1.1檔案資料管理該模塊包括檔案類別模塊、檔案資料管理模塊、檔案資料錄入模塊、檔案資料庫模塊。2.1.2企業(yè)內部交流該模塊主要包括網絡會議模塊、文件共享模塊、短信留言模塊。2.1.3企業(yè)便利服務該模塊主要包括在線計算器、世界各地時間、手機號和IP查詢、區(qū)號查詢。2.1.4系統(tǒng)設置管理該模塊主要包括用戶帳號設置、用戶權限設置、系統(tǒng)維護設置。2.1.5系統(tǒng)安全注銷該模塊主要包括用戶注銷。2.2系統(tǒng)功能結構圖企業(yè)信息交流與管理系統(tǒng)功能框架劃分如圖2.2所示。圖2.2系統(tǒng)功能框架劃分3系統(tǒng)設計3.1設計目標本系統(tǒng)是針對中小型企業(yè)內部信息交流與管理的要求進行設計的，主要實現如下目標：系統(tǒng)采用人機互動方式，界面清晰、信息查詢靈活、方便、快捷、準確、數據存儲安全可靠。實現了各類發(fā)文信息、公共信息的強大的管理能力。實現對員工基礎信息（人事管理）的管理功能等。實現了個人辦公的信息自動化管理功能。對企業(yè)的通訊方式、檔案資料進行管理。發(fā)布企業(yè)通告、內部郵件，以及短信息。發(fā)布網絡會議，并對會議信息進行管理。對系統(tǒng)用戶進行管理。為了加強數據保密性，為每個用戶設置權限級別。系統(tǒng)最大限度地實現了易安裝性、易維護性和易操作性。系統(tǒng)運行穩(wěn)定、安全可靠。3.2開發(fā)及運行環(huán)境硬件平臺：CPU：P41.8GHz；內存：256MB以上。軟件平臺：操作系統(tǒng)：Windowsxp/Windows2000。數據庫：Access2000。瀏覽器：IE6.0，推薦使用IE7.0。Web服務器：IIS5.0。分辨率：最佳效果1024×768像素。3.3邏輯結構設計本系統(tǒng)數據庫采用Access2000數據庫，系統(tǒng)數據庫名稱為jzud-oa。數據庫jzud-oa中包含13張表。數據庫中的數據表請參見附錄B。4網站總體架構4.1模塊功能介紹系統(tǒng)主要包括以下功能模塊：系統(tǒng)登錄模塊：主要用于用戶登錄管理。日常管理模塊：主要包括收文管理、發(fā)文管理、批示管理、會議管理、公共信息管理、個人辦公管理、人事管理7部分。業(yè)務管理模塊：主要包括生產報表管理、采購計劃管理、庫存管理、指標情況管理4部分。用戶管理模塊：主要包括超級用戶、普通用戶兩種登錄情況。超級用戶包括用戶添加、用戶修改(所有用戶)、用戶注銷3部分；普通用戶包括用戶修改(個人信息進行修改)、用戶注銷2部分。4.2網站首頁的運行結果網站首頁的運行結果如圖3所示。圖3網站首頁運行結果5系統(tǒng)登錄模塊設計系統(tǒng)登錄模塊（default.asp）主要用于驗證用戶登錄系統(tǒng)時輸入的用戶名、密碼是否正確，如果正確用戶進入系統(tǒng)，否則將不能進入此系統(tǒng)。系統(tǒng)登錄頁面的設計效果如圖5所示。圖5系統(tǒng)登錄頁面設計效果系統(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'"submitsubmit【登錄】按鈕class="input"value="登錄"submit2reset【取消】按鈕value="取消"onClick="top.close();"系統(tǒng)登錄頁面所涉及到的程序代碼如下：<%functionfind_online_user(oabusyusername) dimi,dimsums,siteinfo,findok findok=0 Application.Lock onlineuser=application("onlineuser") dimsums=ubound(onlineuser) fori=0todimsums siteinfo=onlineuser(i) ifsiteinfo<>""then ifinstr(siteinfo,oabusyusername&"$")>0then findok=1 exitfor endif endif next Application.UnLock find_online_user=findokendfunctionsubwrite_online_user(username,name,dept) dimuserinfo Application.Lock userinfo=username&"$"&name&"$"&dept&"$"&request.servervariables("REMOTE_ADDR") onlineuser=application("onlineuser") dimsums=ubound(onlineuser) redimpreserveonlineuser(dimsums+1) onlineuser(dimsums+1)=userinfo application("onlineuser")=onlineuser Application.UnLockendsubsubcheckkqdatabase() setfileobject=server.createobject("Scripting.FileSystemObject") ifnotfileobject.FileExists(server.mappath("kq/"&cstr(year(date()))&".mdb"))then file1=server.mappath("kq\backup\new.mdb") file2=server.mappath("kq\"&cstr(year(date()))&".mdb") fileobject.copyfilefile1,file2 endif setfileobject=nothingendsubcallcheckkqdatabaseusername=request.form("username")password=request.form("password")IniDim=GetIniFileValue()ifIniDim(1)=""then application("UnitName")=IniDim(2) application("UnitWord")=IniDim(3) response.cookies("UnitWord")=IniDim(3) response.cookies("UnitName")=IniDim(2)endififusername<>""andpassword<>""thensetconn=opendb("oabusy","conn","accessdsn")setrs=server.createobject("adodb.recordset")onerrorresumenextsql="select*fromuserinfwhereusername="&sqlstr(username)&"andpassword="&sqlstr(password)&"andforbid='no'"rs.opensql,conn,1,1'如果有此用戶就進入系統(tǒng)ifnotrs.eofandnotrs.bofthen response.cookies("oabusyname")=rs("name") response.cookies("oabusyuserid")=cstr(rs("ID")) response.cookies("oabusyusername")=rs("username") response.cookies("oabusyuserdept")=rs("userdept") response.cookies("oabusyuserlevel")=rs("userlevel") response.cookies("cook_allow_see_all_workrep")=rs("allow_see_all_workrep") response.cookies("cook_allow_see_dept_workrep")=rs("allow_see_dept_workrep") response.cookies("cook_allow_control_dept_user")=rs("allow_control_dept_user") response.cookies("cook_allow_control_all_user")=rs("allow_control_all_user") response.cookies("cook_allow_send_note")=rs("allow_send_note") response.cookies("cook_allow_control_note")=rs("allow_control_note") response.cookies("cook_allow_control_file")=rs("allow_control_file") response.cookies("cook_allow_send_file")=rs("allow_send_file") response.cookies("allow_transmit_file")=rs("allow_transmit_file") response.cookies("cook_allow_control_level")=rs("allow_control_level") response.cookies("allow_check_resource_requirement")=rs("allow_check_resource_requirement") response.cookies("allow_auditing_workthings")=rs("allow_auditing_workthings") response.cookies("allow_manage_workthings")=rs("allow_manage_workthings") response.cookies("allow_lookallinfo_workthings")=rs("allow_lookallinfo_workthings") response.cookies("allow_look_all_kq_info")=rs("allow_look_all_kq_info") application.lock onlineuserdim=application("onlineuser") ifisempty(onlineuserdim)then dimonlineuserdim(0) dimnetmeetinginfodim(0) application("onlineuser")=onlineuserdim application("netmeetinginfo")=netmeetinginfodim endif application.unlock iffind_online_user(rs("username"))=0then callwrite_online_user(rs("username"),rs("name"),rs("userdept")) endif conn.close setconn=nothing response.redirect"gensystem.asp" response.endendifendif%>6個人辦公區(qū)域模塊設計實現個人辦公區(qū)域模塊主要包括通告管理、郵件管理、人力管理、通訊助理、考勤管理、5部分。6.1通告管理模塊設計通告管理主要包含發(fā)布通告（管理員可見）、管理通告（管理員可見）、瀏覽通告（所有可見）。6.1.1發(fā)布通告發(fā)布通告板塊主要顯示通告標題、通告內容，是管理員用來發(fā)布簡短企業(yè)通告的頁面，設計效果圖如下：圖為發(fā)布通告發(fā)布通告頁面所涉及到的程序代碼如下：<%ifrequest.form("submit")="發(fā)布"then title=request.form("title") content=request.form("content") setconn=opendb("oabusy","conn","accessdsn") sql="InsertIntonewnotice(sendusername,title,content)Values(" sql=sql&SqlStr(oabusyusername)&"," sql=sql&SqlStr(title)&"," sql=sql&SqlStr(content)&")" conn.Executesql '把是否看過通告改為"no" setconn=opendb("oabusy","conn","accessdsn") sql="updateuserinfsetseenotice='no'" conn.Executesql%><br><br><fontcolor="red"size="+1">新通告發(fā)布成功！</font><br><br><%else%><scriptLanguage="JavaScript">functionmaxlength(str,minl,maxl){ if(str.length<=maxl&&str.length>=minl) { returntrue; } else { returnfalse; }}functionform_check(){ varl1=maxlength(document.form2.title.value,1,50); if(!l1) { window.alert("標題的長度大于1位小于50位"); document.form2.title.focus(); return(false); }}</script>6.1.2管理通告管理通告主要包括通告查詢、瀏覽通告、刪除通告、發(fā)布日期。設計效果圖如下：圖為通告管理效果圖通告管理的相關程序代碼如下：<%oabusyname=request.cookies("oabusyname")oabusyusername=request.cookies("oabusyusername")oabusyuserdept=request.cookies("oabusyuserdept")oabusyuserlevel=request.cookies("oabusyuserlevel")ifoabusyusername=""then response.write("<scriptlanguage=""javascript"">") response.write("window.top.location.href='default.asp';") response.write("</script>") response.endendif'取得當前月mymonth=month(now())ifrequest("mymonth")<>""thenmymonth=cint(request("mymonth"))'取得當前年myyear=year(now())ifrequest("myyear")<>""thenmyyear=cint(request("myyear"))ifrequest("detel")="刪除"andrequest("delid")<>""then setconn=opendb("oabusy","conn","accessdsn") count=0 condition="" foreachidnoinrequest("delid") count=count+1 condition=condition+"id="&idno ifcount<request("delid").countthen condition=condition+"or" endif next '刪除數據庫中的記錄 sql="delete*fromnewnoticewhere"&condition conn.Executesqlendif%>…….<%ifmyyear<>""then mydate=myyear&"-"&mymonth&"-"&1 mydate1=dateadd("m",1,mydate)else mydate=""endifsetconn=opendb("oabusy","conn","accessdsn")setrs=Server.CreateObject("ADODB.recordset")onerrorresumenextrs.open"selectcount(*)ascountssfromuserinf",conn,1,1usercount=rs("countss")ifusercount>500thenrs.closesetrs=nothing%><scriptlanguage=javascript>window.alert("對不起，超過了最大使用用戶數，請刪除部分用戶！");parent("main").location.href="/usercontrol.asp";</script><%endifrs.closesql="select*fromnewnoticeorderbyiddesc"ifrequest("lookfor")="yes"thensql="select*fromnewnoticewherenoticedatebetween"&"#"&mydate&"#and#"&mydate1&"#orderbyiddesc"rs.opensql,conn,1ifnotrs.eofandnotrs.bofthen rs.pagesize=20 page=request("page") ifnotisnumeric(page)then page=1 endif page=clng(page) iferr.number<>0then page=1 endif ifpage<1thenpage=1 ifpage>rs.pagecountthenpage=rs.pagecount href="noticecontrol.asp" rs.absolutepage=page%>……<% response.write"<ahref="&href&"?page=1&myyear="&server.urlencode(myyear)&"&mymonth="&server.urlencode(mymonth)&"&lookfor="&server.urlencode(request("lookfor"))&">第一頁</a>"%></td><tdalign="center"><% response.write"<ahref="&href&"?page="&(1)&"&myyear="&server.urlencode(myyear)&"&mymonth="&server.urlencode(mymonth)&"&lookfor="&server.urlencode(request("lookfor"))&">上一頁</a>"%></td><tdalign="center"><% response.write"<ahref="&href&"?page="&(page+1)&"&myyear="&server.urlencode(myyear)&"&mymonth="&server.urlencode(mymonth)&"&lookfor="&server.urlencode(request("lookfor"))&">下一頁</a>"%></td><tdalign="center"><% response.write"<ahref="&href&"?page="&rs.pagecount&"&myyear="&server.urlencode(myyear)&"&mymonth="&server.urlencode(mymonth)&"&lookfor="&server.urlencode(request("lookfor"))&">最后一頁</a>"%>6.1.3瀏覽通告瀏覽通告主要包括歷史通告查詢、通告顯示、發(fā)布日期。設計效果圖如下：圖為瀏覽通告運行圖瀏覽通告的相關程序代碼如下：<%oabusyname=request.cookies("oabusyname")oabusyusername=request.cookies("oabusyusername")oabusyuserdept=request.cookies("oabusyuserdept")oabusyuserlevel=request.cookies("oabusyuserlevel")ifoabusyusername=""then response.write("<scriptlanguage=""javascript"">") response.write("window.top.location.href='default.asp';") response.write("</script>") response.endendif6.2內部郵件模塊管理內部郵件模塊主要包含郵件管理（管理員可見）、發(fā)送郵件（權限可見）、已發(fā)送郵件（權限可見）、已收郵件（所有可見）。6.2.1郵件管理郵件管理主要包括歷史郵件查詢、刪除郵件、郵件標題、附件、發(fā)送者、接受者所在部門、接受者、發(fā)送日期。設計效果圖如下：圖為郵件管理運行頁面所涉及到的相關程序代碼如下：<%OnErrorResumeNextoabusyname=request.cookies("oabusyname")oabusyusername=request.cookies("oabusyusername")oabusyuserdept=request.cookies("oabusyuserdept")oabusyuserlevel=request.cookies("oabusyuserlevel")ifoabusyusername=""then response.write("<scriptlanguage=""javascript"">") response.write("window.top.location.href='default.asp';") response.write("</script>") response.endendif……%>6.2.2發(fā)送郵件發(fā)送郵件主要包括增加收件人、郵件標題、郵件類型、郵件內容、附件上傳。設計效果圖如下：圖為郵件發(fā)送模塊運行圖樣頁面所涉及到的相關程序代碼如下：<%'OnErrorResumeNextoabusyname=request.cookies("oabusyname")oabusyusername=request.cookies("oabusyusername")oabusyuserdept=request.cookies("oabusyuserdept")oabusyuserlevel=request.cookies("oabusyuserlevel")ifoabusyusername=""then response.write("<scriptlanguage=""javascript"">") response.write("window.top.location.href='default.asp';") response.write("</script>") response.endendifsetconn=opendb("oabusy","conn","accessdsn")setrs=server.createobject("adodb.recordset")onerrorresumenextrs.open"selectcount(*)ascountssfromuserinf",conn,1,1usercount=rs("countss")ifusercount>500thenrs.closesetrs=nothing%><scriptlanguage=javascript>window.alert("對不起，超過了最大使用用戶數，請刪除部分用戶！");parent("main").location.href="/usercontrol.asp";</script><%endifrs.closesql="select*fromtexttypewheredelflag=false"rs.opensql,conn,1ifrs.eoforrs.bofthen conn.close setrs=nothing response.write("<scriptlanguage=""javascript"">") response.write("alert(""請先進入公文管理添加公文分類！"");") response.write("</script>") response.endendifsendto=request.form("sendto")title=request.form("hidetitle")content=request.form("hidecontent")%>……<selectname="userdept"size=1onChange="document.form1.hidetitle.value=document.form3.title.value;document.form1.hidecontent.value=document.form3.content.value;document.form1.submit();"><%'打開數據庫讀出部門setrs=server.createobject("adodb.recordset")sql="selectDISTINCTuserdeptfromuserinf"rs.opensql,conn,1ifnotrs.eofandnotrs.bofthenfirstdept=rs("userdept")ifrequest("userdept")<>""thenfirstdept=request("userdept")whilenotrs.eofandnotrs.bof%><optionvalue="<%=rs("userdept")%>"<%=selected(firstdept,rs("userdept"))%>><%=keepformat(rs("userdept"))%></option><% rs.movenextwend%></select>……’設置附件上傳<scriptlanguage="JavaScript"> functionsetid() { str='<br>'; if(!window.form3.upcount.value) window.form3.upcount.value=1; if(window.form3.upcount.value>5){ alert("您最多只能同時上傳5個附件！"); window.form3.upcount.value=5; setid(); } else{ for(i=1;i<=window.form3.upcount.value;i++) str+='<divalign="center">附件'+i+':<inputtype="file"name="file'+i+'"style="width:350"></div><br><br>'; window.upid.innerHTML=str+'<br>';} } </script>……6.2.3已發(fā)郵件發(fā)送郵件主要包括歷史郵件查詢、郵件標題、附件、接受者所在部門、接受者、發(fā)送日期。設計效果圖如下：圖為已發(fā)郵件模塊運行頁面所涉及到的相關程序代碼如下：<%oabusyname=request.cookies("oabusyname")oabusyusername=request.cookies("oabusyusername")oabusyuserdept=request.cookies("oabusyuserdept")oabusyuserlevel=request.cookies("oabusyuserlevel")ifoabusyusername=""then response.write("<scriptlanguage=""javascript"">") response.write("window.top.location.href='default.asp';") response.write("</script>") response.endendif'取得當前日myday=day(now())ifrequest("myday")<>""thenmyday=cint(request("myday"))'取得當前月mymonth=month(now())ifrequest("mymonth")<>""thenmymonth=cint(request("mymonth"))'取得當前年myyear=year(now())ifrequest("myyear")<>""thenmyyear=cint(request("myyear"))%>……6.2.4已收郵件已發(fā)郵件主要包括歷史郵件查詢、郵件標題、附件、發(fā)送者所在部門、發(fā)送者、發(fā)送日期。設計效果圖如下：圖為已收郵件模塊運行頁面所涉及到的相關程序代碼如下：<%oabusyname=request.cookies("oabusyname")oabusyusername=request.cookies("oabusyusername")oabusyuserdept=request.cookies("oabusyuserdept")oabusyuserlevel=request.cookies("oabusyuserlevel")ifoabusyusername=""then response.write("<scriptlanguage=""javascript"">") response.write("window.top.location.href='default.asp';") response.write("</script>") response.endendif7企業(yè)內部交流模塊設計實現內部郵件模塊主要包含郵件管理（管理員可見）、發(fā)送郵件（權限可見）、已發(fā)送郵件（權限可見）、已收郵件（所有可見）。7.1網絡會議模塊設計網絡會議主要包括一般網絡會議、加密網絡會議、用戶名、房間。設計效果圖如下：圖為網絡會議模塊運行頁面所涉及到的相關程序代碼如下：<%functionopendb(DBPath,sessionname,dbsort)dimconnSetconn=Server.CreateObject("ADODB.Connection")DBPath1=server.mappath("../db/jzud-oa.asa")conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath1setsession(sessionname)=connsetopendb=session(sessionname)endfunction%><%oabusyname=request.cookies("oabusyname")oabusyusername=request.cookies("oabusyusername")oabusyuserdept=request.cookies("oabusyuserdept")oabusyuserlevel=request.cookies("oabusyuserlevel")ifoabusyusername=""then response.write("<scriptlanguage=""javascript"">") response.write("window.top.location.href='../default.asp';") response.write("</script>") response.endendif%>……7.1.1一般網絡會議一般網絡會議主要包括發(fā)言記錄、在線人、說話顏色、姓名顏色、發(fā)言框。設計效果圖如下：圖為一般網絡會議模塊運行頁面所涉及到的相關程序代碼如下：<%Iflen(Request("UserName"))=0orlen(Request("CRNAME"))=0thenResponse.Redirect("index.asp")Session("CRNAME")=Server.HtmlEncode(Request("CRNAME"))Session("username")=Server.HtmlEncode(Request("UserName"))IfIsEmpty(Application(SESSION("CRNAME")&"sentences"))thendimsentences(60)dimwhotowho(60,2)dimOUN(60)'OnlineUserNamedimOULT(60)'OnlineUserLastTimerOUN(1)=Session("username")OULT(1)=Nowcur=1sentences(cur)="<fontcolor=#FF0000>歡迎進入企業(yè)內部信息交流網絡會議室"&Now&"</font>"whotowho(cur,1)="System"whotowho(cur,2)="大家"cur=cur+1Ifcur>60thencur=1sentences(cur)="<fontcolor=#FF0000>[公告]</font>"&Session("username")&"剛剛進入<u>"&Session("CRNAME")&"</u>……<fontcolor=#000000>("&Now&")</font>"whotowho(cur,1)="System"whotowho(cur,2)="大家"Application.LockApplication(SESSION("CRNAME")&"sentences")=sentencesApplication(SESSION("CRNAME")&"whotowho")=whotowhoApplication(SESSION("CRNAME")&"OUN")=OUNApplication(SESSION("CRNAME")&"OULT")=OULTApplication(SESSION("CRNAME")&"cur")=curApplication(SESSION("CRNAME")&"usernum")=1Application.UnLockelseOUN=Application(SESSION("CRNAME")&"OUN")OULT=Application(SESSION("CRNAME")&"OULT")fori=1to60IfSession("username")=OUN(i)andabs(DateDiff("s",OULT(i),Now))<130thenResponse.Write("<Fontcolor=#FF0000>ERROR!<BR>您希望使用的這個名字正在被其它人使用，請換用其它名字！</FONT>")Response.EndEndIfnext'檢測人數是否超出最大限量（100）IfApplication(SESSION("CRNAME")&"usernum")>=99thenResponse.Write("<Fontcolor=#FF0000>ERROR!<R>對不起，本會議室已達到最大同時在線人數，請進入其它會議室</font>")Response.EndEndIfEndIfResponse.Redirect("chat.asp")%>7.1.2加密網絡會議加密網絡會議主要包括會議名、密碼、姓名、檢查IP、發(fā)言框、發(fā)言記錄。設計效果圖如下：圖為加密網絡會議模塊運行該加密網絡會議需要會議的人員統(tǒng)一會議名、密碼，這樣發(fā)言后就可以在發(fā)言記錄區(qū)域里查看到相互的發(fā)言記錄，從而保證只有在事先約定的前提下，才能一起開會。頁面所涉及到的相關程序代碼如下：<%constItemNum=20nShowIP=Request.Form("ShowIp")strName=Request.Form("Name")strComment=Request.Form("comment")strMeeting=Request.Form("Meeting")strPassword=Request.Form("Password")strDate=MID(Now(),1,8)strMeetingID=strMeeting&strPassword&strDate&"Meet"strTotalCount=strMeeting&strPassword&strDate&"Count"strIPID=strMeeting&strPassword&strDate&"ID"strIP="<OPTION>"&Request.ServerVariables("REMOTE_ADDR")&"-"&CStr(Now()&"<BR>")Application.Lock()Application(strIPID)=Application(strIPID)&strIPApplication.UnLock()IfLen(strComment)>0ThenifstrName=""thenstrName="NONAME"Application.Lock()IfApplication(strTotalCount)=0ThenApplication(strMeetingID)="<BR><fontcolor=red><b>"&strName&":  </b></font>"&strComment Application(strTotalCount)=ItemNum Application(strIPID)=strIPElse Application(strTotalCount)=Application(strTotalCount)-1Application(strMeetingID)=Application(strMeetingID)&"<BR><fontcolor=red><b>"&strName&":  </b></font>"&strCommentEndifApplication.UnLock()Endif%>……<%IfnShowIP<>1ThenResponse.Write("")Application.Lock()Response.Write("<Strong>會議內容區(qū) ")Response.Write(Application(strTotalCount))Response.Write("</Strong>")Response.Write(Application(strMeetingID))Application.UnLock()ElseIflen(strMeeting)>0ThenApplication.Lock() Response.Write("<Strong>CommentsClearsat ") Response.Write(Application(strTotalCount)) Response.Write("</Strong>") Response.Write("<SELECT>") Response.Write(Application(strIPID)) Response.Write("</SELECT>") Response.Write(Application(strMeetingID)) Application.UnLock()ElseApplication.Lock()Response.Write("") Response.Write("<Strong>CommentsClearsat ") Response.Write(Application(strTotalCount))Response.Write("</Strong><br>") Response.Write("<fontstyle=font-size:12pxcolor=red>ShowIPaddressesonly") Response.Write("worksforprivatemeetingsthathave") Response.Write("beengivenaname.</font>") Response.Write("<br>") Response.Write(Application(strMeetingID))Application.UnLock()EndifEndif%>……7.2文件共享模塊設計文件共享主要包括文件列表、主題、添加文件、簡介。設計效果圖如下：圖為文件共享模塊運行頁面所涉及到的相關程序代碼如下：<!--#includefile='connect.asp'--><%functionopendb(DBPath,sessionname,dbsort)dimconnSetconn=Server.CreateObject("ADODB.Connection")DBPath1=server.mappath("../db/jzud-oa.asa")conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath1setsession(sessionname)=connsetopendb=session(sessionname)endfunction%><%oabusyname=request.cookies("oabusyname")oabusyusername=request.cookies("oabusyusername")oabusyuserdept=request.cookies("oabusyuserdept")oabusyuserlevel=request.cookies("oabusyuserlevel")ifoabusyusername=""then response.write("<scriptlanguage=""javascript"">") response.write("window.top.location.href='../default.asp';") response.write("</script>") response.endendif%>8總結通過畢業(yè)設計，我學到了很多知識，在畢業(yè)設計的制作過程中，通過查資料和搜集有關的文獻，培養(yǎng)了自學能力和動手能力。并且由原先被動的接受知識轉換為主動的尋求知識，這可以說是學習方法上的一個很大的突破。在以往的傳統(tǒng)的學習模式下，我們可能會記住很多的書本知識，但是通過畢業(yè)設計，我學會了如何將學到的知識轉化為自己的東西，學會了怎么更好的運用知識，理論和實踐相結合來解決問題。在畢業(yè)設計的過程中，也學會了做任何事情所要有的態(tài)度和心態(tài)，首先我明白了做學問要一絲不茍，對于出現的任何問題和偏差都不要輕視，要通過正確的途徑去解決，在做事情的過程中要有耐心和毅力，不要一遇到困難就打退堂鼓，只要堅持下去就可以找到思路去解決問題。在工作中要學會與人合作的態(tài)度，認真聽取別人的意見，這樣做起事情來就可以事倍功半?？傊?，此次畢業(yè)設計的制作過程，我收獲了很多。此次畢業(yè)設計的完成既為大學三年劃上了一個完美的句號，也為將來的人生之路做好了一個很好的鋪墊9致謝在這里，首先感謝我的指導老師周培春老師。從我的論文選題到論文的撰寫完成，周老師細心、嚴謹的要求和指導，給了我非常大的幫助與支持。我還要感謝我的同學們給我的幫助和指導，使我能較好的掌握相關的開發(fā)技術上，這是我完成本次畢業(yè)設計和畢業(yè)論文的保障。附錄A參考文獻[1]JSP數據庫系統(tǒng)開發(fā)完全手冊人民郵電出版社2006年3月 [2]Delphi數據庫系統(tǒng)開發(fā)完全手冊人民郵電出版社2006年3月[3]VisualBasic數據庫系統(tǒng)開發(fā)完全手冊人民郵電出版社2006年3月[4]VisualC++數據庫系統(tǒng)開發(fā)完全手冊人民郵電出版社2006年3月[5]JSP信息系統(tǒng)開發(fā)實例精選機械工業(yè)出版社王國輝、牛強、李南南等2005年7月 [6]VisualBasic信息系統(tǒng)開發(fā)實例精選機械工業(yè)出版社宋坤、趙智勇、劉強等2005年7月 [7]SQLServer數據庫開發(fā)實例解析機械工業(yè)出版社宋昆、李嚴等2006年1月[8]Access數據庫開發(fā)實例解析機械工業(yè)出版社李俊民、高春燕等2006年1月[9]VisualBasic精彩編程200例機械工業(yè)出版社 賽奎春、高春艷等2003年1月[10]ASP數據庫開發(fā)實例解析機械工業(yè)出版社李嚴、于亞芳、王國輝 2004年12月[11]Delphi工程應用與項目實踐機械工業(yè)出版社宋坤、趙智勇等2005年1月[12]VisualBasic工程應用與項目實踐機械工業(yè)出版社 高春艷、李俊民等2005年1月 [13]VisualC＋＋工程應用與項目實踐機械工業(yè)出版社