asp简单聊天室程序及实验代码.docx

上传人:b****5 文档编号:4754083 上传时间:2022-12-08 格式:DOCX 页数:8 大小:16.68KB
下载 相关 举报
asp简单聊天室程序及实验代码.docx_第1页
第1页 / 共8页
asp简单聊天室程序及实验代码.docx_第2页
第2页 / 共8页
asp简单聊天室程序及实验代码.docx_第3页
第3页 / 共8页
asp简单聊天室程序及实验代码.docx_第4页
第4页 / 共8页
asp简单聊天室程序及实验代码.docx_第5页
第5页 / 共8页
点击查看更多>>
下载资源
资源描述

asp简单聊天室程序及实验代码.docx

《asp简单聊天室程序及实验代码.docx》由会员分享,可在线阅读,更多相关《asp简单聊天室程序及实验代码.docx(8页珍藏版)》请在冰豆网上搜索。

asp简单聊天室程序及实验代码.docx

asp简单聊天室程序及实验代码

———————————————————————————————————————

专业:

运算机科学与技术系系(班)0901姓名:

辛志鹏

课程名称:

动态网页制作实验项目:

制作聊天室程序

实验地址:

软三实验室时刻:

2011-4-30指导老师:

王琦

学号:

45实验类型:

综合型

一、实验目的及要求

1.目的:

(1)掌握Session对象的利用方式。

(2)掌握Application对象的利用方式。

(3)掌握Server对象的利用方式。

(4)具有灵活利用ASP内置对象的

2.要求:

(1)应用Session对象实现实现私聊功能。

(2)应用Application对象实现聊天内容的共享。

二、实验内容

应用ASP的三个内置对象:

Session、Application和Server和Response和Request对象实现聊天室程序。

(1)Session在ASP中代表了服务器与客户机之间的“会话”,其作历时刻从用户抵达某个特定网页开始,到该用户离开Web站点,或在程序中利用代码终止某个Session时结束。

(2)Application对象是Web应用程序级的一个对象,其所包括的数据能够被应用程序的所有效户利用,并在网站运行期间永久保留。

(3)文件是一个可选文件,在该文件中指定Session和Application对象事件的脚本,声明具有会话和应用程序作用域的对象。

(4)Server对象提供了对服务器上的方式和属性的访问,其中大多数方式和属性是为应用程序提供服务的。

(5)应用Split函数将用户名用户名用逗号隔开并返回一个下标从零开始的一维数组,用法:

传回数组=Split(原始字串,要找的字串,拆成几个数组)。

例如:

split("F:

\a\","\")=T

则:

T(0)="F:

";T

(1)="a";T

(2)="";T(UBound(T))=

(6)应用数组实现对聊天内容的存储。

(7)利用InStr函数判断用户名是不是重名。

例如:

InStr(“北华航天工业学院”,”航天”)=3

三、实验代码

(1)文件

subapplication_onstart

dimtemptalk(5)

application("talk")=temptalk

endsub

(2)用户登录界面:

文件

用户登录,欢迎利用!</p><p>

--

.STYLE1{

font-size:

36px;

font-weight:

bold;

color:

#66FF00;

}

-->

欢迎进入网上聊天室


请输入您的昵称:

<%=("msg")%>

<%application("people")=""%>

(3)用户验证界面:

文件

验证

<%

user=trim("username"))

ifuser=""then

"?

msg=对不起,用户名不能为空!

"

else

items=split(application("people"),",")

'检查用户名是不是重名

ifinstr(application("people"),user&",")<>0then

"?

msg=对不起,用户名重名!

"

endif

'检查聊天室是不是满员

ifubound(items)>3then

"?

msg=对不起,聊天室满员!

"

endif

session("curruser")=user

()

application("people")=application("people")&user&","

temptalk=application("talk")

(ubound(temptalk))

fori=5to1step-1

temptalk(i)=temptalk(i-1)

next

temptalk(0)="("&time&")"&user&"说:

大家好!

"

application("talk")=temptalk

()

""

endif

%>

(4)聊天室主页:

文件

网上聊天室

</p><p><body></p><p><p>此网页利用了框架,但您的阅读器不支持框架.</p></p><p></body></p><p>

(5)输入聊天内容界面:

<%

if("quit")="退出"then

""

endif

ifrequest("content")<>""then

name=session("curruser")

temptalk=application("talk")

str="("&time&")"&name&"说:

"&("content"))

()

fori=5to1step-1

temptalk(i)=temptalk(i-1)

next

temptalk(0)=str

application("talk")=temptalk

()

endif

%>

(6)显示聊天内容页面:

文件

聊天内容

<%

temptalk=application("talk")

fori=0to5

temptalk(i)&"
"

next

%>

(7)显示在线用户文件:

聊天成员

在线人员名单:


<%

'显示在线人员

users=split(application("people"),",")

fori=0toubound(users)

""&"-"&users(i)&"-"&"
"

next

%>

(8)退出聊天室文件:

<%

name=session("curruser")

ifname<>""then

()

application("people")=replace(application("people"),name&",","")

temptalk=application("talk")

fori=5to1step-1

temptalk(i)=temptalk(i-1)

next

temptalk(0)="("&time&")"&name&"说:

我走了!

"

application("talk")=temptalk

()

()

endif

%>

四实验总结

(1)对ASP的内置对象加倍了解。

(2)对ASP内置对象的应用仍是不够熟练。

(3)对ASP中函数的利用不够熟练。

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置:首页 > 高中教育 > 其它课程

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1