web本科学生综合性实验报告.docx

web本科学生综合性实验报告.docx

《web本科学生综合性实验报告.docx》由会员分享，可在线阅读，更多相关《web本科学生综合性实验报告.docx（22页珍藏版）》请在冰豆网上搜索。

web本科学生综合性实验报告

本科学生综合性实验报告

学号姓名

学院专业、班级

实验课程名称web应用技术

教师及职称

开课学期至学年学期

填报时间年月日

云南师范大学教务处编印

实验序号

实验七

实验名称

综合性实验设计

实验时间

实验室

1．实验目的

掌握建立一个B/S系统的所需要知识；

如：

HTML，css，ajax

选：

asp和和PHP其中一种。

本实验选择asp进行设计

2．实验原理、实验流程或装置示意图

实验原理：

B/S系统的设计与建立

实验流程：

首先思考本系统具有哪些功能？

——>论坛功能和私信功能——>主要用到增删改查，数据库的连接，数据的传递，输入，输出

再思考数据库具有哪些信息和联系？

——>用户表，friend表，帖子表，私信表

最后进行程序的一个编写：

1）首先是登录，注册界面的设计和与数据库的联系；

2）然后是主界面也开始设计；

3）用链接的形式，链接具有功能的文件；

装置示意图：

本实验用到装置：

IIS服务器，AdobeDreamweaverCS6，sql2005数据库

3．实验设备及材料

实验材料：

老师的实例

实验设备：

装有所有装置的电脑一台

一．实验设计方案

4．实验方法步骤及注意事项

思考：

1、——>论坛功能和私信功能——>主要用到增删改查，数据库的连接，数据的传递，输入，输出。

2、建立数据库：

数据库中：

users表中：

sixin:

为此用户当前的未读私信数；

Tiezishu:

为此用户当前的帖子数；

Shenfen:

用以表示此用户为用户还是二级管理员还是系统管理员（0,1,2）

Zt:

表示此用户当前是否被禁止（0stop1open）

Invitation表中：

Stata：

表示此帖子是公开还是私密（所有人都可访问，还是只能好友访问）

Myself：

表示帖子的从属状态（1，代表我是发帖人，2，我是回帖人）

Leibie:

此帖子属于哪一类别

Friends表中：

Friend是name的好友：

是一个单向的关系

Othername:

则是name对friend的一个备注

Message表中：

Is-read：

表示此私信，是否已被好友阅读；

3、编写asp文件：

1）首先是用户的登录注册文件：

主要使用数据库的查询和添加

其中包含4个文件：

重点内容为：

数据库链接和执行语句：

例如：

注册文件：

通过表单接收消息

<%

dimlogin_name

dimpwd

dimportrait

login_name=request.Form（"login_name"）

pwd=request.Form（"pwd"）

portrait=request.Form（"portrait"）

dimcn

dimconStr

'创建连接对象

setcn=Server.CreateObject（"ADODB.Connection"）

'设置连接参数（连接字符串）

conStr="Provider=SQLOLEDB;DataSource=localhost;InitialCatalog=luntan;uid=sa;pwd=1234"

'打开连接

cn.OpenconStr

'业务处理

dimreturns

returns=cn.Execute（"insertintousers（login_name,pwd,portrait,sixin,tiezishu,shenfen,zt）values（'"&login_name&"','"&pwd&"','"&portrait&"',0,0,0,1）"）

'关闭连接

cn.Close

'释放资源

setcn=nothing

%>

2）首先思考发帖功能：

是向帖子表中插入一条数据：

首先是通过表单——>传值给另一文件——>添加到数据库中

<%

dimcontent

dimstata

dimtitle

dimleibie

dimsendtime

dimhaha

'获得参数

content=Request.Form（"content"）

title=Request.Form（"title"）

stata=Request.Form（"stata"）

leibie=Request.Form（"leibie"）

sendtime=now（）

'创建链接对象

setcn=Server.CreateObject（"ADODB.Connection"）

'设置连接参数

'打开数据库连接

cn.Open"Provider=SQLOLEDB;DataSource=localhost;InitialCatalog=luntan;uid=sa;pwd=1234"

'执行插入

setrs=cn.Execute（"insertintoinvitation（title,author,stata,sendtime,content,myself,leibie）values（'"&title&"','"&Session（"name"）&"','"&stata&"','"&sendtime&"','"&content&"',1,'"&leibie&"'）"）

cn.close

setcn=nothing

%>

3）再思考对帖子的操作：

有增删改查。

此处有6个文件

增加和发帖相似就不细说；

删除通过，页面链接传递ID，对ID定位，进行删除语句：

<%

dimid

'获得参数

id=Request.QueryString（"id"）

'创建链接对象

setcn=Server.CreateObject（"ADODB.Connection"）

'设置连接参数

'打开数据库连接

cn.Open"Provider=SQLOLEDB;DataSource=localhost;InitialCatalog=luntan;uid=sa;pwd=1234"

'执行插入

cn.Execute（"deletefrominvitationwhereid="&id）

cn.close

setcn=nothing

response.redirect（request.ServerVariables（"HTTP_REFERER"））

%>

修改：

两个文件，第一个接受修改的信息，第二个将收到的信息填入数据库中

查询：

则是通过发帖人，查询帖子表里面的内容：

<%

dimcn

dimconStr

dimleibie

leibie=Request.QueryString（"leibie"）

'

setcn=Server.CreateObject（"ADODB.Connection"）

'

conStr="Provider=SQLOLEDB;DataSource=localhost;InitialCatalog=luntan;uid=sa;pwd=1234"

'cn.OpenconStr

'

dimrs

setrs=cn.Execute（"select*frominvitationwhereauthor='"&Session（"name"）&"'andleibie='"&leibie&"'andmyself=1"）

dowhile（notrs.eof）

%>

title=<%=rs（"title"）%>"><%=rs（"title"）%>[类型:

<%=rs（"leibie"）%>     <%=rs（"sendtime"）%>]

<%

ifsession（"name"）<>""then

%>

id=<%=rs（"id"）%>">删除

id=<%=rs（"id"）%>">修改

<%

endif

%>

<%

rs.MoveNext

loop

rs.close

cn.close

setrs=nothing

setcn=nothing

%>

此处输出为一个重点：

<%=rs（"title"）%>，并且为它们添加了css属性

4）对帖子我们需要访问，需要回帖，回复功能

回帖：

是针对发帖人的回复，并在帖子表里加入一条信息

回复：

是对其它回帖人进行的回复，同样在帖子表里加入一条信息

其代码存在相似和差异处：

<%

dimcontent

dimtitle

dimsendtime

dimleibie

'content=Request.Form（"content"）

title=Request.Form（"title"）

leibie=Request.Form（"leibie"）

sendtime=now（）

'setcn=Server.CreateObject（"ADODB.Connection"）

'

cn.Open"Provider=SQLOLEDB;DataSource=localhost;InitialCatalog=luntan;uid=sa;pwd=1234"

'鎵ц鎻掑叆

setrs=cn.Execute（"insertintoinvitation（title,author,stata,sendtime,content,myself,leibie）values（'"&title&"','"&Session（"name"）&"',1,'"&sendtime&"','"&content&"',2,'"&leibie&"'）"）

cn.close

setcn=nothing

%>

回帖

<%

dimcontent

dimtitle

dimsendtime

dimleibie

dimreserve

content=Request.Form（"content"）

title=Request.Form（"title"）

leibie=Request.Form（"leibie"）

reserve=Request.Form（"reserve"）

sendtime=now（）

setcn=Server.CreateObject（"ADODB.Connection"）

cn.Open"Provider=SQLOLEDB;DataSource=localhost;InitialCatalog=luntan;uid=sa;pwd=1234"

setrs=cn.Execute（"insertintoinvitation（title,author,stata,sendtime,content,myself,leibie,reserve）values（'"&title&"','"&Session（"name"）&"',1,'"&sendtime&"','"&content&"',2,'"&leibie&"','"&reserve&"'）"）

cn.close

setcn=nothing

%>

回复

回复相对于回帖有了一个，接收方；

5）思考私信的实现:

首先成为好友关系，发送私信的文件，查看私信，回复私信，删除私信，修改私信

好友关系：

相当于将一个用户名，添加入好友表中的friend列

我们主要解释一下回复私信，实现一个例如qq聊天界面的程序：

<%

dimcn

dimconStr

dimreceiver

'我发给的好友

receiver=Request.QueryString（"receiver"）

setcn=Server.CreateObject（"ADODB.Connection"）

conStr="Provider=SQLOLEDB;DataSource=localhost;InitialCatalog=luntan;uid=sa;pwd=1234"

cn.OpenconStr

dimrs

setrs=cn.Execute（"select*frommessagewherereceiver='"&receiver&"'andsender='"&Session（"name"）&"'orsender='"&receiver&"'andreceiver='"&Session（"name"）&"'"）

%>

<%

ifrs（"sender"）<>Session（"name"）then

%>

与好友：

<%=rs（"sender"）%>聊天

50px;"href="updateothername.asp?

friend=<%=rs（"sender"）%>">（修改备注）

<%

else%>

与好友：

<%=rs（"receiver"）%>聊天

50px;"href="updateothername.asp?

friend=<%=rs（"receiver"）%>">（修改备注）

<%

endif

%>

<%

dowhile（notrs.eof）

ifrs（"sender"）<>Session（"name"）then

'Response.Write（rs（"sname"）&""&rs（"content"）&"
"）

Response.Write（"
"&"好友"&rs（"sender"）&""&rs（"sendtime"）&"发送私信：

"&"
"&"
"&rs（"message"）&"
"&"
"）

%>

<%

else

%>

600px;">

<%Response.Write（"我给好友"&rs（"receiver"）&""&rs（"sendtime"）&"发送私信：

"&"
"&"
"&rs（"message"）&"
"&"
"）

%>

id=<%=rs（"id"）%>">撤销

<%

endif

%>

<%

'endifxiugaizhong原无A2

rs.MoveNext

loop

%>

<%'关闭连接

cn.Close

'释放资源

setcn=nothing

%>

<%

'dimcm

'dimconStrm

'我发给的好友

'dimreceive

'我发给的好友

'receive=Request.QueryString（"receiver"）

'setcn=Server.CreateObject（"ADODB.Connection"）

conStr="Provider=SQLOLEDB;DataSource=localhost;InitialCatalog=luntan;uid=sa;pwd=1234"

cn.OpenconStr

'dimrs

setrs=cn.Execute（"select*frommessagewherereceiver='"&receiver&"'"）

%>

right;margin:

50px;font-size:

20px;">

id=<%=rs（"id"）%>">回复好友