欢迎来到天天文库
浏览记录
ID：38815869
大小：267.50 KB
页数：7页
时间：2019-06-19
《asp实验报告模版二》由会员上传分享，免费在线阅读，更多相关内容在PPT专区-天天文库。
1、动态网页制作实验报告实验二实验题目：制作网上聊天室指导老师：专业班级：姓名：2013年5月8日实验类型验证实验室软件实验室一一、实验题目制作网上聊天室二、实验目的1、掌握session对象、application对象的使用2、掌握VB脚本程序的编写3、熟悉IIS环境和动态网站建设三、实验内容制作一个网上聊天室，可以完成一些常见的功能，包括用户登录、聊天功能的实现，、用户退出等。四、实验步骤程序代码：1、聊天室应用程序Global.asa文件中的代码如下：2、"server">subapplication_onstartdimtemptalk(5)application("talk")=temptalk//注：application是缓冲区endsub2、用户登录界面login.asp代码及截屏如下:欢迎使用欢迎进入网上聊天室请输入您的昵称：
2、"server">subapplication_onstartdimtemptalk(5)application("talk")=temptalk//注：application是缓冲区endsub2、用户登录界面login.asp代码及截屏如下:
3、tion="check.asp">
4、户名不能为空”2、当用户单击“进入”按钮后，将输入数据提交给check.asp文件进行处理，相应的代码和截屏如下：<%user=trim(request.form("username"))//获取用户名赋值给user变量ifuser=""thenresponse.redirect"login.asp?msg=对不起，用户名不能为空！"elseitems=split(application("people"),",")//split将其分为数组ifinstr(application("peo
5、ple"),user&",")<>0thenresponse.redirect"login.asp?msg=对不起，用户名重名!"endififubound(items)>3thenresponse.redirect"login.asp?msg=对不起，聊天室满员!"endifsession("curruser")=userapplication.lockapplication("people")=application("people")&user&","//把人并集temptalk=application("ta
6、lk")fori=5to1step-1temptalk(i)=temptalk(i-1)//聊天记录最多保存5条若有新成员、则需要刷屏nexttemptalk(0)="("&time&")"&user&"说：大家好！"application("talk")=temptalkapplication.unlockresponse.redirect"main.asp"endif%>2、聊天室主页（main.asp）的代码和截屏如下：
7、etrows="70%,*"onunload=open("quit.asp")>8、ing="auto"noresizesrc="talking.asp"><body><p>此网页使用了框架，但您的浏览器不支持框架.</p></body>2、输入聊天内容在talking.asp文件代码如下：:<%ifrequest.form("
8、ing="auto"noresizesrc="talking.asp"><body><p>此网页使用了框架，但您的浏览器不支持框架.</p></body>2、输入聊天内容在talking.asp文件代码如下：:<%ifrequest.form("
此文档下载收益归作者所有
