一个简单的聊天室系统.ppt

第四章 ASP内置对象 获取客户端数据的Request对象 向客户端输出数据的Response对象 应用程序会话管理 服务器信息的Server对象 三、实例：一个简单的聊天室系统 本系统共有5个文件构成，分别如下： ⒈Global.asa 功能：统计在线人数。 提示：定义变量：Sum 当会话开始时：sum+1 会话结束时：sum-1 判断的方法：设置会话超时时限（session.timeout） 程序源代码如下： script language=vbscript runat=server 在应用程序启动时，定义变量“sum”,并赋初值为0 sub application_onstart() application(sum)=0 end sub 在会话开始时,将变量值加1,并设定会话超时时限为1分钟 sub session_onstart() session.timeout=1 application(sum)=application(sum)+1 end sub 当会话结束时,将变量值减1 sub session_onend() application(sum)=application(sum)-1 end sub /script ⒉进入聊天室登录的页面:Login.asp 功能:提供用户注册框. 提示:处理文件main.asp 表单的提交方式:post 相关文本域的名称: 帐号:xm1 密码:mm 程序源代码如下： html head meta http-equiv=Content-Type content=text/html; charset=gb2312 title欢迎来到聊天室/title /head body p align=centerbr bfont size=4 face=隶书 marquee 欢迎来到聊天室 /marquee /font/b/p p align=centerfont color=#ooFFoo size=7 face=隶书艳 子 茶 访/font/p hr pnbsp;/p font face=宋体 color=blue !--以下将产生一个表单,用于处理文件为main.asp提交方式为post-- form name=frmlogin action=main.asp method=post pnbsp;/p p align=centerfont size=4 face=楷体_GB2312font fact=隶书帐号:/font/font input name=xm1 size=20 /p p align=centerfont size=4 face=隶书密码:/font input name=mm type=password size=20 /p p align=center input type=submit value=进入 name=s1 nbsp;nbsp; input type=reset value=清除 name=r1 /p /form /font /body /html ⒊主菜单页面：Main.asp 功能： ①.判断用户输入的帐号，密码是否为空，为空，则提示重填；不为空，去掉两端的空格(VBScript函数：trim),并保存用户名（session(“xm2”)）。 ②.设置框架网页，将窗口一分为二； 1个用于显示信息：display.asp 1个用于发送信息：sponse.asp 程序源代码如下： html head title艳子聊天室/title /head % 接收用户输入的帐号和密码,并进行判断是否为空 if request.form(xm1)= or request.form(mm)= then response.write(对不起,你的资料不全!请返回重填 a href=login.asp返回上一页面) else session(xm2)=trim(request.form(xm1)) 存储用户名 end if % !--以下将产生一个框架网页,将本窗口横向分割成上下两块-- frameset rows=*,55 frameborder=no frame src=display.asp name=display frameborder=no scrilling=auto frame src=sponse.asp name=sponse frameborder=no scrilling=auto /frameset noframes/noframes /html ⒋发送信息页面：Sponse.asp 功能：收集用户欲发送的信息。 提示： ①.表单中的内容： 用于处理文件：sponse.asp 表单提交方式：POST