书签 分享 收藏 举报 版权申诉 / 53

类型《办公自动化管理系统》论文.docx

  • 文档编号:13551285
  • 上传时间:2023-06-15
  • 格式:DOCX
  • 页数:53
  • 大小:520.32KB

<%=rs("sname")%>

<%=rs("time")%>

<%rs.movenext

ifrs.eofthenexitfor'如果记录集为空,跳出循环

next

else

response.Write("暂无信息")

endif

rs.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")'跳转到指定的动态页

else

response.Write("alert('请把信息填写完整')")

endif

endfunction%>

除了发布发文功能同时也设置了删除发文的功能,单击“删除”超链接将删除指定的发文信息。

发文删除的程序代码如下:

<%

ifrequest("del")<>""then'判断接收的del值不能等于空

calldel

endif

functiondel

sql2="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'打开记录集

%>

del=<%=rs("id")%>&p=<%=requestpage%>>删除

发文删除页面的运行结果如图7所示。

图7发文删除页面的运行结果

6.3批示管理模块设计

批示管理主要包括发文批示、发文修改、发文删除,只有当用户是超级用户才有权限进行批示管理,普通用户没有此权限。

当审批之后,发文在收文管理页面中才能够显示出来。

批示管理页面的设计效果如图8所示。

图8批示管理页面设计效果

批示管理页

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
办公自动化管理系统 办公自动化 管理 系统 论文
提示  冰点文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:《办公自动化管理系统》论文.docx
链接地址:https://www.bingdoc.com/p-13551285.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2


收起
展开