免费网上战友录的设计与实现

ffer = True
response.Clear
response.contentType = Session("Type")
response.BinaryWrite Session("Bytes") （获取图片并显示出来）
Session("Type") = ""
Session("Bytes") = ""
response.End %>
管理员模块
同普通用户一样在这里我门首先将进行身份验证。这样它就到guanliyuan表中去查询若有与输入的资料匹配就成功进入界面这里我们将用到了request对象和session对象和response对象及其方法response.write()及respense.redirect()方法vbscript的条件语句和sql的select语句。

图5-9管理员界面

查看用户资料
作为管理员有权限对用户资料进行查看，以便管理。当输入某个部队的名字提交后就可以看到这个部队所有战友资料。如：输入海军就可以看到如图5-10所示的结果：

图5-10查看用户资料

删除用户
当然作为管理员也得有删除用户的权限。如某些用户的登录权限过期，管理员就的得删除他们的一切资料。如图5-11所示

图5-11删除用户界面
当我们以证件号和所在部队为关键字来删除资料。这里也要涉及到denglu 表和海军表。按“删除”后我们就可以从表中看到我们刚刚输入的资料所在的行就被删除了。这样就达到了控制使用系统的权限的功能。
主要程序为：
<% zjid=request("zhenjianid")
banji=request("banji")
*---- 省略连接到数据库*--------
*----删除部分代码为：
set objs=con.execute("delete from denglu where zhenjianid='"&zjid&"'")
set obj=con.execute("delete from "&banji&" where zhenjianid='"&zjid&"'")
%> 这里我们也做了判断若denglu表中没有这资料是要报错的。

部队管理
若某个部队已经不存在管理员就得删除其部队表，界面如图5-12所示

图5-12班级管理界面
执行表操作代码为：
set objs=con.execute("delete from banji where name='"&bname&"'")
set objj=con.Execute("drop table "&bname&"")
删除表时就用到了drop table语句来删除表中所有的内容。

留言薄管理
留言薄作为本系统的主体功能就一定要特别的管理。当然也只有管理员来管理。对于留言薄是传输信息的主要部分，战友主要讨论的信息也是显示在留言薄上所以为了防止不良信息在上面散播，作为管理员就要对那些不良信息进行删除操作。如图4-13所示：

图5-13留言管理界面
这样当我们点击留言薄管理时，界面上就显示了所有的留言。当管理员觉得某些留言不良就可以直接点击右边的删除就可以删除掉与所选内容相同的所有记录都会被删除。而且界面也用到了自动刷新的功能让管理员在第一时间了解到留言记录方便管理。
主要代码为:
<meta http-equiv="refresh"content="10";url=jialiuyanguanli.asp>此句为设置自动刷新。
其中<td><a href="deletenei1.asp?neirong=<%=rs("neirong")%>">删除</a></td>就是当我们点击删除时可以直接的删除的关键句子。当我们点击时就导向deletenei1.asp程序。
<%   neirong=request("neirong")
set con=server.createobject("adodb.connection")
           con.open "dsn=dd;uid=aa;pwd=aa"
con.execute"delete from jiabinliuyan where neirong='"&neirong&"'"
response.redirect("jialiuyanguanli.asp")%>
这里就是在对后台数据库的操作，删除与点击的内容相同的所有记录成功后直接导向前面的网页重新显示留言。嘉宾留言的管理与普通用户相同。
难点及解决方法
图片上传功能的实现
实现图片上传有以下关键步骤：1注册一个上传图片组件，把 LyfUpload.dll这个组件复制到程序盘后，在cmd下运行regsvr32   "C:\LyfUpload.dll"运行成功后就可以在程序中使用这个组件。2用AppendChunk方法对图片字段赋值把图片上传到数据库中。3获取图片并在浏览器端显示出来。
代码中要实现的方法
图片文件要保存到数据库中的时候，不可以直接使用Insert语句对数据库进行操作，而是要使用ADO的 AppendChunk方法，同样的，读出数据库中的图片数据要使用GetChunk方法。最后用BinaryWrite获取图片并在浏览器端显示出来。

结   论
本文简要介绍了典型的B/S体系结构战友录系统功能模块,重点讨论了系统的数据库建设，系统流程图和功能模块的代码分析。目前此系统基本可以实现其功能，在对整个工程进行全面的测试，以不同用户登陆，选择不同的权限的操作，得到正确报错提示。权限控制成功。经测试系统已完成既定的功能但系统仍然有一些不完善的地方例如：比如系统界面不够友好,还有就是论坛的版块太少没有给战友提供更加丰富的内容。这些功能都有待在日后的工作中进一步的完善。
参考文献
[1]邓文渊，陈蕙贞．Asp与网络数据库技术[M]．北京：中国铁道出版社，2005。
[2]方睿，刁仁宏，吴四九．网络数据库原理及应用[M]．四川：四川大学出版社,2005。
[3]李浩，冯永毅．DreamweaverMX应用培训教程[M]．北京：冶金工业出版社，2003。
[4]金林樵．网

首页上一页 3 4 5 6 7 下一页尾页 6/7/7

免费网上战友录的设计与实现(六)