web课程设计报告Word格式.docx

资源描述

web课程设计报告Word格式.docx

《web课程设计报告Word格式.docx》由会员分享，可在线阅读，更多相关《web课程设计报告Word格式.docx（16页珍藏版）》请在冰豆网上搜索。

web课程设计报告Word格式.docx

新用户注册同样也需要填写这些信息，然后利用数据库连接技术将新用户的信息写入数据库。

2、主页功能

主页主要是一个网站导航的作用，可以由主页可以进入相应的子系统，主页主体部分可以用来展示一些班级有新鲜事，风采等最近更新的内容，同时也可以加入一些友情链接，以及统计网站访问次数，如：

从网站可以进入班级新闻阅读、用户注册等。

3、班级新闻和公告栏

该页面主要适用于记录板上的新鲜事，提供班级新闻阅读，同时也可由该页面进入其他相应的功能，进入相应的页面；

公告栏主要用于通知班上的一些事情，也可公布一些教务信息等。

4、班级介绍、音乐赏析、班级风采展示板块

此三个页面可以制作成静态页面，可以将班级基本信息、专业介绍等信息写入班级介绍页面，音乐赏析可以由管理员上传一些音乐提供在线播放的功能，班级风采展示主要是展示一些班级活动照片的展示

5、在线留言系统

该板块主要是为班上的一个交流平台，其功能包括查看历史留言，发表新的留言，该板块同样需要用到数据库链接技术，数据库中保存留言表，存放留言信息（包括留言者姓名、留言内容、留言时间）。

6、后台管理系统

主要用于管理整个班级网站的整个系统，包括对与各版块的页面处理，后台管理包括一个

1.5运行坏境配置

本网页主要基于windowsXP的操作系统，安装IIs，MacromediaDreamweaver、MacromediaFireworks、MacromediaFlash的运行坏境

二、概要设计

2.1功能的定义

本系统是利用Dreamweaver为运行工具，IIS为运行环境，利用HTML、VBSCRIPT语言和JAVASCRIPT语言设计而成。

在浏览器中将做好的班级主页打开，绿色为主的界面，给人清新舒适的感觉，班级简介，班级活动剪影，班级动态，学校新闻加上友情链接，布局合理，内容充实。

2.2整体网站流程图

图1网站结构图

2.3在线留言流程图

2.4登录流程图

重新登录

2.5信息查询流程图

2.5新闻阅读流程图

三、数据库设计

3.1数据库需求分析

1、User数据库数据项和数据结构如下：

（1）user表：

（Name，sex，birthday，address，password）

（2）Guestbook表：

留言者姓名，留言者时间和留言内容

（3）admin表：

管理员登录的用户名和密码

（4）news表：

新闻题目、新闻ID

2、photo数据库的数据项和结构

Guest表包括一个自动编号ID和pic两个字段

3.2数据库表的设计

User表主要是记录用户的信息，包括用户的基本信息和登录时的密码，其各个字段如下表所示

字段名

数据类型

长度

Name

文本

sex

Birthday

Address

Password

留言表包括了留言者姓名、留言内容，留言时间三个字段，各个字段如下表所示

Time

时间/日期

content

255

管理员表包括了两个字段，登录时的用户名和登录密码，其结构如下表所示

password

新闻内容表包括新闻题目、新闻ID、和新闻内容，其结构如下表所示

类型

自动编号

Title

Photo数据库的guest表的结构

pic

备注

四、详细设计

4.1界面

登陆成功后

班级风采

班级新闻

后台管理界面

新闻管理插入新闻

新闻删除界面

4.2数据库连接文件conn的源代码如下所示

DimConn,rs'

定义变量

SetConn=Server.CreateObject（"

ADODB.Connection"

）'

建立数据库连接对象

setrs=Server.CreateObject（"

ADODB.Recordset"

建立记录集对象

Conn.open"

driver={MicrosoftAccessDriver（*.mdb）};

dbq="

SERVER.MapPath（"

user.mdb"

）

打开数据库文件news..mdb

4.3在线留言

1、在线留言界面

2、在线留言.asp的关键代码

IfRequest.Form（"

task"

）="

insert"

Then

xm=Request.Form（"

xm"

sj=Now（）

IfRequest.Form（"

lyq"

Response.Write"

tableborder=0align=center>

tr>

td>

留言不能为空！

/td>

/tr>

/table>

Response.End

Else

ly=Request.Form（"

EndIf

SQLstr="

InsertIntoGuestBook（name,content）Values（'

xm&

ly&

）"

Conn.ExecuteSQLstr

EndIf

SQLstr="

Select*FromGuestBookOrderBytimeDESC"

SetRS=Conn.Execute（SQLstr）

divalign="

center"

class="

STYLE5"

历史留言<

/div>

DoWhileNotRS.EOF

tablewidth="

754"

border=0align=center>

td>

divclass="

%=RS（"

time"

）&

rs（"

name"

said:

%=rs（"

content"

）%>

hrclass="

width="

rs.MoveNext

Loop

rs.Close

Conn.Close

SetConn=Nothing%>

4.4注册用户的关键代码

注册处理的registe_result.asp的关键代码

%ifrequest.Form（"

）="

then

用户名不能为空，请<

ahref="

重新填<

/a>

else

name=request.form（"

password=Request.Form（"

password"

birthday=request.form（"

birthday"

address=request.form（"

address"

sex=request.form（"

sex"

ifrequest.Form（"

）<

request.Form（"

passwordOK"

）Then%>

密码不一致请重新<

输入<

%Elsesetrs=Conn.Execute（"

select*fromuserwherename='

+name+"

ifnotrs.EOFthen%>

该用户已经被注册，请你重新<

输入新的用户名<

%else

Conn.Execute（"

InsertIntouser（name,password,address,birthday,sex）Values（'

name&

password&

address&

birthday&

sex&

rs.Close

Conn.Close%>

注册成功<

/br>

姓名：

%response.writename&

性别：

%response.writesex&

生日：

%response.writebirthday&

地址：

%response.writeaddress&

现在就去<

userlogin.asp"

吧

%endif

Endif

endif%>

4.5查询信息板块

1、查询界面

2、查询信息.asp关键源码

%ifrequest.Form（"

setrs=nothing

Setrs=Conn.execute（"

select*fromuser"

dowhilenotrs.eof

姓名：

）&

性别：

生日：

rs（"

家庭住址：

hralign="

STYLE1"

rs.Movenextloop

elsename=request.Form（"

select*fromuserwherenamelike'

name&

ifnotrs.eofThen

%else

response.Write"

没有找到你要查询的信息"

br>

endif

Conn.Close

setConn=nothing%>

4.6新闻版块

1、新闻列表主要代码

%setrs=Conn.execute（"

select*fromnewsorderbyidDESC"

dowhilenotrs.eof%>

tdwidth="

854"

height="

22"

align="

left"

valign="

top"

nzcms_end"

新闻\新闻阅读.asp?

id=<

id"

%response.writers（"

）%>

rs.movenext

loop%>

2、新闻管理代码

插入新闻

title"

name=request.Form（"

content=request.Form（"

Conn.execute（"

insertintonews（name）values（'

setrs=Conn.execute（"

select*fromnewswherenamelike'

number=CStr（rs（"

））

setobj=server.createobject（"

scripting.filesystemobject"

）

id="

../新闻/"

+number

id=id+"

.txt"

ph=Server.MapPath（id）

obj.createtextfileph,true

setfc=obj.OpenTextFile（ph,2,true）

fc.WriteLine（content）

fc.Close

response.write"

插入成功"

manage.asp"

返回主页面<

%elseresponse.write"

不能为空"

插入新闻.asp"

返回重新插入<

%endif

Conn.close

setrs=nothing%>

删除新闻

%nb=CLng（request.Form（"

number"

select*fromnewswhereidlike'

nb&

ifnotrs.eofthen

obj.deletefileph

setrs=Conn.execute（"

deletefromnewswhereidlike'

删除成功"

elseresponse.Write"

没有找到相应的新闻id号"

新闻管理界面.asp"

返回<

4.7班级相册

80"

border="

cellpadding="

cellspacing="

exec="

select*fromguest"

setM=server.createobject（"

adodb.recordset"

M.openexec,conn,1,1

ifnotM.eofthen

mypage=request（"

whichpage"

ifmypage="

then

mypage=1else

mypage=cint（mypage）endif

mypagesize=request（"

pagesize"

ifmypagesize="

mypagesize=6endif

M.movefirst

M.pagesize=mypagesize

maxcount=cint（M.pagecount）

M.absolutepage=mypage

how=1

y=M.pagecount

d=M.recordcount

Response.Write"

divalign='

center'

IMGsrc='

images/xx2.gif'

%a=a+1

dowhilenotM.eofandhow<

=M.pagesize%>

tableborder="

bgcolor="

#FFFFFF"

tdalign="

middle"

IMGsrc="

img.asp?

src=<

%=M（"

pic"

border=0class="

60"

style="

cursor:

pointer"

onClick="

zoom（this,'

valign="

%response.writeleft（M（"

）,10）%>

%iflen（M（"

））>

10then%>

...<

%endif%>

ifamod3=0then

response.Write"

endif

M.movenexthow=how+1a=a+1loop%>

总结

两周的课程设计结束了，这两周我学到了很多的东西，更加深入的了解了asp编程技术，对网站技术有了更深一层的认识。

通过对该班级网站系统的设计与实现，使我们将所学的知识灵活的运用起来，增强了对数据库应用方面的理解，积累了不少经验。

。

学会了如何设计数据库，如何利用面向对象语言对数据库进行编程，如何实现数据库与开发相应程序的连接问题。

为以后数据库开发打下了坚实的基础，同时也积累了很多处理网站编程的问题，更加深层次的理解和掌握了数据库技术和asp编程技术，在该系统设计过程中，对数据库设计理念及思想上有更高的认识。

六、参考文献

[1]李世杰ActiveServerPages（ASP）3.0网页设计手册北京:

清华大学出版社1999

[2]前沿电脑图像工作室巧学巧用Dreamweaver、Fireworks、Flash制作网页北京:

人民邮电出版社

[3]ASP入门与实例演练薄小志编著中国青年出版社

[

展开阅读全文