- 1、本文档共6页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
网络聊天室的创建
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
文档评论(0)