基于B S架构的班级网站设计与实现--ASP课程设计

基于B S架构的班级网站设计与实现--ASP课程设计

ASP课程设计

实验报告

项目名称：基于B/S架构的班级网站设计与实现参与成员：

学号：

联系电话：

日期： 2010-11-02

一、前言

ASP（Active Server Pages）活动服务器页面，基于微软公司的服务器IIS的统一环境，是Microsoft的一种技术，它起一种编程语言的作用，利用它编写动态产生网页的HTML程序代码。

ASP可以使用两种脚本语言：VBScript和Jscript(所谓的Jscript 语言就是微软件版本的JavaScript语言)，但主要使用VBScript。这些脚本可以执行应用程序逻辑，并能够用ActiveX组件执行特殊任务，如数据库查询、文件输入输出等。

ASP内含5个内置的Active Server Components（ActiveX服务器组件），即Database Access component（数据库访问组件）、File Access component(文件访问组件)、Ad Rotator component（广告轮显器组件）、Browser Capabilities component（浏览器信息组件）、Content Linking component（内部链接组件）。最常用的内置组件是文件组件和广告组件。ASP最强大的功能还是使用外置组件。

ASP本身包含了一个DLL文件，名字为asp.dll，缺省安装在Winnt\System32\inetsrv目录下。这个DLL文件负责得到一个ASP页面（由文件扩展名.asp标识），然后对它进行分析，寻找服务器端脚本内容。这个脚本传给相应的脚本引擎，脚本的执行结果与ASP页中的HTML和模板文本结合在一起。完整的页面会送到Web服务器，送往原先请求的客户端。

二、个人网站的设计

⒈体系结构

本系统通过客户端浏览器向网络上的服务器发出请求，服务器对浏览器的请求进行处理，将用户所需信息返回到浏览器。B/S结构简化了客户机的工作，把二层C/S结构的事务处理逻辑模块从客户机的任务中分离出来，由Web服务器单独组成一层来负担其任务，从而减轻了客户机的压力。系统的体系架构：Browser/Web/DataBase（Access）。

⒉设计目标

在现有的各种异构平台的基础之上构筑一个通用的平台无关、语言无关的技术层，将网站的所有功能作为Web服务展示出来，用户根据自己的需要选择相关的服务。

⒊主要功能模块

图1 主要功能模块

本系统的权限采用基于角色的访问控制，权限赋予角色，角色分配给用户。用户通过所属的角色享有权限。通过权限控制，保障了合法用户顺利实现系统功能，禁止了非授权用户对系统的入侵。

⒋数据库设计

⑴通讯录

通讯录数据库文件bjtxl.mdb文件包括两个表，分别为alogin和txl。alogin用来存储登录界面的用户名和密码信息，txl用来存储同学的信息，表1和表2所示

字段名类型说明

ID 自动编号用户的标识

yhm 文本（20）登录的用户名

mm 文本（20）登录的密码

字段名类型说明

ID 自动编号同学信息的标识

xm 文本（20）同学的姓名

lxfs 文本（80）同学的联系方式

bz 文本（80）备注

⑵留言簿

留言簿数据库包括两个表GuestBook和hfBook。GuestBook用来存储教师留言信息，hfBook用来存储教务员的回复信息，表3和表4所示。hfBook数据库表中的字段“rID”存储原主题的ID，该ID就是GuestBook 数据库表中的ID字段。

字段名类型说明

ID 自动编号留言的标识

姓名文本（80）留言人的姓名

E-mail 文本（160）留言人的E-mail

主题文本（255）留言的主题

留言备注留言的内容

时间日期/时间留言的时间，now（）

IP 文本留言人的IP地址

Verify 数字验证标志，暂时没用

字段名类型说明

ID 自动编号回复信息的唯一标识

rID 数字原来主题的ID

用户名文本回复人的姓名IP 文本回复人的IP地址回复内容文本回复的内容时间日期/时间回复的时间

三、系统实现

1.身份认证

主要代码：

<%

syhm=request("yhm")

smm=request("mm")

set rs=server.CreateObject("Adodb.recordset")

sql="select * from alogin where yhm='"&syhm&"'"

rs.open sql,conn

if syhm="" then

response.Write("管理员的名不能为空!")

%>

type="text/css" />

请输入管理员名！

<%

response.End()

end if

if smm="" then

response.Write("密码不能为空")

%>

请输入密码！

/>

<%

response.end()

end if

if syhm<>"chenqing" then

response.write("您不是系统管理员！")

%>

请重新输入系统管理员名！

<%

response.end()

else

if smm=rs("mm") then

response.Redirect(session("file"))

else

%>

密码错误！请重新输入密码！

<%

end if

end if

rs.close

set rs=nothing

conn.close

set conn=nothing

%>

2.聊天室

进入聊天室需要进行身份认证，完成此操作过后，自动跳转至聊天界面，在页面上方可以可见当前在线人数，其主要代码如下：

※ message.asp：聊天室的信息输入界面

<%

mywords = Request("message")

oneSentence = "姓名：" & Session("username")

oneSentence = oneSentence & "机器号:" & Session("no")& "说: " & mywords

Application.Lock()

Application("talk")=Application("talk") & oneSentence & "
"

Application.UnLock()

%>