-1所示。
图-1企业网站系统功能模块划分图
2.3.2.系统模块设计
1、用户模块
(1)浏览模块。包括浏览公司首页、公司简介、资格认证、公司新闻、留言板等内容。
(2)发表留言。为用户提供发表留言的功能。
(3)浏览新闻。为用户提供浏览信息新闻的功能。
2、管理模块
(1)管理员登录。管理员要进行管理操作,必须先进行登录。
(2)新闻管理。对新闻进行增加、删除、修改操作。
(3)留言管理。对留言进行删除、修改操作。
(4)产品管理。对产品进行查看、删除操作。
2.3.3.数据库设计
根据系统功能设计的要求以及功能模块的划分,对于系统用户信息数据库,可以列出以下数据项和数据结构。
(1).名称:管理员数据表
标识:admin.
如表1所示,管理员数据表包括id、name和passwd3个字段。
表1
名称
字段名称
类型
主键
非空
数据长度
管理员编号
ID
自动编号
yes
yes
4
管理员登录名
name
文本
no
yes
10
管理员密码
passwd
文本
no
yes
10
(2).名称:新闻发布数据表
标识:news
如表2所示,新闻数据包括id、title、cont和time4个字段。
表2
名称
字段名称
类型
主键
数据长度
非空
新闻编号
id
自动编号
yes
4
yes
新闻标题
title
文本
no
50
yes
新闻内容
cont
注释
no
10000
yes
发布时间
time
日期时间
no
4
yes
(3).名称:留言板数据表
标识:bbs
如表3所示,留言板数据包括id、name、cont、tell、email、time、recont和homepage8个字段。
表3
名称
字段
类型
主键
数据长度
非空
留言编号
id
自动编号
yes
4
yes
留言者姓名
name
文本
no
4
yes
留言内容
cont
注释
no
1000
yes
留言者电话
tell
文本
no
11
yes
留言时间
time
日期时间
no
4
yes
留言者主页
homepage
文本
no
20
yes
留言回复内容
recont
注释
no
1000
yes
留言者Emai
emai
文本
no
20
yes
(4).名称:报名数据表
标识:baoming
如表4所示,报名数据表包括id、name、zhuanye、add、tell和yixiang6个字段。
表4
名称
字段
类型
主键
非空
报名编号
id
自动编号
yes
yes
报名者姓名
name
文本
no
yes
所报专业
zhuanye
文本
no
yes
报名者家庭住址
add
文本
no
yes
报名者电话
tel
文本
no
yes
学习意向
yixiang
文本
no
yes
2.4.详细设计
2.4.1.网站整体设计
图-2网站整体框架
设计要点:
(1)由于网站是在1024*768分辨率环境下做出的,为了适应800*600分辨率,左右部分都留出了适当的距离。
(2)网站banner条和导航条是由Flash效果,是由Macromedia(r)Flash(tm)MX2004做出的。
(3)网页布局进行整体规划,即使用HTML中的table标签
(4)背景颜色设置:
2.4.2.新闻发布系统设计
1、新闻发布系统流程图
图-3新闻发布系统数据流程图
2、news表设计
图-4new表设计图
(1)cont设计成备注类型的这样最多可以容纳65535个字符。
(2)time默认值要设成date(),如图:
图-5设置字段 time
3、后台新闻页面设计
(1)addnews.asp
图-6新闻发布页面
①此页面用来添加新闻,当管理员登录后,点击导航栏中的发布新闻,就可以显示本页。这里用到了超链接和框架:发布新闻;是超链接标签,target=mainframe表示所链接的网页在框架中显示。
②当管理员添加完新闻后,单击确定,通过数据库驱动程序新闻就添加到数据库中,并在显示页面中显示。
(2)editnews.asp
图-7编辑新闻页面
本页是用来确定对哪条新闻进行哪种操作。首先读取所有新闻,然后根据需要向删除(modify.asp)或修改(dellnews.asp)页面传递需要编辑的新闻的编号。
(3)modify.asp
图-8修改新闻页面
通过editnews.asp传递来的新闻编号,显示需要修改的新闻内容。管理员可以对新闻标题和内容进行修改。
(4)dellnews.asp
图-9删除新闻页面
通过editnews.asp传递来的新闻编号,显示需要删除的新闻内容。单击确定实现新闻的删除。
4、显示页面设计
(1)index.asp
①为了保证首页的风格,新闻在首页的显示条目为8条,并且是以时间到续方式来读取的:"SELECT*FROMnewsORDERBY编号DESC"
②单击新闻进入详细新闻界面:"><%=(Recordset1.Fields.Item("title").Value)%>
③向viewnews.asp页面传递新闻编号。
(2)allnews.asp
①显示公司的全部新闻标题
②用到了分页功能,根据页面的布局设置每页为18条
③向viewnews.asp页面传递新闻编号。
(3)viewnews.asp
图-10详细新闻显示页面
接收来自index和allnews页面传递来的新闻编号,显示具体新闻的详细内容。
2.4.3.在线报名系统设计
1、报名系统数据流程图
图-11产品添加系统数据流程图
2、报名系统表设计
图-14在线报名系统数据表
3、产品添加系统前台页面(zxjs.asp)
图-15产品添加页面
想通过网站报名的用户用此页面来填写自己的基本资料,填写好的数据将写入数据库。并在后页面(jieguo.asp)中显示供管理员来查看。
4、产品添加系统后台管理页面
(1)查看产品页面(jieguo.asp)
图-16前台查看页面
①分页显示报名者的记录
②向jieguodell.asp页面传递要删除的报名记录的编号
(2)删除报名页面
图-17后台删除页面
显示通过jieguo.asp传递来的报名编号的报名者的资料,可以对这条记录进行删除。
2.4.4.在线留言系统设计
1、留言系统数据流程图
2、留言系统数据表设计
图-19留言系统数据表
3、显示留言页面(chat/index.asp)
图-20留言系统留言显示页面
①分页显示用户的留言
②链接其它页面
此页面是用户用来发表留言的,在用户填写好留言后,数据将会写入数据库,并在chat/index.asp中显示。
5、留言管理页面
(1)回复留言页面
管理员可以用此页面对客户提出的问题进行回复。
(2)修改留言页面(edit.asp)
图-23留言系统修改留言页面
①修改编号为由index.asp(管理员)传递来的新闻
②管理员可以通过此页面对留言中存在的一些基本的错误进行修改。
(3)删除留言(del.asp)
①删除编号为由index.asp(管理员)传递来的新闻。
②删除过时留言或恶意留言内容。
2.4.5.网页关键代码:
1、数据库连接
使用ODBC驱动程序对数据库创建连接
<%
DimMM_xxnew_STRING
MM_xxnew_STRING="Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&server.mappath("db/xxnews.mdb")
%>
2、登录检验代码:
管理员登录后建立session变量
Session("admin")=username
权限的合法验证
<%
FunctioncheckPermission()
IfSession("admin")<>""then
checkPermission=TRUE
Else
checkPermission=FALSE
Endif
EndFunction
tmpadmin=checkPermission()
Iftmpadmin<>TRUEthen
response.redirect"login.asp?"/如果不能通过验证,转到页面longin.asp
Endif
%>
3、创建记录集代码:
<%
DimRecordset1
DimRecordset1_numRows
SetRecordset1=Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection=MM_xxnew_STRING
Recordset1.Source="SELECT*FROMnewsORDERBYidDESC"
Recordset1.CursorType=0
Recordset1.CursorLocation=2
Recordset1.LockType=1
Recordset1.Open()
Recordset1_numRows=0
%>
添加代码:
Recordset1.addnew
Recordset1("title")=title
Recordset1("content")=content
Recordset1.update
更新代码:
sql="updatefromVotewhereID="传递来的参数""
conn.Executesql
删除代码:
sql="deletefromVotewhereID="传递来的参数""
conn.Executesql
4、关闭记录集
<%
Recordset1.Close()
SetRecordset1=Nothing
%>
5、分页显示代码:
<%
DimRepeat1__numRows
DimRepeat1__index
Repeat1__numRows=3
Repeat1__index=0
Recordset1_numRows=Recordset1_numRows+Repeat1__numRows
%>
<%IfRecordset1.EOFAndRecordset1.BOFThen%>
暂时没有提交信息!
<%EndIf%>
<%While((Repeat1__numRows<>0)AND(NOTRecordset1.EOF))%>
<%IfNotRecordset1.EOFOrNotRecordset1.BOFThen%>
要显示的内容部分.........
<%EndIf%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
目前共有<%=Recordset1.RecordCount%>条记录
从第<%=(Recordset1_first)%>条到第<%=(Recordset1_last)%>条
">第一页
">前一页
">后一页
">最后一页
6、包含文件代码:
通过包含文件可以方便的对网
上一篇:
ASP公交查询系统(论文和程序)
下一篇:
试析影响公路路面平整度的因素及应采取的施工措施