当用户为超级用户时可以批准发文、删除发文。个人活动管理页面超级用户时所涉及到的相关程序代码如下：
<%
if request(\ then '判断是否接收到表单的值
call geren
end if
function geren
set rs2=server.CreateObject(\
sql2=\rs2.open sql2,conn,1,3
rs2(\
rs2(\ '接收批准用户名 rs2.update rs2.close
end function
if request(\ '接收删除的值不能为空 call del end if
function del
sql2=\ '删除指定记录
conn.Execute(sql2) end function %>
<% set rs=server.CreateObject(\ sql=\ '将个人活动信息进行降序排列 rs.open sql,conn,1,1 %>
当用户为普通用户时只可以修改发文。个人活动管理页面普通用户时所涉及到的相关程序代码如下：
<% set rs1=server.CreateObject(\
sql1=\rs1.open sql1,conn,1,1
session(\ '建立session(\
if request(\ '判断表单是否提交
call wri
end if function wri
if request(\接收的标题、内容不允许为空
– 18 –
set rs=server.CreateObject(\
sql=\rs.open sql,conn,1,3
rs(\ '接收修改发文标题
rs(\接收修改发文内容 rs(\ '接收修改用户名 rs(\ '获取当前系统日期和时间
rs.update
rs.close '关闭已打开的记录集
response.Redirect(\ '跳转到指定的动态页面
else
response.Write(\请把信息填写完整')\end if
end function %>
个人活动管理页面的运行结果，如图16所示。
图16 个人活动管理页面的运行结果
3) 个人邮件管理模块
个人邮件管理模块主要包括个人邮件删除、写邮件、邮件阅读（当邮件被阅读之后，“NEW”标识将会消失）。个人邮件管理页面的设计效果如图17所示。
图17 个人邮件管理页面的设计效果
个人邮件管理页面所涉及到的程序代码如下： <% tel=0 '设置默认值 if request(\ '判断接收的值不允许为空 call del '通过call语句调用del模块
end if
function del
sql2=\ '判断删除指定的记录 conn.Execute(sql2) end function
– 19 –
set rs3=server.CreateObject(\
sql3=\desc\
rs3.open sql3,conn,1,1 cou=rs3.recordcount
set rs=server.CreateObject(\
sql=\rs.open sql,conn,1,1 %>
<%if rs(\
个人邮件管理页面中对邮件的总数进行了统计，统计邮件总数所涉及到的程序代码如下所示： <%
if not rs.eof then tel=rs.recordcount
set rs3=server.CreateObject(\'用于计算新邮件的数量
sql3=\
time desc\
rs3.open sql3,conn,1,1
cou=rs3.recordcount %>
共有 个人邮件管理页面中，单击“写邮件”超链接进入写邮件页面。写邮件页面所涉及到的程序代码如下： <% if request(\ '判断是否接收到表单的值 call wrt1 end if function wrt1 if request(\判断接收邮件的标题、内容不能为空 response.Write(\请把内容填写完整！')\else set rs=server.CreateObject(\sql=\ rs.open sql,conn,1,3 rs.addnew '通过addnew()方法向数据库中添加记录 rs(\ '接收添加邮件标题 rs(\接收添加邮件内容 rs(\ rs(\ '接收添加邮件用户名 rs(\ '获取当前系统日期和时间 – 20 – rs.update rs.close '关闭已打开的记录集 response.Redirect(\ end if end function%> 个人邮件管理页面的运行结果如图18所示。 图18 个人邮件管理页面的运行结果 4) 名片夹管理模块设计 名片夹管理模块主要用于添加名片夹、修改名片夹、删除名片夹、添加名片夹详细信息、名片夹详细信息显示、名片夹详细信息修改、名片夹详细信息删除7部分。 在名片夹管理页面，单击“添加”按钮，添加名片夹名称。添加名片夹名称页面的设计效果如图19所示。 图19 添加名片夹名称页面的设计效果 添加名片夹名称页面所涉及到的程序代码如下： <% if request(\ '判断是否接收到表单值 call w end if function w if request(\ response.Write(\名片夹不能为空')>\else set rs=server.CreateObject(\ sql=\ rs.open sql,conn,1,3 rs.addnew – 21 – rs(\ '添加名片夹名称 rs(\rs.update rs.close '关闭已打开的记录集 response.Redirect(\ '跳转到指定页面 end if end function%> 在名片夹管理页面，单击名片信息的“添加”按钮，添加名片的详细信息。添加名片详细信息页面主要用于添加姓名、电话、地址、QQ、email等信息。添加名片详细信息页面的设计效果如图20所示。 图20 添加名片详细信息页面的设计效果 添加名片详细信息的程序代码如下： <% if request(\ call www end if function www Email=request(\ if request(\ request(\ request(\request(\ response.Write(\请把信息填写完整！');location='javascript:history.go(-1)'\ elseIf Instr(Email, \ response.write \请检查您的邮件地址是否正确！');\ – 22 – Response.End else set rs1=server.CreateObject(\ sql1=\ rs1.open sql1,conn,1,3 rs1.addnew rs1(\