基于BS架构的班级网站设计与实现--ASP课程设计.doc

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，缺省安装在WinntSystem32inetsrv目录下。这个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所示表1 数据库表alogin的结构字段名类型说明ID自动编号用户的标识yhm文本（20）登录的用户名mm文本（20）登录的密码表2 数据库表txl的结构字段名类型说明ID自动编号同学信息的标识xm文本（20）同学的姓名lxfs文本（80）同学的联系方式bz文本（80）备注留言簿留言簿数据库包括两个表GuestBook和hfBook。GuestBook用来存储教师留言信息，hfBook用来存储教务员的回复信息，表3和表4所示。hfBook数据库表中的字段“rID”存储原主题的ID，该ID就是GuestBook数据库表中的ID字段。表3 数据库表GuestBook的结构字段名类型说明ID自动编号留言的标识姓名文本（80）留言人的姓名E-mail文本（160）留言人的E-mail主题文本（255）留言的主题留言备注留言的内容时间日期/时间留言的时间，now（）IP文本留言人的IP地址Verify数字验证标志，暂时没用表4 数据库表hfBook的结构字段名类型说明ID自动编号回复信息的唯一标识rID数字原来主题的ID用户名文本回复人的姓名IP文本回复人的IP地址回复内容文本回复的内容时间日期/时间回复的时间三、系统实现1.身份认证主要代码： 请输入管理员名！ 请输入密码！ % response.end() end if if syhmchenqing then response.write(您不是系统管理员！) % 请重新输入系统管理员名！ 密码错误！请重新输入密码！ 2.聊天室进入聊天室需要进行身份认证，完成此操作过后，自动跳转至聊天界面，在页面上方可以可见当前在线人数，其主要代码如下： message.asp：聊天室的信息输入界面% mywords = Request(message)oneSentence = 姓名： & Session(username) oneSentence = oneSentence & 机器号: & Session(no)& 说: & mywordsApplication.Lock()Application(talk)=Application(talk) & oneSentence & Application.UnLock()% display.asp：聊天信息显示页面 function scrollWindow() this.scroll(0,65000)setTimeout(scrollWindow(),200) scrollWindow() 3.留言簿留言簿包含提交留言，浏览留言，编辑留言（修改和删除），清除重写四大模块，其中编辑留言需要身份认证才可以进行修改、删除操作；并且浏览留言采用分页显示技术。“留言簿”主页面运行效果如图2所示，其主要代码如下： handle.asp：处理程序 display.asp：显示程序 姓名： Email: A HREF=MAILTO: 主题： 时间： 内容 图2 留言簿主页面4.通讯录通讯录的功能是保存姓名、E-mail地址、家庭住址等常用的联系信息。模块包含浏览记录，查询记录，添加记录和编辑记录（修改和删除）四个部分，其中添加记录和编辑留言需要身份认证。浏览留言采用分页显示技术，通讯录主页面运行效果如图3所示，其主要代码如下： add.asp：添加记录 del.asp：删除记录 query.asp：查询记录 姓名 联系方式 td备注 mod.asp：修改记录图3 通讯录主页面图4 通讯录浏览5.图片计数器图片计数器是Application对象的一个用途，因为Application是所有的用户所共有的，所以可以存储计数器的值，当有新用户访问网页时自动增值计数器的值。其代码如下：% Application.Lock()Application(Counter) = Application(Counter) + 1Application.UnLock()Function G ( counter ) Dim S, i S = CStr( counter ) For i = 1 to Len(S) myimage = myimage & Next G = myimageEnd Function %您是本站第 位贵宾！ 6.当前时间当前时间是now()自动调用系统时间实现的，其代码如下：document.write(now()7.在线人数统计在线人数统计采用Application对象和Session对象来编写。当网站开启时就自动调用global.asa文件，此时其中的Application_OnStart首先被调用，然后执行其中的语句，Application(whosOn)被自动清零。然后当第一位用户登录网站时，Session_OnStart被调用，此时Application(whosOn)被自动加一。当第二位、第三位用户登录时，又被加一，所以显示的是在线的人数。其代码如下： CountOnLine.asp global.asaSub Application_OnStart()Application.Lock()Application(whosOn) = 0Application.UnLock()End SubSub Session_OnStart()Application.Lock()Application(whoson) = Cint(Application(whoson) + 1Application.UnLock()End SubSub Session_OnEnd()Application.Lock()Application(whoson) = Cint(Application(whoson) - 1Application.UnLock()End Sub8.广告轮显广告图片的动态显示时利用内置组件ADROTATOR来实现的。使用该组件，可以在每次访问中显示不同的图标，可以设置广告的不同权重使得显示频率不同。其代码如下： ad.asp ad.txtREDIRECT ad_redir.aspWIDTH 230 HEIGHT 60 BORDER 0*yule.gif././web/mifeng.html 娱乐天宫40welcome.gif././zhuye.asp 我的地盘我做主30lvhai.gif././web/lvhai.mht 安徽绿海商务学院30 ad_redir.asp9.文件链接组件文件链接组件使用户可以在你页面中自由跳转，当有许多并列的页面时，改组件非常有用，可以大大简化每个页面加入相应链接信息的这个过程。其代码如下： link.asp总文件个数为：a href= target=_blank link.txtwenjian/01.asp咏白海棠 wenjian/02.asp荷塘月色wenjian/03.asp三国演义 wenjian/05.asp咏菊问菊wenjian/06.asp赤壁怀古10.记录客户端的IP地址该程序中OpenTextFile(path,8,true)方法有三个参数，第一个参数“path”打开文件的地址；第二个参数“8”是打开方式，这里是以追加的形式打开；第三个参数“true”表示如果该文件不存在就创建一个新文件。Request.ServerVariables(REMOTE_ADDR)为客户端的IP地址，这样所有访问过该页面的IP地址就被记录下来了。其代码如下：11.文件上传文件上传组件可以使用户在ASP页面中接受客户浏览器上传的文件。本文件上传包含下载、浏览、删除操作，其中删除操作需要身份认证，用户上传的文件保存到数据库中，Access中是利用类型“OLE对象”来上传文件的。其代码如下： index.asp 上传文件预览名称大小(K)类型简介下载浏览删除%set conn = server.createobject(ADODB.CONNECTION)conn.open DRIVER=Microsoft Access Driver (*.mdb);DBQ= &_server.mappath(temp.mdb)strSql = SELECT * FROM uploadfiles ORDER BY submit_date DESC Set rs = conn.Execute(strSql)Do while Not rs.EofResponse.Write Response.Write Response.Write & rs(filename) & Response.Write & Int(rs(size)/1024) & Response.Write & rs(ext) & Response.Write & rs(intro) & Response.Write 下载Response.Write 浏览Response.Write 删除Response.Write rs.MoveNextLoop% add_form.asp function check_Null()if (document.form1.upfile.value=)alert(文件不能为空!); return false;if (ro.value=)alert(说明不能为空!); return false; return true;上传文件选择文件（文件名请勿用中文）简单说明（必须输入） browse.aspimg src=showimage.asp?id= showimage.asp download.asp delete.asp upload.asp% set conn = server.createobject(ADODB.CONNECTION)conn.open DRIVER=Microsoft Access Driver (*.mdb);DBQ= &_server.mappath(temp.mdb)Set upload = Server.CreateObject(LyfUpload.UploadFile)upload.maxsize=20*1024*1024 设置文件上传的最大为20MB保存文件到服务器内存中,upfile是表单中的名称filename = upload.SaveFiletodb(upfile) If filename=0 Then表示文件过大，超出体积Response.Write 文件超出2M！请返回 Response.Write 重新上传Else将文件信息保存到数据库，首先建立Recordset