username=trim(request(\ '应用Trim函数去掉左右空格符 password=trim(request(\
for i=1 to len(username) '应用len函数计算出用户名的长度
user=mid(username,i,1) '判断用户名中是否含有非法字符
if user=\ response.write \您的用户名含有非法字符,请重新输入！');\
response.end end if
next
for i=1 to len(password) '判断用户密码中是否含有非法字符
pass=mid(password,i,1)
if pass=\
response.write \您的密码含有非法字符,请重
新输入！');\
response.end
end if next
%>
<% set rs=server.createobject(\
sql=\rs.open sql,conn,1,3
if rs.eof then '判断输入的用户名、密码或验证码是否正确
response.write \
本软件建议您使用IE6.0以上版本，分辨率：1024*768
否则一切后果与本软件无关，特此声明！\
else
session(\ '创建session阶段变量 response.Redirect(\ '跳转到指定的动态页 end if
rs.close
set rs=nothing
conn.close '关闭已打开的记录集
set conn=nothing '将不用的对象释放掉 end if
end if%>
系统登录页面的运行结果如图5所示。
– 8 –
图5 系统登录页面的运行结果
6 日常管理模块设计
日常管理模块主要包括收文管理、发文管理、批示管理、会议管理、个人办公管理5部分。 6.1 收文管理模块设计
收文管理主要用于显示发文人、审批人、发文日期、发文标题，通过单击“发文标题”超链接，可以打开收文的详细信息页面。收文信息以分页形式进行显示。收文管理页面的设计效果如图6所示。
图6 收文管理页面的设计效果
收文管理页面所涉及到的程序代码如下： <%
set rs=server.CreateObject(\ %>
<%
if not rs.eof then
tel=rs.recordcount '获取记录集的总数
shum=15
rs.pagesize=shum
maxpage=rs.pagecount '获取最大页面码值 requestpage=clng(request(\
if requestpage=\ requestpage=1 '设置默认值
– 9 –
sql=\rs.open sql,conn,1,1
end if
if requestpage>maxpage then requestpage=maxpage
end if
if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize end if
for i=1 to rs.pagesize and not rs.eof %>
width=510,height=500')\
<% rs.movenext
if rs.eof then exit for '如果记录集为空，跳出循环 next
else
response.Write(\暂无信息\
%>
end if rs.close
6.2 发文管理模块设计
发文管理主要包括发布发文、发文删除两部分。
发布发文管理的相关程序代码如下： <% if request(\ '判断表单是否提交 空
– 10 –
call wri '调用wri自定义函数 end if
function wri
if request(\ '判断发文的标题、内容是否为
set rs=server.CreateObject(\sql=\
rs.open sql,conn,1,3 '打开记录集 rs.AddNew
rs(\
rs(\rs(\
rs(\ '添加发文属于未审核
rs(\ '根据计算机系统设定的日期和时间返回当前的日期和时间值
rs.update
rs.close
response.Redirect(\ '跳转到指定的动态页
else
response.Write(\请把信息填写完整')\
end if end function%>
除了发布发文功能同时也设置了删除发文的功能，单击“删除”超链接将删除指定的发文信息。发文删除的程序代码如下：
<%
if request(\ '判断接收的del值不能等于空 call del end if
function del
sql2=\
conn.Execute(sql2) '执行sql2语句 end function %> <%
set rs=server.CreateObject(\
sql=\
rs.open sql,conn,1,1 '打开记录集
%>
发文删除页面的运行结果如图7所示。
图7 发文删除页面的运行结果
6.3 批示管理模块设计
批示管理主要包括发文批示、发文修改、发文删除，只有当用户是超级用户才有权限进行批示管理，普通用户没有此权限。当审批之后，发文在收文管理页面中才能够显示出来。批示管理页面的设计效果如图8所示。
– 11 –
图8 批示管理页面设计效果
批示管理页面所涉及到的程序代码如下： <% call case1 if request(\ '判断用户是否有权限删除发文
call del end if function del sql2=\ conn.Execute(sql2) '执行sql2语句
end function
if request(\ '判断用户是否有权限进行审核
call up end if
function up
set rs1=server.CreateObject(\
sql1=\rs1.open sql1,conn,1,3
rs1(\ '是否审核
rs1(\ '获取操作用户名 rs1.update rs1.close
end function %>
<% set rs=server.CreateObject(\ sql=\ '将所有记录进行降序排列
rs.open sql,conn,1,1 %>
<%if rs(\ 已审核
<% End If %>
<%if rs(\
onClick=\确定审核吗？')\审核 '通过鼠标单击事件实现弹出提示框
– 12 –