网络聊天室的创建.doc

xxxxx实验报告 课程名称:Internet应用开发 项目名称：聊天室的创建 姓名：xxxxxxx 专业：计算机科学与技术 班级：xxxxxx学号：xxxxxxxxxx 同组成员：无 一、实验准备： 实验目的： 利用application创建一个网络登录界面。 实验环境 硬件：微型计算机 软件： windows操作系统 ，dreamweaver 8 实验内容： 所谓Applications就是Web服务器上存放在同一个虚拟目录下的一些网页文件在不同用户访问时可以相互访问的一个共享信息集合。与以上所说的Session对象类似，也是一个可以用来存放信息的一个集合，只是它们的作用范围有所不同，虽然信息传递都可以跨越不同网页，但Session对象的作用范围仅在单个访问者的本次访问过程，而Applications对象的作用范围可以跨越同时访问同一个网站虚拟目录中的不同访问者。 在一个网站中可以建立多个Applications对象，在中文版Web服务器管理程序中也就是解释为可以建立多个虚拟目录子网站，可以根据访问权限创建两个Applications分别用于普通用户与网络管理员。还可以在同一服务器的不同网站中创建不同的Applications对象。 二、实验过程记录： 、建立Giobal.asa文件。代码如下： Scrip Language=VBScript RUNAT=Server Sub Application_OnStart Web初次启用时发生 Dim Temp(8) 限制只显示八条信息 Temp(8)=大家好，本室新开张，欢迎光临！ Application(Msgs)=Temp 聊天信息共享 Application(Tu)=0 人数 Dim TempA(12) 限制十二人 TempA(0)=[所有人] Application(User)=TempA 用户信息共享 END SUB SUB Session_OnStart 新用户进入时发生 Application.Lock TempA=Application(User) Session(Uname)=Session.SessionID For i=1 To 12 If TempA(i)=Then tempA(i)=Session.SessionID Exit For End If Next Application(User)=TempA Application(Tu)=Application(Tu)+1 Application.UnLock END SUB SUB Session_OnEnd TempA=Application(User) For i=1 To 12 If TempA(i)=Session(Uname) THEN Application.Lock TempA(i)= For j=i To 11 TempA(j)=TempA(j+1) Next Application(User)=TempA Application(Tu)=Application(Tu)-1 Application.UnLock ExIt For End If Next END SUB /SCRIPT 、聊天室的框架网页，将屏幕划分成三块，分辨放置聊天信息显示窗口、用户信息显示窗口与聊天输入发送窗口。代码如下： html headtitle一个简单的聊天室例子/title/head Frameset Rows=*,80 Frameset Cols=*,18% Frame Src=Mainwin.asp name=Tpage Frame Src=Rightwin.asp name=Rpage /Frameset Frame Src=Botwin.aspname=Bpage /Frameset /html 、聊天信息显示页，显示公共的聊天信息并每隔3秒钟更新一次代码如下： % Application.Lock Um=Request.Form(Usname) If Um=Then Um=Session.SessionID If UmSession(Uname)Then If Um=Then Um=Session(Uname) If Request.Form(Usname)Then Um=Request.Form(Usname) TempA=Application