asp实验报告模版二.doc

动态网页制作实验报告实验二实验题目：制作网上聊天室指导老师： 专业班级： 姓 名： 2013年 5月8日实验类型 验证 实验室 软件实验室一一、实验题目制作网上聊天室2、 实验目的 1、掌握session对象、application对象的使用 2、掌握VB脚本程序的编写 3、熟悉IIS环境和动态网站建设3、 实验内容 制作一个网上聊天室，可以完成一些常见的功能，包括用户登录、聊天功能的实现，、用户退出等。四、实验步骤程序代码：1、聊天室应用程序Global.asa文件中的代码如下： sub application_onstart dim temptalk(5) application(talk)=temptalk /注：application是缓冲区 end sub 2、 用户登录界面login.asp代码及截屏如下: 欢迎使用欢迎进入网上聊天室请输入您的昵称：/注：此句的意思的输出“对不起，用户名不能为空”3、 当用户单击“进入”按钮后，将输入数据提交给check.asp文件进行处理，相应的代码和截屏如下：% user=trim(request.form(username) /获取用户名赋值给user变量if user=thenresponse.redirectlogin.asp?msg=对不起，用户名不能为空！else items=split(application(people),) /split将其分为数组if instr(application(people),user&,)0 thenresponse.redirectlogin.asp?msg=对不起，用户名重名!end if if ubound(items)3 then response.redirectlogin.asp?msg=对不起，聊天室满员!end ifsession(curruser)=userapplication.lockapplication(people)=application(people)&user&, /把人并集temptalk=application(talk)for i=5 to 1 step -1temptalk(i)=temptalk(i-1) /聊天记录最多保存5条 若有新成员、则需要刷屏nexttemptalk(0)=(& time &)& user & 说：大家好！application(talk)=temptalkapplication.unlockresponse.redirectmain.aspend if %4、 聊天室主页（main.asp）的代码和截屏如下：网上聊天室此网页使用了框架，但您的浏览器不支持框架.5、 输入聊天内容在talking.asp文件代码如下：:%if request.form(quit)=退出then response.redirect quit.aspend if if request(content) then name=session(curruser)temptalk=application(talk)str=( & time & )& name &说:& server.htmlencode(request.form(content)application.lockfor i = 5 to 1 step -1temptalk(i)=temptalk(i-1)nexttemptalk(0)=strapplication(talk)=temptalkapplication.unlockend if %6、 显示聊天内容页面（talk.asp）的代码：聊天内容% temptalk=Application(talk)For i=0 To 5 Response.Write temptalk(i)&Next%7、 显示在线用户userlist.asp的代码：聊天成员在线人员名单:%显示在线人员users=split(application(people),)For i=0 To ubound(users)Response.write &-& users(i) &-& Next%8退出聊天室页面（quit.sap）的代码如下：%name=Session(curruser)If nameThenApplication.unlockApplication(people)=Replace(Application(people),name &,)temptalk=Application(talk)For i = 5 To 1 Step -1temptalk(i)=temptalk(i-1)Nexttemptalk(0)=(& time &)& name &说：我走了！Application(talk)=temptalkApplication.unlockSession.abandonEnd If%5、 实验总结 通