《办公自动化管理系统》论文

1、办公自动化管理系统摘要 随着信息息技术的飞速速发展和日趋趋激烈的商业业竞争，企业业已不再满足足于独立、零零散的办公自自动化应用，企企业需要的是是协同工作、综综合、集成化化的解决方案案。而网络是是解决由于物物理距离造成成的信息交流流不畅、协商商沟通不便的的办公瓶颈问问题的最佳方方式。企业网网上办公自动动化通过对各各办公自动化化要素的闭环环整合，实现现了工作流、信信息流、知识识流和办公自自动化系统的的整合管理，提提供了一个科科学、开放、先先进的信息化化办公平台，实实现办公自动动化，并进行行远程办公或或在家办公。企企业网上办公公自动化将人人从繁琐、无无序、低序、低低端的工作中中解放出来从从事核心事务

2、务，整体提高高了单位办事事效率和对信信息的可控性性，降低办公公成本，提高高执行力，使使管理趋于完完善。【关键词】 办办公自动化管管理、ADOO连接、数据据源、办公管管理Abstracct Withh the rapidd deveelopmeent off infoormatiion teechnollogy aand inncreassinglyy fierrce buusinesss commpetittion, compaanies are nno lonnger ssatisffied wwith aan inddependdent, fragmmentedd offiice auut

3、omattion aappliccationns, ennterprrises need to woork toogetheer, coomprehhensivve, inntegraated ssolutiion. TThe neetworkk is tto sollve thhe phyysicall disttance causeed by the ppoor eexchannge off infoormatiion, cconsulltatioon offfice ccommunnicatiion boottlennecks inconnvenieence tthe beest waa

4、y. Coorporaate Innterneet Offfice AAutomaation Officce Auttomatiion onn the elemeents oof thee clossed-looop inntegraation, to aachievve thee workkflow, infoormatiion fllow, kknowleedge fflow aand maanagemment oof offfice aautomaation systeems inntegraation, provvidingg a sccientiific, open, advaanc

5、ed inforrmatioon tecchnoloogy offfice platfform, officce auttomatiion, aand reemote officce or home officce. Offfice autommationn busiiness will be onnline from the ttediouus, diisordeer, loow-ordder, llow-ennd worrk in the lliberaation of coore buusinesss uniits off the overaall immproveement of th

6、he effficienncy annd conntrolllabiliity off infoormatiion, rreducee busiiness costss, impprove execuution, so tthat tthe maanagemment ttrend to peerfectt. Key worrds offfice autommationn manaagemennt, ADDO connnectiions, data sourcces, oofficee manaagemennt目录TOC o 1-3 h z HYPERLINK l _Toc131479128 摘

7、要 PAGEREF _Toc131479128 h 1 HYPERLINK l _Toc131479130 0 引言 PAGEREF _Toc131479130 h 11 HYPERLINK l _Toc131479131 1 系统分析析 PAGEREF _Toc131479131 h 2 HYPERLINK l _Toc131479132 1.1 需求求分析 PAGEREF _Toc131479132 h 2 HYPERLINK l _Toc131479133 1.2 可行行性分析 PAGEREF _Toc131479133 h 2 HYPERLINK l _Toc131479134 2 总

8、体设计计 PAGEREF _Toc131479134 h 2 HYPERLINK l _Toc131479135 2.1 项目目规划 PAGEREF _Toc131479135 h 2 HYPERLINK l _Toc131479136 2.2 系统统功能结构图图 PAGEREF _Toc131479136 h 3 HYPERLINK l _Toc131479137 3 系统设计计 PAGEREF _Toc131479137 h 3 HYPERLINK l _Toc131479138 3.1 设计计目标 PAGEREF _Toc131479138 h 3 HYPERLINK l _Toc131

9、479139 3.2 开发发及运行环境境 PAGEREF _Toc131479139 h 4 HYPERLINK l _Toc131479140 3.3 逻辑辑结构设计 PAGEREF _Toc131479140 h 4 HYPERLINK l _Toc131479141 4 网站总体体架构 PAGEREF _Toc131479141 h 5 HYPERLINK l _Toc131479142 4.1 模块块功能介绍 PAGEREF _Toc131479142 h 5 HYPERLINK l _Toc131479143 4.2 网站站首页的运行行结果 PAGEREF _Toc131479143

10、 h 5 HYPERLINK l _Toc131479144 5 系统登录录模块设计 PAGEREF _Toc131479144 h 6 HYPERLINK l _Toc131479145 6 日常管理模模块设计 PAGEREF _Toc131479145 h 8 HYPERLINK l _Toc131479146 6.1 收文文管理模块设设计 PAGEREF _Toc131479146 h 8 HYPERLINK l _Toc131479147 6.2 发文文管理模块设设计 PAGEREF _Toc131479147 h 9 HYPERLINK l _Toc131479148 6.3 批示示

11、管理模块设设计 PAGEREF _Toc131479148 h 10 HYPERLINK l _Toc131479149 6.4 会议议管理模块设设计 PAGEREF _Toc131479149 h 12 HYPERLINK l _Toc131479150 6.5 个人人办公管理模模块设计 PAGEREF _Toc131479150 h 15 HYPERLINK l _Toc131479151 6.6 人事事管理模块设设计 PAGEREF _Toc131479151 h 23 HYPERLINK l _Toc131479152 7 业务管理理模块设计 PAGEREF _Toc131479152

12、 h 25 HYPERLINK l _Toc131479153 7.1 生产产报表管理模模块 PAGEREF _Toc131479153 h 25 HYPERLINK l _Toc131479154 7.2 采购购计划管理模模块设计 PAGEREF _Toc131479154 h 31 HYPERLINK l _Toc131479155 7.3 库存存管理模块设设计 PAGEREF _Toc131479155 h 33 HYPERLINK l _Toc131479156 8 用户管理理模块设计 PAGEREF _Toc131479156 h 35 HYPERLINK l _Toc1314791

13、57 8.1 用户户添加管理模模块设计 PAGEREF _Toc131479157 h 35 HYPERLINK l _Toc131479158 8.2 用户户修改管理模模块设计 PAGEREF _Toc131479158 h 38 HYPERLINK l _Toc131479159 8.3 用户户注销管理模模块设计 PAGEREF _Toc131479159 h 39 HYPERLINK l _Toc131479160 附录A 参考考文献 PAGEREF _Toc131479160 h 40 HYPERLINK l _Toc131479161 附录B 数据据表 PAGEREF _Toc131

14、479161 h 42 HYPERLINK l _Toc131479162 附录C 文件件架构图 PAGEREF _Toc131479162 h 47 引言随着中国加入WWTO及全球球经济一体化化进程的加快快，世界经济济已由工业化化经济逐步进进入网络信息息化时代。在在信息时代来来临之季，各各企业都紧跟跟时代的脚步步，转变着企企业的经营模模式、管理模模式，从传统统的人工管理理体制，向信信息自动化管管理体制过渡渡。与此同时时，企业的传传统式的办公公管理模式也也在逐步向自自动化办公管管理模式转变变。网络自动动化办公系统统就是在这样样的大背景下下应运而生的的。信息时代的到来来让人们尝到到了“信息爆炸”

15、的滋味，信信息的大量拥拥入让企业在在信息处理方方便应接不暇暇，传统的办办公模式、对对信息的处理理方法，早已已不能满足企企业对信息快快速、准确的的处理的要求求。一个企业业对信息数据据的掌握程度度、处理能力力，体现了一一个企业对市市场的敏感程程度，数据的的真实性、准准确性直接决决定着企业的的发展方向。从从传统的办公公模式向自动动化办公管理理模式转变，提提高企业的信信息处理能力力，以增强企企业的市场竞竞争力，成了了企业发展过过程中的首要要问题。1 系统分析析1.1 需求求分析通过调查，要求求系统需要有有以下功能：由于操作人员的的计算机知识识普遍较差，要要求有良好的的人机界面。管理系统用户，由由于该系

16、统的的使用对象多多，要求有较较好的权限管管理。管理企业的会议议信息，发文文信息、公共共信息。提供个人办公服服务。对企业员工基本本情况进行全全面管理。设置生产数据统统计、打印功功能。对企业制定的采采购计划进行行管理。对库存信息进行行管理。发布企业的生产产指标，对其其进行管理。强大的生产数据据统计功能。当外界环境（停停电、网络病病毒）干扰本本系统时，系系统可以自动动保护原始数数据的安全。在相应的权限下下，删除数据据方便简单，数数据稳定性好好。数据计算自动完完成，尽量减减少人工干预预。系统退出。1.2 可行行性分析经济性通过网站对企业业内部信息进进行全面的自自动化的管理理，大大提高高了企业的办办公效

17、率。通通过系统对企企业生产经营营过程中的数数据进行全面面的管理和统统计，避免人人为处理各类类数据时所产产生的各种问问题，提高了了企业的经济济效益，为企企业经营决策策提供了大量量的、权威的的数据，使企企业的管理进进行到科学化化、系统化的的范筹。技术性网络化的办公管管理，使企业业管理更加规规范，实现了了通过网络对对信息进行发发布、传递、接接收等一系列列功能。系统统中设置的个个人办公管理理模块，为个个人办公提供供了一个更为为方便的管理理平台，大大大提高个人办办公的工作效效率，进而提提高整个企业业的办公效率率。2 总体设计计2.1 项目目规划办公自动化管理理系统是一个个典型的数据据库开发应用用程序，由

18、日日常管理模块块、业务管理理模块、用户户管理模块组成成，规划系统统功能模块如如下：日常管理模块该模块包括收文文管理模块、发发文管理模块块、批示管理理模块、会议议管理模块、公公共信息管理理模块、个人人办公管理模模块、人事管管理模块。业务管理模块该模块包括生产产报表模块、采采购计划模块块、库存管理理模块、指标标情况模块。用户管理模块该模块主要包括括用户添加模模块、用户管管理模块、用用户注销模块块。2.2 系统统功能结构图图办公自动化管理理系统功能结结构如图1所所示。图1 系统功功能结构图3 系统设计计3.1 设计计目标本系统是针对中中小型企业内内部办公自动动化管理的要要求进行设计计的，主要实实现如

19、下目标标：系统采用人机对对话方式，界界面清晰、信信息查询灵活活、方便、快快捷、准确、数数据存储安全全可靠。利用系统快速的的统计生产的的数据报表，并并对报表信息息进行打印。键盘操作，快速速响应。实现了各类发文文信息、公共共信息的强大大的管理能力力。实现对员工基础础信息（人事事管理）的管管理功能等。实现了个人办公公的信息自动动化管理功能能。对企业的采购计计划、库存信信息进行管理理。发布生产指标，对对企业生产指指标信息进行行管理。发布会议信息，并并对会议信息息进行管理。对系统用户进行行管理。为了加强数据保保密性，为每每个用户设置置权限级别。系统最大限度地地实现了易安安装性、易维维护性和易操操作性。系

20、统运行稳定、安安全可靠。3.2 开发发及运行环境境硬件平台：CPU：P411.8GHzz；内存：256MMB以上。软件平台：操作系统：Wiindowss xp/ WWindowws 2000。数据库：SQLL Servver 20000。浏览器：IE55.0，推荐荐使用IE66.0。Web服务器：IIS5.0。分辨率：最佳效效果10244768像素素。3.3 逻辑辑结构设计本系统数据库采采用SQL Serveer 20000数据库，系系统数据库名名称为db_officce。数据库库db_offfice中中包含13张张表。数据库库中的数据表表请参见附录录B。4 网站总体体架构4.1 模块块功能介

21、绍系统主要包括以以下功能模块块：系统登录模块：主要用于用用户登录管理理。日常管理模块：主要包括收收文管理、发发文管理、批批示管理、会会议管理、公公共信息管理理、个人办公公管理、人事事管理7部分分。业务管理模块：主要包括生生产报表管理理、采购计划划管理、库存存管理、指标标情况管理44部分。用户管理模块：主要包括超超级用户、普普通用户两种种登录情况。超超级用户包括括用户添加、用用户修改(所所有用户)、用用户注销3部部分；普通用用户包括用户户修改(个人人信息进行修修改)、用户户注销2部分分。4.2 网站站首页的运行行结果网站首页的运行行结果如图33所示。图3 网站站首页运行结结果为了方便阅读将将网站

22、页面的的各部分说明明以列表形式式给出，如表表1所示。表1 网站首页解解析区域名称说明对应文件1旗帜广告区用于显示网站的的标识、标题题admin.aasp2日常管理区主要用于日常工工作管理admin.aasp3业务管理区主要用于业务管管理admin.aasp4用户管理区主要用于管理用用户的添加、修修改、注销admin.aasp5展示区主要用于显示相相关操作或其其他内容列表表main.assp5 系统登录录模块设计系统登录模块主主要用于验证证用户登录系系统时输入的的用户名、密密码、验证码码是否正确，如如果正确用户户进入系统，否否则将不能进进入此系统。系系统登录页面面的设计效果果如图4所示示。图4

23、系统登登录页面设计计效果系统登录页面所所涉及的HTTML表单元元素如表2所所示。表2 系系统登录页面面所涉及的HHTML表单单元素名称类型含义重要属性form1Form表单action=checck.aspp?actiion=loogin methood=POOSTadmin_nnametext用户名onFocuss=thiis.sellect(); oonmousseoverr=thiis.styyle.baackgroound=#EAEAAEA; onmoouseouut=thhis.sttyle.bbackgrround=#FFFFFFFadmin_ppasspassworrd密码onF

24、ocuss=thiis.sellect(); oonmousseoverr=thiis.styyle.baackgroound=#EAEAAEA; onmoouseouut=thhis.sttyle.bbackgrround=#FFFFFFFverifyccodetext验证码onFocuss=thiis.sellect(); oonmousseoverr=thiis.styyle.baackgroound=#EAEAAEA; onmoouseouut=thhis.sttyle.bbackgrround=#FFFFFFF sizee=6 maxleength=4verifyccode2hidd

25、en隐藏域value=submitsubmit【登录】按钮class=inputt vallue= 登 录 submit22reset【重填】按钮value= 重 填 claass=iinput系统登录页面所所涉及到的程程序代码如下下：% dim veerifyccode,vverifyycode22 veriffycodee=trimm(Requuest.FForm(veriffycodee) 获获取输入验证证码的值verifyycode22=trimm(Requuest.FForm(veriffycodee2) 应用Trrim函数替替换字符串左左右空格符if verrifycoodevve

26、rifyycode22 thenn 判判断输入的验验证码与随机机产生的验证证码是否一致致responnse.wrritealeert(您您输入的验证证码不正确。);responnse.wrritellocatiion.hrref=iindex.aspelsesessioon(veerifyccode)= 清空验验证码% if requeest(aactionn)=llogin thenn 判断断表单是否接接收到值adminn_namee=requuest(adminn_namee) 接收用户名名adminn_passs=requuest(adminn_passs) 接收用用户密码userrna

27、me=trim(requeest(aadmin_name) 应用Triim函数去掉掉左右空格符符passsword=trim(requeest(aadmin_pass)for i=1 tto lenn(userrname) 应应用len函函数计算出用用户名的长度度 usser=miid(useernamee,i,1) 判判断用户名中中是否含有非非法字符if uuser= orr userr=% or usser= oor useer=& or uuser=| thhenrespponse.writee &allert(您的用户名名含有非法字字符,请重新新输入！); & histtory.bba

28、ck() & respponse.endend ifnextt foor i=11 to llen(paassworrd) 判断用户密密码中是否含含有非法字符符 paass=miid(passswordd,i,1) iff passs= or paass=% or pass= or uupass=& oor passs=| thenn reesponsse.wriite & aleert(您您的密码含有有非法字符,请重新输入入！); & hhistorry.bacck() & reesponsse.endd ennd if neext%set rss=servver.crreateoobjec

29、tt(adoodb.reecordsset)sql=sselectt * frrom ussers wwhere usernname=&admmin_naame& and userppwd=&admiin_passs&rs.opeen sqll,connn,1,3if rss.eof then 判断输输入的用户名名、密码或验验证码是否正正确respponse.writee 对不起，您您输入的用户户名、密码或或验证码有误误，从重新输输入，谢谢！本软件建建议您使用IIE6.0以以上版本，分分辨率：10024*7668否则一切切后果与本软软件无关，特特此声明！elsesesssion(adminn_

30、namee)=reequestt(admmin_naame) 创建ssessioon阶段变量量respponse.Redirrect(adminn.asp) 跳转到指定定的动态页end iif rs.clooseset rss=nothhingconn.cclose 关闭闭已打开的记记录集set coonn=noothingg 将将不用的对象象释放掉end iffend if%系统登录页面的的运行结果如如图5所示。图5 系统登登录页面的运运行结果6 日常管理模模块设计日常管理模块主主要包括收文文管理、发文文管理、批示示管理、会议议管理、公共共信息管理、个个人办公管理理、人事管理理7部分。6.1

31、 收文文管理模块设设计收文管理主要用用于显示发文文人、审批人人、发文日期期、发文标题题，通过单击击“发文标题”超链接，可可以打开收文文的详细信息息页面。收文文信息以分页页形式进行显显示。收文管管理页面的设设计效果如图图6所示。图6 收文管管理页面的设设计效果收文管理页面所所涉及到的程程序代码如下下：maxpaage thhen requeestpagge=maxxpage end iif if noot reqquestppage=11 thenn rs.moove (rrequesstpagee-1)*rrs.paggesizee end iif for ii=1 too rs.ppages

32、iize annd nott rs.eeof % a hrref=# onCClick=winddow.oppen(sshouxiian.assp?id=,sscrolllbars=yes,width=5510,heeight=500) 6.2 发文文管理模块设设计发文管理主要包包括发布发文文、发文删除除两部分。发布发文管理的的相关程序代代码如下：%if reqquest(postt)=ttrue then 判断表表单是否提交交call wwri 调用用wri自定定义函数end iff functiion wrriif reqquest(titlle) annd reqquest(contte

33、nt) then 判断发发文的标题、内内容是否为空空set rs=seerver.CreatteObjeect(aadodb.recorrdset)sql=seleect * from fajiaanrs.oopen ssql,coonn,1,3 打开开记录集rs.AAddNewwrs(titlee)=reequestt(tittle)rs(conteent)=requeest(ccontennt)rs(name)=sesssion(admiin_namme)rs(shen)=0 添加发文属属于未审核rs(ttime)=now() 根据据计算机系统统设定的日期期和时间返回回当前的日期期和时间值

34、rs.uupdateers.ccloserespponse.Redirrect(chengggong.htm) 跳转转到指定的动动态页elseresponsse.Wriite(aleert(请请把信息填写写完整)end iif end fuunctioon%除了发布发文功功能同时也设设置了删除发发文的功能，单单击“删除”超链接将删删除指定的发发文信息。发发文删除的程程序代码如下下：%if requuest(del) then 判断接接收的dell值不能等于于空call deelend iffunctioon dell sql22=dellete ffrom ffajiann wherre id

35、=&reqquest(del)conn.Exxecutee(sql22) 执执行sql22语句end funnctionn%a hreff=faguuan.assp?dell=&p=删删除发文删除页面的的运行结果如如图7所示。图7 发文删删除页面的运运行结果6.3 批示示管理模块设设计批示管理主要包包括发文批示示、发文修改改、发文删除除，只有当用用户是超级用用户才有权限限进行批示管管理，普通用用户没有此权权限。当审批批之后，发文文在收文管理理页面中才能能够显示出来来。批示管理理页面的设计计效果如图88所示。图8 批示管管理页面设计计效果批示管理页面所所涉及到的程程序代码如下下：%call cc

36、ase1if reqquest(del) and (ps(shenhhe)=11 or pps(chhaoji)=1) then 判判断用户是否否有权限删除除发文call ddelend ifffunctiion deelsql2=deleete frrom faajian wheree id=&requuest(del)conn.Execuute(sqql2) 执行ssql2语句句end fuunctioonif requuest(shen) and (ps(shenhhe)=11 or pps(chhaoji)=1) then 判断用户户是否有权限限进行审核call uupend ifff

37、unctiion uppset rrs1=seerver.CreatteObjeect(aadodb.recorrdset)sql1=seleect * from fajiaan wheere idd=&reequestt(id)rs1.oopen ssql1,cconn,11,3rs1(shen)=reqquest(shenn) 是否审核rs1(snamee)=seessionn(admmin_naame) 获取操作作用户名rs1.uupdateers1.ccloseend fuunctioon% 已审核核 a href=piguaan.aspp?shenn=1&idd= onClickk=

38、retturn cconfirrm(确定定审核吗？)审核核 通通过鼠标单击击事件实现弹弹出提示框修改发文进行修修改所涉及到到的程序代码码如下%call ccase1 验证用用户身份,此此时调用innc/yann.asp文文件,sellect ccase1set rss1=serrver.CCreateeObjecct(addodb.rrecorddset)sql1=selecct * ffrom ffajiann wherre id=&reqquest(id)rs1.oppen sqql1,coonn,1,1sessioon(idd)=rss1(idd)if rs11(sheen)1 thee

39、n 判断是否已已审核if reqquest(postt)=ttrue then 判断断是否已接收收表单的值call wwriend iff functiion wrriif reqquest(titlle) annd reqquest(conttent) then 判断是否否接收到值set rrs=serrver.CCreateeObjecct(addodb.rrecorddset)sql=selecct * ffrom ffajiann wherre id=&sesssion(id) 通过sesssion(id)查找相关记记录rs.oppen sqql,connn,1,33 打开开记录集rs

40、(ttitle)=reqquest(titlle) 接收添加的的标题rs(ccontennt)=rrequesst(coontentt) 接接收添加的内内容rs(ttime)=now() 获取取当前系统日日期和时间rs.uppdaters.clloserespoonse.RRedireect(cchengggong.hhtm) 跳转到到发文修改成成功页面elserespoonse.WWrite(aalert(请把信息息填写完整)end iff end fuunctioonif reqquest(id)= tthen responnse.Reedirecct(piiguan.asp)end if

41、f%批示管理页面的的运行结果如如图9所示。图9 批示管管理页面的运运行结果6.4 会议议管理模块设设计会议管理主要包包括会议修改改、会议删除除、会议发布布3部分。当当用户单击会会议标题超链链接时，进入入相关的会议议信息详细页页面，可对会会议的详细信信息进行浏览览。会议管理页面的的设计效果如如图10所示示。图10 会议议管理页面设设计效果会议管理页面所所涉及到的程程序代码如下下：% call ccase2 验证用户户身份，此时时调用incc/yan.asp文件件中seleect caase2if reqquest(del) thenn 判判断是否接收收到值call ddelend ifffunc

42、tiion deelsql2=deleete frrom huuiyi wwhere id=&requeest(ddel)conn.Execuute(sqql2) 通过exxecutee执行sqll2语句end fuunctioon%a hreff=huiyyiguann.asp?del=&p=删除 调调用删除会议议功能模块会议管理页面的的运行结果如如图11所示示。图11 会议议管理页面运运行结果在会议管理页面面，单击“修改”超链接，进进入会议信息息修改页面后后，用户可以以对会议的标标题、内容进进行修改。只只有当用户有有修改权限时时，才可以对对会议的相关关信息进行修修改。会议修修改页面的设设计

43、效果如图图12所示。图12 会议议修改页面的的设计效果修改会议所涉及及到的程序代代码如下：%call caase2 验证用户户身份此时调调用inc/yan.aasp文件sselectt casee2if reqquest(postt)=ttrue then 判断是是否接收到表表单值call wwri 通过calll语句调用用functtion过程程end iff functiion wrriif requuest(titlee) andd requuest(conteent) aand (pps(huuiyi)=1 orr ps(chaojji)=11) theen set rs=seerve

44、r.CreatteObjeect(aadodb.recorrdset)sql=seleect * from huiyii wherre id=&sesssion(id)rs.oopen ssql,coonn,1,3rs(titlee)=reequestt(tittle) 接收收进行修改的的会议标题rs(conteent)=requeest(ccontennt)rs(time)=noww() 接收当前前系统日期和和时间rs.uupdateers.ccloserespponse.Redirrect(chengggong.htm)elseresponnse.Wrrite(allert(请把信息填填写

45、完整)end iif end fuunctioonif reqquest(id)= tthenrespoonse.WWrite(对不起，您您不是管理员员！)end iffset rss1=serrver.CCreateeObjecct(addodb.rrecorddset)sql1=selecct * ffrom hhuiyi wheree id=&requuest(id)rs1.oppen sqql1,coonn,1,1%会议发布所涉及及到的程序代代码如下：%call caase2if requuest(post)=trrue aand (pps(huuiyi)=1 orr ps(chaoj

46、ji)=11) theen 判断断用户是否有有权限发布会会议call wwriend if functioon wriiif reqquest(titlle) annd reqquest(conttent) then 接收的的会议标题、会会议内容不允允许为空set rs=seerver.CreatteObjeect(aadodb.recorrdset)sql=seleect * from huiyiirs.oopen ssql,coonn,1,3rs.AAddNewwrs(titlee)=reequestt(tittle) 接收收发布会议的的标题rs(conteent)=requeest(cc

47、ontennt) 接收发布布会议的内容容rs(name)=sesssion(admiin_namme)rs(time)=noww() 获取当前前系统日期和和时间rs.uupdateers.ccloserespponse.Redirrect(chengggong.htm)elserespponse.Writee(alertt(请把信信息填写完整整)end iif end fuunctioon%6.5 个人人办公管理模模块设计个人办公管理模模块主要包括括个人活动登登记管理、个个人活动管理理、个人邮件件管理、名片片夹管理4部部分。个人活动登记管管理模块个人活动登记管管理模块主要要用于添加个个人活动记

48、录录。个人活动动登记管理页页面的设计效效果如图133所示。图13 个人人活动登记管管理页面的设设计效果个人活动登记管管理页面所涉涉及的相关的的程序代码如如下：%if reqquest(postt)=2 then 判断是是否接收到表表单的值call wwrt1end iff functiion wrrt1if reequestt(tittle)= orr requuest(conteent)= thhenrespponse.Writee(alertt(请把内内容填写完整整！)elseset rs=seerver.CreatteObjeect(aadodb.recorrdset)sql=selee

49、ct * from gerennhuodoongrs.oopen ssql,coonn,1,3rs.aaddnewwrs(titlee)=reequestt(tittle) 接收个个人活动登记记标题rs(conteent)=requeest(ccontennt) 接收个人人活动登记内内容rs(name)=sesssion(admiin_namme)rs(time)=noww() 获取当前系系统日期和时时间rs.uupdateers.ccloserespponse.Redirrect(chengggong.htm)end iif end fuunctioon%个人活动登记管管理页面的运运行结果如

50、图图14所示。图14 个人人活动登记管管理页面的运运行结果个人活动管理模模块个人活动管理模模块主要包括括个人活动信信息删除、对对提交个人活活动信息进行行批准、个人人活动信息内内容的显示33部分。当用用户是超级用用户时可以对对个人活动信信息进行批准准和删除操作作；而普通用用户只能对信信息进行修改改。个人活动动管理页面的的设计效果如如图20所示示。图15 个人人活动管理页页面的设计效效果当用户为超级用用户时可以批批准发文、删删除发文。个个人活动管理理页面超级用用户时所涉及及到的相关程程序代码如下下：%if reqquest(passs) thhen 判断是否接接收到表单的的值call ggeren

51、end ifffunctiion geerenset rrs2=seerver.CreatteObjeect(aadodb.recorrdset)sql2=seleect * from gerennhuodoong whhere iid=&rrequesst(idd)rs2.oopen ssql2,cconn,11,3rs2(pass)=1rs2(pnamee)=seessionn(admmin_naame) 接接收批准用户户名rs2.uupdateers2.ccloseend fuunctioonif reqquest(del) thenn 接收收删除的值不不能为空call ddelend

52、ifffunctiion deel sql2=deleete frrom geerenhuuodongg wherre id=&reqquest(del) 删除指定定记录conn.Execuute(sqql2)end fuunctioon%当用户为普通用用户时只可以以修改发文。个个人活动管理理页面普通用用户时所涉及及到的相关程程序代码如下下：%set rss1=serrver.CCreateeObjecct(addodb.rrecorddset)sql1=selecct * ffrom ggerenhhuodonng wheere idd=&reequestt(id)rs1.oppen sqq

53、l1,coonn,1,1sessioon(idd)=rss1(idd) 建立sesssion(id)if reequestt(posst)=true thenn 判断表单单是否提交calll wriend iif functiion wrriif reequestt(tittle) aand reequestt(conntent) thenn 接收的的标题、内容容不允许为空空sett rs=sserverr.CreaateObjject(adodbb.recoordsett)sqll=sellect * fromm gereenhuoddong wwhere id=&sessiion(iid)

54、rs.open sql,cconn,11,3rs(titlle)=rrequesst(tiitle) 接收收修改发文标标题rs(conttent)=requuest(conteent) 接收修改改发文内容rs(namee)=seessionn(admmin_naame) 接收修修改用户名rs(timee)=noow() 获取当前前系统日期和和时间rs.updatters.closee 关闭闭已打开的记记录集ressponsee.Rediirect(chennggongg.htm) 跳跳转到指定的的动态页面elsee responnse.Wrrite(allert(请把信息填填写完整)end i

55、ff end funnctionn%个人活动管理页页面的运行结结果，如图116所示。图16 个人人活动管理页页面的运行结结果个人邮件管理模模块个人邮件管理模模块主要包括括个人邮件删删除、写邮件件、邮件阅读读（当邮件被被阅读之后，“NEW”标识将会消失）。个人邮件管理页面的设计效果如图17所示。图17 个人人邮件管理页页面的设计效效果个人邮件管理页页面所涉及到到的程序代码码如下：%tel=0 设置默默认值if reqquest(del) thenn 判判断接收的值值不允许为空空call ddel 通过calll语句调用用del模块块end ifffunctiion deelsql2=delett

56、e froom emaail whhere iid=&rrequesst(deel) 判断删除除指定的记录录conn.EExecutte(sqll2)end fuunctioonset rss3=serrver.CCreateeObjecct(addodb.rrecorddset)sql3=sselectt * frrom emmail wwhere new=00 and snamee=&ssessioon(addmin_nname)& oorder by tiime deescrs3.oppen sqql3,coonn,1,1cou=rss3.reccordcoountset rss=ser

57、vver.CrreateOObjectt(adoodb.reecordsset)sql=sselectt * frrom emmail wwhere snamee=&ssessioon(addmin_nname)& oorder by tiime deescrs.opeen sqll,connn,1,1%个人邮件管理页页面中对邮件件的总数进行行了统计，统统计邮件总数数所涉及到的的程序代码如如下所示：共有封邮件新新邮件封个人邮件管理页页面中，单击击“写邮件”超链接进入入写邮件页面面。写邮件页页面所涉及到到的程序代码码如下：%if reqquest(postt)=2 then 判断是是否接收到表表

58、单的值call wwrt1end iff functiion wrrt1if reqquest(titlle)= or requeest(ccontennt)= theen 判断断接收邮件的的标题、内容容不能为空responnse.Wrrite(allert(请把内容填填写完整！)elseset rs=seerver.CreatteObjeect(aadodb.recorrdset)sql=seleect * from emaillrs.oopen ssql,coonn,1,3rs.aaddneww 通通过addnnew()方方法向数据库库中添加记录录rs(titlee)=reequestt(

59、tittle) 接收添添加邮件标题题rs(conteent)=requeest(ccontennt) 接收添加邮邮件内容rs(snamee)=reequestt(sell) rs(fnamee)=seessionn(admmin_naame) 接收添添加邮件用户户名rs(time)=noww() 获取当前前系统日期和和时间rs.uupdateers.cclose 关闭已已打开的记录录集respponse.Redirrect(chengggong.htm)end iif end fuunctioon%个人邮件管理页页面的运行结结果如图188所示。图18 个人人邮件管理页页面的运行结结果名片夹管理

60、模块块设计名片夹管理模块块主要用于添添加名片夹、修修改名片夹、删删除名片夹、添添加名片夹详详细信息、名名片夹详细信信息显示、名名片夹详细信信息修改、名名片夹详细信信息删除7部部分。在名片夹管理页页面，单击“添加”按钮，添加加名片夹名称称。添加名片片夹名称页面面的设计效果果如图19所所示。图19 添加加名片夹名称称页面的设计计效果添加名片夹名称称页面所涉及及到的程序代代码如下：%if reqquest(postt)=3 then 判断是是否接收到表表单值call wwend ifffunctiion wif reequestt(lannmu)= thhen respoonse.WWrite(aa