书签 分享 收藏 举报 版权申诉 / 9

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

  • 文档编号:15231548
  • 上传时间:2023-07-02
  • 格式:DOCX
  • 页数:9
  • 大小:16.62KB


请输入您的昵称:

<%=("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中函数的利用不够熟练。

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
asp 简单 聊天室 程序 实验 代码
提示  冰点文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:asp简单聊天室程序及实验代码.docx
链接地址:https://www.bingdoc.com/p-15231548.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2


收起
展开