<% End If %>
修改发文进行修改所涉及到的程序代码如下 <% call case1 '验证用户身份,此时调用inc/yan.asp文件,select case1
set rs1=server.CreateObject(\sql1=\rs1.open sql1,conn,1,1
session(\
if rs1(\ '判断是否已审核
if request(\ '判断是否已接收表单的值 call wri end if
function wri if request(\判断是否接收到值
set rs=server.CreateObject(\
sql=\ '通过session(\查找相关记录 rs.open sql,conn,1,3 '打开记录集
rs(\ '接收添加的标题
rs(\ '接收添加的内容 rs(\ '获取当前系统日期和时间 rs.update
rs.close
response.Redirect(\ '跳转到发文修改成功页面
else
response.Write(\请把信息填写完整')\end if
end function
if request(\
response.Redirect(\ end if
%>
批示管理页面的运行结果如图9所示。
图9 批示管理页面的运行结果
– 13 –
6.4 会议管理模块设计
会议管理主要包括会议修改、会议删除、会议发布3部分。当用户单击会议标题超链接时，进入相关的会议信息详细页面，可对会议的详细信息进行浏览。
会议管理页面的设计效果如图10所示。
图10 会议管理页面设计效果
会议管理页面所涉及到的程序代码如下： <% call case2 '验证用户身份，此时调用inc/yan.asp文件中select case2
if request(\ '判断是否接收到值 call del end if
function del
sql2=\ conn.Execute(sql2) '通过execute执行sql2语句 end function %> <%
set rs=server.CreateObject(\sql=\
rs.open sql,conn,1,1%>
'调用删除
会议功能模块
会议管理页面的运行结果如图11所示。
图11 会议管理页面运行结果
在会议管理页面，单击“修改”超链接，进入会议信息修改页面后，用户可以对会议的标题、内容进行修改。只有当用户有修改权限时，才可以对会议的相关信息进行修改。会议修改页面的设
– 14 –
计效果如图12所示。
图12 会议修改页面的设计效果
修改会议所涉及到的程序代码如下： <%
call case2 '验证用户身份此时调用inc/yan.asp文件select case2 if request(\ '判断是否接收到表单值 call wri '通过call语句调用function过程
end if
function wri
if request(\
set rs=server.CreateObject(\sql=\ rs.open sql,conn,1,3
rs(\ '接收进行修改的会议标题 rs(\
rs(\ '接收当前系统日期和时间 rs.update rs.close
response.Redirect(\ else
response.Write(\请把信息填写完整')\ end if end function
if request(\
response.Write(\对不起，您不是管理员！\end if
set rs1=server.CreateObject(\sql1=\
rs1.open sql1,conn,1,1%>
会议发布所涉及到的程序代码如下：
<%
call case2
if request(\判断用户是否有权限发布会议
call wri end if
– 15 –
function wri if request(\ '接收的会议标题、会议内容不允许为空
set rs=server.CreateObject(\sql=\rs.open sql,conn,1,3
rs.AddNew
rs(\ '接收发布会议的标题
rs(\ '接收发布会议的内容 rs(\
rs(\ '获取当前系统日期和时间 rs.update
rs.close
response.Redirect(\
else
response.Write(\('请把信息填写完整')\
end if end function%> 6.5 个人办公管理模块设计
个人办公管理模块主要包括个人活动登记管理、个人活动管理、个人邮件管理、名片夹管理4部分。
1) 个人活动登记管理模块
个人活动登记管理模块主要用于添加个人活动记录。个人活动登记管理页面的设计效果如图13所示。
图13 个人活动登记管理页面的设计效果
个人活动登记管理页面所涉及的相关的程序代码如下： <%
if request(\ '判断是否接收到表单的值
call wrt1 end if
– 16 –
function wrt1
if request(\
response.Write(\请把内容填写完整！')\else
set rs=server.CreateObject(\ sql=\
rs.open sql,conn,1,3
rs.addnew
rs(\ '接收个人活动登记标题 rs(\ '接收个人活动登记内容 rs(\
rs(\ '获取当前系统日期和时间 rs.update rs.close
response.Redirect(\end if
end function %>
个人活动登记管理页面的运行结果如图14所示。
图14 个人活动登记管理页面的运行结果
2) 个人活动管理模块
个人活动管理模块主要包括个人活动信息删除、对提交个人活动信息进行批准、个人活动信息内容的显示3部分。当用户是超级用户时可以对个人活动信息进行批准和删除操作；而普通用户只能对信息进行修改。个人活动管理页面的设计效果如图20所示。
图15 个人活动管理页面的设计效果
– 17 –