用ASP建造自己的聊天室

聊天室想必你一定去过吧，但想不想建立自己的聊天室呢？其实这一点都不难，Active Server Script提供了Application对象和Session对象，Application对象代表了一个Active Server应用程序，也就是一个Web网页，Session对象则表示一个用户，代表一个用户对这个页面的一次访问，通过Application对象可以让访问它的所有用户共享信息，并可以在Web服务器运行期间持久地保存数据，而Session对象也可以在用户的一次访问期间持久地保持数据，利用这两个对象，就可以十分方便地建造自己的Chat应用程序。
---- 一、Application对象：
---- 1．属性：Application对象没有内置的属性，但用户可以定义自己的属性：
---- Application(“属性名称”)=值，一旦分配了属性，它就会一直存在，直到Web服务器关闭服务，而且它能被所有用户读取，所以可以用它在用户之间发送谈话内容。
---- 2．方法：当两个用户同时对Application属性的值进行写入操作时，会出现一方的修改被另一方的操作直接覆盖掉的情况，为了避免这种现象，用户可以调用Lock方法进行锁定，这样只有当前用户才能够对Application的属性进行操作，用户完成操作后调用Unlock方法解锁，使得其他用户也可以修改Application的属性。
---- 3．事件：创建Active Server应用程序需要在Web服务器上存放应用程序的虚拟主目录下创建Global.asa文件，它含有Application对象和Session对象的事件处理例程，通常，Application_Onstart事件用来定义应用级的属性。
---- 二、创建一个Chat应用程序：程序运行时如下图所示(略)
---- 1．设置应用程序的变量：这里需建立两个应用程序级的变量，gchars数组用来存放用户的谈话内容，gcounter用做计数器，控制页面的显示行数，在这里我们让页面最多显示最近的10行谈话内容。当应用程序启动时这些变量必须进行初始化，所以它们的创建都要在Global.asa文件中的Application_onstart事件中：
< script language="vbscript" runat="server" >
sub application_onstart()
dim lchars(10)
application("gchars")=lchars
application("gcounter")=0
end sub
< /script >
---- 2．确定处理ASP的方式：当用户第一次请求这个ASP文件时，用的是GET方法，然后，当用户输入完谈话内容后提交时用的是POST方法，在这里表单是向自身提交的，所以这个ASP文件会被再次请求，我们通过测试Request . ServerVariales(“Request_Method”)变量来确定文件被请求的方式：IF Request . ServerVariales(“Request_Method”)=“POST” then