实习二十 使用SP对象Server对象.pptVIP

实习二十　使用ASP对象－－Server对象 实验要求 1.掌握Server对象的属性和方法 2.掌握Server对象CreateObject方法 3.综合程序聊天室的编写 实验内容 2.写Appilacton的OnStart过程。3.写Session的Onstart过程。4.写Global.asa文件 7.8 简单的聊天室例子 [例7-17]Global.asa文件 object runat=Server scope=Session ID=MyInfo progid=″MSWC.MyInfo″ /object script language=VBScript runat=Server sub Application－OnStart Application(″VN″) = 0 Application(″ly″) = ″欢迎你来到欢乐聊天室！″ end sub sub Session－OnStart end sub sub Session－OnEnd end sub /script [例7-18]这是一个简单的聊天室程序，它具有进入、聊天、离开等功能，文件名为7-18.asp。 %@ Language=VBScript % % Response.Buffer=true ′ 设置输出缓存，用于显示不同页面。 on error resume next ′ 忽略程序出错部分 if Request.ServerVariables(″Request－Method″)=″GET″ then ′ 判断客户是以什么方式请求 Web 页面 ′ ′ 客户登录界面 ′ % body bgColor=LightGoldenrodYellow %= Application(″ly″) %p %Application(″VN″)=Application(″VN″) + 1% 你是本站点的第%=Application(″VN″)%位客人。 form method=″POST″ action=″7-18.asp″p 输入你的昵称： input type=″text″ name=″nick″ size=″20″ value=″nick″ style=″backgroundcolor: rgb(192，192，192)″br input type=″submit″ value=″ 进入聊天室 ″ name=″B1″ style=″color: rgb(255，255，0); fontsize: 9pt; backgroundcolor: rgb(0，128，128)″ pinput type=″hidden″ name=″log″ size=″20″ value=″1″br/p /form % Response.End ′ 结束程序的处理 else Response.Clear ′ 清空缓存中的内容 Dim talk If Request.Form(″nick″)″″ then ′ 判断客户是否在聊天界面中 Session(″nick″)=Request.form(″nick″) end if ′ ′客户聊天界面 ′ % form method=″POST″ action=″7-18.asp″ name=form1 p %=Session(″nick″)% 说话： input type=″text″ name=″talk″ size=″50″br input type=″submit″ value=″ 提交 ″ name=″B1″ input type=″reset″ value=″ 取消 ″ name=″B2″/p /form a HREF=″7-19.asp″ 离开 /abrbr % if Request.Form(″log″)1 then if trim(Request.Form(″talk″))=″″ then ′ 判断用户是否没有输入任何内容 talk=Session(″nick″)″ 沉默是金。″ else talk=trim(Request.Form(″talk″)) ′ 去掉字符后的空格 end if Application.lock Application(″show″)= Session(″nick″)time″ 说：″talk″br″Application(″show″) Application.UnLock Response.Write Application(″show″) end if end if %/body /h