毕业设计（论文）-办公自动化管理系统的设计

–PAGE4––PAGE5–办公自动化管理系统的设计摘要【摘要】随着信息技术的飞速发展和日趋激烈的商业竞争，企业已不再满足于独立、零散的办公自动化应用，企业需要的是协同工作、综合、集成化的解决方案。而网络是解决由于物理距离造成的信息交流不畅、协商沟通不便的办公瓶颈问题的最佳方式。企业网上办公自动化通过对各办公自动化要素的闭环整合，实现了工作流、信息流、知识流和办公自动化系统的整合管理，提供了一个科学、开放、先进的信息化办公平台，实现办公自动化，并进行远程办公或在家办公。企业网上办公自动化将人从繁琐、无序、低序、低端的工作中解放出来从事核心事务，整体提高了单位办事效率和对信息的可控性，降低办公成本，提高执行力，使管理趋于完善.【关键词】办公自动化管理、ADO连接、数据源、办公管理

目录TOC\o"1-3"\h\z摘要 10引言 11系统分析 21.1需求分析 21.2可行性分析 22总体设计 22.1项目规划 22.2系统功能结构图 33系统设计 33.1设计目标 33.2开发及运行环境 43.3逻辑结构设计 44网站总体架构 54.1模块功能介绍 54.2网站首页的运行结果 55系统登录模块设计 66日常管理模块设计 86.1收文管理模块设计 86.2发文管理模块设计 96.3批示管理模块设计 106.4会议管理模块设计 126.5个人办公管理模块设计 156.6人事管理模块设计 237业务管理模块设计 257.1生产报表管理模块 257.2采购计划管理模块设计 317.3库存管理模块设计 338用户管理模块设计 358.1用户添加管理模块设计 358.2用户修改管理模块设计 388.3用户注销管理模块设计 39附录A参考文献 40附录B数据表 42附录C文件架构图 470引言随着中国加入WTO及全球经济一体化进程的加快，世界经济已由工业化经济逐步进入网络信息化时代。在信息时代来临之季，各企业都紧跟时代的脚步，转变着企业的经营模式、管理模式，从传统的人工管理体制，向信息自动化管理体制过渡。与此同时，企业的传统式的办公管理模式也在逐步向自动化办公管理模式转变。网络自动化办公系统就是在这样的大背景下应运而生的。信息时代的到来让人们尝到了“信息爆炸”的滋味，信息的大量拥入让企业在信息处理方便应接不暇，传统的办公模式、对信息的处理方法，早已不能满足企业对信息快速、准确的处理的要求。一个企业对信息数据的掌握程度、处理能力，体现了一个企业对市场的敏感程度，数据的真实性、准确性直接决定着企业的发展方向。从传统的办公模式向自动化办公管理模式转变，提高企业的信息处理能力，以增强企业的市场竞争力，成了企业发展过程中的首要问题。

1系统分析1.1需求分析通过调查，要求系统需要有以下功能：由于操作人员的计算机知识普遍较差，要求有良好的人机界面。管理系统用户，由于该系统的使用对象多，要求有较好的权限管理。管理企业的会议信息，发文信息、公共信息。提供个人办公服务。对企业员工基本情况进行全面管理。设置生产数据统计、打印功能。对企业制定的采购计划进行管理。对库存信息进行管理。发布企业的生产指标，对其进行管理。强大的生产数据统计功能。当外界环境（停电、网络病毒）干扰本系统时，系统可以自动保护原始数据的安全。在相应的权限下，删除数据方便简单，数据稳定性好。数据计算自动完成，尽量减少人工干预。系统退出。1.2可行性分析经济性通过网站对企业内部信息进行全面的自动化的管理，大大提高了企业的办公效率。通过系统对企业生产经营过程中的数据进行全面的管理和统计，避免人为处理各类数据时所产生的各种问题，提高了企业的经济效益，为企业经营决策提供了大量的、权威的数据，使企业的管理进行到科学化、系统化的范筹。技术性网络化的办公管理，使企业管理更加规范，实现了通过网络对信息进行发布、传递、接收等一系列功能。系统中设置的个人办公管理模块，为个人办公提供了一个更为方便的管理平台，大大提高个人办公的工作效率，进而提高整个企业的办公效率。2总体设计2.1项目规划办公自动化管理系统是一个典型的数据库开发应用程序，由日常管理模块、业务管理模块、用户管理模块组成，规划系统功能模块如下：日常管理模块该模块包括收文管理模块、发文管理模块、批示管理模块、会议管理模块、公共信息管理模块、个人办公管理模块、人事管理模块。业务管理模块该模块包括生产报表模块、采购计划模块、库存管理模块、指标情况模块。用户管理模块该模块主要包括用户添加模块、用户管理模块、用户注销模块。2.2系统功能结构图办公自动化管理系统功能结构如图1所示。图1系统功能结构图3系统设计3.1设计目标本系统是针对中小型企业内部办公自动化管理的要求进行设计的，主要实现如下目标：系统采用人机对话方式，界面清晰、信息查询灵活、方便、快捷、准确、数据存储安全可靠。利用系统快速的统计生产的数据报表，并对报表信息进行打印。键盘操作，快速响应。实现了各类发文信息、公共信息的强大的管理能力。实现对员工基础信息（人事管理）的管理功能等。实现了个人办公的信息自动化管理功能。对企业的采购计划、库存信息进行管理。发布生产指标，对企业生产指标信息进行管理。发布会议信息，并对会议信息进行管理。对系统用户进行管理。为了加强数据保密性，为每个用户设置权限级别。系统最大限度地实现了易安装性、易维护性和易操作性。系统运行稳定、安全可靠。3.2开发及运行环境硬件平台：CPU：P41.8GHz；内存：256MB以上。软件平台：操作系统：Windowsxp/Windows2000。数据库：SQLServer2000。浏览器：IE5.0，推荐使用IE6.0。Web服务器：IIS5.0。分辨率：最佳效果1024×768像素。3.3逻辑结构设计本系统数据库采用SQLServer2000数据库，系统数据库名称为db_office。数据库db_office中包含13张表。数据库中的数据表请参见附录B。4网站总体架构4.1模块功能介绍系统主要包括以下功能模块：系统登录模块：主要用于用户登录管理。日常管理模块：主要包括收文管理、发文管理、批示管理、会议管理、公共信息管理、个人办公管理、人事管理7部分。业务管理模块：主要包括生产报表管理、采购计划管理、库存管理、指标情况管理4部分。用户管理模块：主要包括超级用户、普通用户两种登录情况。超级用户包括用户添加、用户修改(所有用户)、用户注销3部分；普通用户包括用户修改(个人信息进行修改)、用户注销2部分。4.2网站首页的运行结果网站首页的运行结果如图3所示。1212345图3网站首页运行结果为了方便阅读将网站页面的各部分说明以列表形式给出，如表1所示。表1网站首页解析区域名称说明对应文件1旗帜广告区用于显示网站的标识、标题admin.asp2日常管理区主要用于日常工作管理admin.asp3业务管理区主要用于业务管理admin.asp4用户管理区主要用于管理用户的添加、修改、注销admin.asp5展示区主要用于显示相关操作或其他内容列表main.asp5系统登录模块设计系统登录模块主要用于验证用户登录系统时输入的用户名、密码、验证码是否正确，如果正确用户进入系统，否则将不能进入此系统。系统登录页面的设计效果如图4所示。图4系统登录页面设计效果系统登录页面所涉及的HTML表单元素如表2所示。表2系统登录页面所涉及的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验证码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"系统登录页面所涉及到的程序代码如下：<% dimverifycode,verifycode2verifycode=trim(Request.Form("verifycode"))'获取输入验证码的值 verifycode2=trim(Request.Form("verifycode2"))'应用Trim函数替换字符串左右空格符 ifverifycode<>verifycode2then'判断输入的验证码与随机产生的验证码是否一致 response.write"<SCRIPTlanguage=JavaScript>alert('您输入的验证码不正确。');" response.write"location.href='index.asp'</SCRIPT>" else session("verifycode")=""'清空验证码%><% ifrequest("action")="login"then'判断表单是否接收到值 admin_name=request("admin_name")'接收用户名 admin_pass=request("admin_pass")'接收用户密码 username=trim(request("admin_name"))'应用Trim函数去掉左右空格符 password=trim(request("admin_pass")) fori=1tolen(username)'应用len函数计算出用户名的长度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'判断输入的用户名、密码或验证码是否正确 response.write"<br><br><br><br><fontsize=2><center>对不起，您输入的用户名、密码或验证码有误，从重新输入，谢谢！<br><br>本软件建议您使用IE6.0以上版本，分辨率：1024*768<br><br>否则一切后果与本软件无关，特此声明！</font>" else session("admin_name")=request("admin_name")'创建session阶段变量 response.Redirect("admin.asp")'跳转到指定的动态页 endif rs.close setrs=nothing conn.close'关闭已打开的记录集 setconn=nothing'将不用的对象释放掉 endifendif%>系统登录页面的运行结果如图5所示。图5系统登录页面的运行结果6日常管理模块设计日常管理模块主要包括收文管理、发文管理、批示管理、会议管理、公共信息管理、个人办公管理、人事管理7部分。6.1收文管理模块设计收文管理主要用于显示发文人、审批人、发文日期、发文标题，通过单击“发文标题”超链接，可以打开收文的详细信息页面。收文信息以分页形式进行显示。收文管理页面的设计效果如图6所示。图6收文管理页面的设计效果收文管理页面所涉及到的程序代码如下：<% setrs=server.CreateObject("adodb.recordset") sql="select*fromfajianwhereshen=1orderbytimedesc" rs.opensql,conn,1,1%><%ifnotrs.eofthentel=rs.recordcount'获取记录集的总数shum=15rs.pagesize=shummaxpage=rs.pagecount'获取最大页面码值requestpage=clng(request("p"))ifrequestpage=""orrequestpage=0thenrequestpage=1'设置默认值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'如果记录集为空，跳出循环nextelseresponse.Write("暂无信息")endifrs.close%>6.2发文管理模块设计发文管理主要包括发布发文、发文删除两部分。发布发文管理的相关程序代码如下：<% ifrequest("post")="true"then'判断表单是否提交 callwri'调用wri自定义函数 endif functionwri ifrequest("title")<>""andrequest("content")<>""then'判断发文的标题、内容是否为空 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'添加发文属于未审核 rs("time")=now()'根据计算机系统设定的日期和时间返回当前的日期和时间值 rs.update rs.close response.Redirect("chenggong.htm")'跳转到指定的动态页 elseresponse.Write("<scriptlanguage=javascript>alert('请把信息填写完整')</script>") endif endfunction%>除了发布发文功能同时也设置了删除发文的功能，单击“删除”超链接将删除指定的发文信息。发文删除的程序代码如下：<%ifrequest("del")<>""then'判断接收的del值不能等于空calldelendiffunctiondelsql2="deletefromfajianwhereid="&request("del")conn.Execute(sql2)'执行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>发文删除页面的运行结果如图7所示。图7发文删除页面的运行结果6.3批示管理模块设计批示管理主要包括发文批示、发文修改、发文删除，只有当用户是超级用户才有权限进行批示管理，普通用户没有此权限。当审批之后，发文在收文管理页面中才能够显示出来。批示管理页面的设计效果如图8所示。图8批示管理页面设计效果批示管理页面所涉及到的程序代码如下：<% callcase1 ifrequest("del")<>""and(ps("shenhe")=1orps("chaoji")=1)then'判断用户是否有权限删除发文 calldel endif functiondel sql2="deletefromfajianwhereid="&request("del") conn.Execute(sql2)'执行sql2语句 endfunctionifrequest("shen")<>""and(ps("shenhe")=1orps("chaoji")=1)then'判断用户是否有权限进行审核 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"'将所有记录进行降序排列 rs.opensql,conn,1,1%><%ifrs("shen")=1then%>已审核<%EndIf%><%ifrs("shen")=0then%><ahref=piguan.asp?shen=1&id=<%=rs("id")%>onClick="returnconfirm('确定审核吗？')">审核</a>'通过鼠标单击事件实现弹出提示框<%EndIf%>修改发文进行修改所涉及到的程序代码如下<% callcase1'验证用户身份,此时调用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")查找相关记录 rs.opensql,conn,1,3'打开记录集 rs("title")=request("title")'接收添加的标题 rs("content")=request("content")'接收添加的内容 rs("time")=now()'获取当前系统日期和时间 rs.update rs.close response.Redirect("chenggong.htm")'跳转到发文修改成功页面 else response.Write("<scriptlanguage=javascript>alert('请把信息填写完整')</script>") endif endfunction ifrequest("id")=""then response.Redirect("piguan.asp") endif%>批示管理页面的运行结果如图9所示。图9批示管理页面的运行结果6.4会议管理模块设计会议管理主要包括会议修改、会议删除、会议发布3部分。当用户单击会议标题超链接时，进入相关的会议信息详细页面，可对会议的详细信息进行浏览。会议管理页面的设计效果如图10所示。图10会议管理页面设计效果会议管理页面所涉及到的程序代码如下：<% callcase2'验证用户身份，此时调用inc/yan.asp文件中selectcase2 ifrequest("del")<>""then'判断是否接收到值 calldel endif functiondel sql2="deletefromhuiyiwhereid="&request("del") conn.Execute(sql2)'通过execute执行sql2语句 endfunction %><% setrs=server.CreateObject("adodb.recordset") sql="select*fromhuiyiorderbytimedesc" rs.opensql,conn,1,1%><ahref=huiyiguan.asp?del=<%=rs("id")%>&p=<%=requestpage%>>删除</a>'调用删除会议功能模块会议管理页面的运行结果如图11所示。图11会议管理页面运行结果在会议管理页面，单击“修改”超链接，进入会议信息修改页面后，用户可以对会议的标题、内容进行修改。只有当用户有修改权限时，才可以对会议的相关信息进行修改。会议修改页面的设计效果如图12所示。图12会议修改页面的设计效果修改会议所涉及到的程序代码如下：<%callcase2'验证用户身份此时调用inc/yan.asp文件selectcase2 ifrequest("post")="true"then'判断是否接收到表单值 callwri'通过call语句调用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")'接收进行修改的会议标题 rs("content")=request("content") rs("time")=now()'接收当前系统日期和时间 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%>会议发布所涉及到的程序代码如下：<%callcase2ifrequest("post")="true"and(ps("huiyi")=1orps("chaoji")=1)then'判断用户是否有权限发布会议 callwriendiffunctionwri ifrequest("title")<>""andrequest("content")<>""then'接收的会议标题、会议内容不允许为空 setrs=server.CreateObject("adodb.recordset") sql="select*fromhuiyi" rs.opensql,conn,1,3 rs.AddNew rs("title")=request("title")'接收发布会议的标题 rs("content")=request("content")'接收发布会议的内容 rs("name")=session("admin_name") rs("time")=now()'获取当前系统日期和时间 rs.update rs.close response.Redirect("chenggong.htm") else response.Write("<scriptlanguage=javascript>alert('请把信息填写完整')</script>") endif endfunction%>6.5个人办公管理模块设计个人办公管理模块主要包括个人活动登记管理、个人活动管理、个人邮件管理、名片夹管理4部分。个人活动登记管理模块个人活动登记管理模块主要用于添加个人活动记录。个人活动登记管理页面的设计效果如图13所示。图13个人活动登记管理页面的设计效果个人活动登记管理页面所涉及的相关的程序代码如下：<% ifrequest("post")=2then'判断是否接收到表单的值 callwrt1 endif functionwrt1 ifrequest("title")=""orrequest("content")=""then response.Write("<scriptlanguage=javascript>alert('请把内容填写完整！')</script>") else setrs=server.CreateObject("adodb.recordset") sql="select*fromgerenhuodong" rs.opensql,conn,1,3 rs.addnew rs("title")=request("title")'接收个人活动登记标题 rs("content")=request("content")'接收个人活动登记内容 rs("name")=session("admin_name") rs("time")=now()'获取当前系统日期和时间 rs.update rs.close response.Redirect("chenggong.htm") endif endfunction%>个人活动登记管理页面的运行结果如图14所示。图14个人活动登记管理页面的运行结果个人活动管理模块个人活动管理模块主要包括个人活动信息删除、对提交个人活动信息进行批准、个人活动信息内容的显示3部分。当用户是超级用户时可以对个人活动信息进行批准和删除操作；而普通用户只能对信息进行修改。个人活动管理页面的设计效果如图20所示。图15个人活动管理页面的设计效果当用户为超级用户时可以批准发文、删除发文。个人活动管理页面超级用户时所涉及到的相关程序代码如下：<% 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")'接收批准用户名 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"'将个人活动信息进行降序排列 rs.opensql,conn,1,1%>当用户为普通用户时只可以修改发文。个人活动管理页面普通用户时所涉及到的相关程序代码如下：<% 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'接收的标题、内容不允许为空 setrs=server.CreateObject("adodb.recordset") sql="select*fromgerenhuodongwhereid="&session("id") rs.opensql,conn,1,3 rs("title")=request("title")'接收修改发文标题 rs("content")=request("content")'接收修改发文内容 rs("name")=session("admin_name")'接收修改用户名 rs("time")=now()'获取当前系统日期和时间 rs.update rs.close'关闭已打开的记录集 response.Redirect("chenggong.htm")'跳转到指定的动态页面 else response.Write("<scriptlanguage=javascript>alert('请把信息填写完整')</script>") endifendfunction%>个人活动管理页面的运行结果，如图16所示。图16个人活动管理页面的运行结果个人邮件管理模块个人邮件管理模块主要包括个人邮件删除、写邮件、邮件阅读（当邮件被阅读之后，“NEW”标识将会消失）。个人邮件管理页面的设计效果如图17所示。图17个人邮件管理页面的设计效果个人邮件管理页面所涉及到的程序代码如下：<% tel=0'设置默认值 ifrequest("del")<>""then'判断接收的值不允许为空 calldel'通过call语句调用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%>个人邮件管理页面中对邮件的总数进行了统计，统计邮件总数所涉及到的程序代码如下所示：<%ifnotrs.eofthentel=rs.recordcountsetrs3=server.CreateObject("adodb.recordset") '用于计算新邮件的数量 sql3="select*fromemailwherenew=0andsname='"&session("admin_name")&"'orderbytimedesc" rs3.opensql3,conn,1,1 cou=rs3.recordcount%>共有<spanclass="style3"><%=tel%></span>封邮件新邮件<spanclass="style3"><%=cou%></span>封个人邮件管理页面中，单击“写邮件”超链接进入写邮件页面。写邮件页面所涉及到的程序代码如下：<% ifrequest("post")=2then'判断是否接收到表单的值 callwrt1 endif functionwrt1 ifrequest("title")=""orrequest("content")=""then'判断接收邮件的标题、内容不能为空 response.Write("<scriptlanguage=javascript>alert('请把内容填写完整！')</script>") else setrs=server.CreateObject("adodb.recordset") sql="select*fromemail" rs.opensql,conn,1,3 rs.addnew'通过addnew()方法向数据库中添加记录 rs("title")=request("title")'接收添加邮件标题 rs("content")=request("content")'接收添加邮件内容 rs("sname")=request("sel") rs("fname")=session("admin_name")'接收添加邮件用户名 rs("time")=now()'获取当前系统日期和时间 rs.update rs.close'关闭已打开的记录集 response.Redirect("chenggong.htm") endif endfunction%>个人邮件管理页面的运行结果如图18所示。图18个人邮件管理页面的运行结果名片夹管理模块设计名片夹管理模块主要用于添加名片夹、修改名片夹、删除名片夹、添加名片夹详细信息、名片夹详细信息显示、名片夹详细信息修改、名片夹详细信息删除7部分。在名片夹管理页面，单击“添加”按钮，添加名片夹名称。添加名片夹名称页面的设计效果如图19所示。图19添加名片夹名称页面的设计效果添加名片夹名称页面所涉及到的程序代码如下：<% 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'关闭已打开的记录集 response.Redirect("chenggong.htm")'跳转到指定页面 endif endfunction%>在名片夹管理页面，单击名片信息的“添加”按钮，添加名片的详细信息。添加名片详细信息页面主要用于添加姓名、电话、地址、QQ、email等信息。添加名片详细信息页面的设计效果如图20所示。图20添加名片详细信息页面的设计效果添加名片详细信息的程序代码如下：<% 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'关闭已打开的记录集 response.Redirect("chenggong.htm") endif endfunction%>在名片夹管理页中，单击名片夹“管理”超链接，进入名片夹管理页面。名片夹管理主要用于修改名片夹名称、删除名片夹，名片夹管理中删除名片夹的程序代码如下：<%ifrequest("del")<>""then calldel endif functiondel sql2="deletefromlanmuwhereid="&request("del") conn.Execute(sql2)'执行sq12语句 sql3="deletefromlianxiwherelanmu="&request("del")'删除名片夹 conn.Execute(sql3)'执行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%>在名片夹管理页面，单击“名片夹名称”的超链接，进入名片夹详细信息页面。名片夹详细信息页面主要是对名片详细信息进行修改、删除操作，设计效果如图21所示。图21名片夹详细信息页面设计效果名片夹详细信息页面所涉及到的相关程序代码如下：<% ifrequest("id")=""then'创建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'判断用户权限 response.Write("<scriptlanguage=javascript>alert('对不起您没有这个权利！');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%>名片夹详细信息页面的运行结果如图22所示。图22名片夹详细信息页面运行结果

附录A参考文献1．JSP数据库系统开发完全手册人民邮电出版社2006年3月 2．Delphi数据库系统开发完全手册人民邮电出版社2006年3月3．VisualBasic数据库系统开发完全手册人民邮电出版社2006年3月4．VisualC++数据库系统开发完全手册人民邮电出版社2006年3月5．JSP信息系统开发实例精选机械工业出版社王国辉、牛强、李南南等2005年7月 6．VisualBasic信息系统开发实例精选机械工业出版社宋坤、赵智勇、刘强等2005年7月 7．SQLServer数据库开发实例解析机械工业出版社宋昆、李严等2006年1月8．Access数据库开发实例解析机械工业出版社李俊民、高春燕等2006年1月9．VisualBasic精彩编程200例机械工业出版社 赛奎春、高春艳等2003年1月10．ASP数据库开发实例解析机械工业出版社李严、于亚芳、王国辉 2004年12月11．Delphi工程应用与项目实践机械工业出版社宋坤、赵智勇等2005年1月 12．VisualBasic工程应用与项目实践机械工业出版社 高春艳、李俊民等2005年1月 13．VisualC＋＋工程应用与项目实践机械工业出版社 张雨、阮伟良等5005年1月14．JSP工程应用与项目实践机械工业出版社陈威、白伟明、李楠 2005年2月15．ASP工程应用与项目实践机械工业出版社王国辉、牛强、李南南 2005年4月16．VisualBasic信息系统开发实例精选机械工业出版社 高春艳、李俊民、张耀庭等 2005年7月17．ASP信息系统开发实例精选机械工业出版社王国辉、牛强、李南南等2005年7月 18．Delphi信息系统开发实例精选机械工业出版社宋坤、赵智勇、刘强等2005年7月 19．Visualfoxpro数据库开发关键技术与实例应用人民邮电出版社周桓、张雨、王国辉2004年5月20．PoweBuilder数据库开发关键技术与实例应用人民邮电出版社刘志铭张振坤冯文萃2004年5月21．Delphi数据库开发关键技术与实例应用人民邮电出版社赛奎春陈紫鸿宋昆2004年5月22．Visualbasic数据库开发关键技术与实例应用人民邮电出版社高春艳、李艳2004年5月23．VisualC++管理信息系统完整项目实例剖析人民邮电出版社明日科技2005年7月 24．VisualBasic管理信息系统完整项目实例剖析人民邮电出版社明日科技2005年7月 25．PowerBuilder管理信息系统完整项目实例剖析人民邮电出版社明日科技2005年7月 26．VisualFoxPro管理信息系统完整项目实例剖析人民邮电出版社明日科技2005年7月 27．Delphi数据库开发实例解析机械工业出版社赛奎春、郑骁鹏等2004年2月28．VisualBasic数据库开发实例解析机械工业出版社 刘志铭、高春艳等2003年8月 29．VisualFoxPro数据库开发实例解析机械工业出版社 王晶莹、王国辉等2003年9月 30．PowerBuilder数据库开发实例解析机械工业出版社 华传铭、张振坤等2003年9月31．PowerBuilder精彩编程200例机械工业出版社张振坤、李文立等 2004年9月32．VisualFoxPro精彩编程200例机械工业出版社王国辉、董韶华等2004年9月

附录B数据表（1）zhibiao（指标表）指标表主要用于保存发布指标信息。该表结构如表B.1所示。表B.1表zhibiao结构字段名数据类型长度主键否描述idint4否自动编号namenvarchar50否发起人titlenvarchar50否标题contentntext16否内容[time]smalldatetime4否发布指标日期时间（2）ri（生产报表）生产报表主要保存锅炉生产的详细信息。该数据表的结构如表B.2所示。表B.2表ri结构字段名数据类型长度主键否描述idint4否自动编号meiint4否煤gangint4否钢yunnvarchar50否运行状况[date]datetime8否发布日期weeknvarchar50否周jinvarchar50否转化日期[month]nvarchar50否月[year]nvarchar50否年（3）renshi（个人信息表）个人信息表主要用于保存用户的详细信息。该数据表的结构如表B.3所示表B.3表renshi结构字段名数据类型长度主键否描述idint4否自动编号namenvarchar50否用户名称agenvarchar50否年龄[year]smalldatetime4否出生年月日xuelinvarchar50否学历schoolnvarchar50否毕业学校telnvarchar50否联系电话emailnvarchar50否电子邮件jiguannvarchar50否籍惯addressnvarchar50否通讯地址zhiwunvarchar50否现任职位[time]smalldatetim4否入档日期（4）lianli（名片表）名片表主要用于保存联系人的信息。该数据表的结构如表B.4所示。表B.4表lianli结构字段名数据类型长度主键否描述idint4否自动编号lanmuint4否名片夹类型namenvarchar50否姓名telnva