用ASP建造自己的聊天室
聊天室想必你一定去过吧,但想不想建立自己的聊天室呢?其实这一点都不难,ActiveServerScript提供了Application对象和Session对象,Application对象代表了一个ActiveServer应用程序,也就是一个Web网页,Session对象则表示一个用户,代表一个用户对这个页面的一次访问,通过Application对象可以让访问它的所有用户共享信息,并可以在Web服务器运行期间持久地保存数据,而Session对象也可以在用户的一次访问期间持久地保持数据,利用这两个对象,就可以十分方便地建造自己的Chat应用程序。
----一、Application对象:
----1.属性:Application对象没有内置的属性,但用户可以定义自己的属性:
----Application(“属性名称”)=值,一旦分配了属性,它就会一直存在,直到Web服务器关闭服务,而且它能被所有用户读取,所以可以用它在用户之间发送谈话内容。
----2.方法:当两个用户同时对Application属性的值进行写入操作时,会出现一方的修改被另一方的操作直接覆盖掉的情况,为了避免这种现象,用户可以调用Lock方法进行锁定,这样只有当前用户才能够对Application的属性进行操作,用户完成操作后调用Unlock方法解锁,使得其他用户也可以修改Application的属性。
----3.事件:创建ActiveServer应用程序需要在Web服务器上存放应用程序的虚拟主目录下创建Global.asa文件,它含有Application对象和Session对象的事件处理例程,通常,Application_Onstart事件用来定义应用级的属性。
----二、创建一个Chat应用程序:程序运行时如下图所示(略)
----1.设置应用程序的变量:这里需建立两个应用程序级的变量,gchars数组用来存放用户的谈话内容,gcounter用做计数器,控制页面的显示行数,在这里我们让页面最多显示最近的10行谈话内容。当应用程序启动时这些变量必须进行初始化,所以它们的创建都要在Global.asa文件中的Application_onstart事件中:
<scriptlanguage="vbscript"runat="server">
subapplication_onstart()
dimlchars(10)
application("gchars")=lchars
application("gcounter")=0
endsub
</script>
----2.确定处理ASP的方式:当用户第一次请求这个ASP文件时,用的是GET方法,然后,当用户输入完谈话内容后提交时用的是POST方法,在这里表单是向自身提交的,所以这个ASP文件会被再次请求,我们通过测试Request.ServerVariales(“Request_Method”)变量来确定文件被请求的方式:IFRequest.ServerVariales(“Request_Method”)=“POST”then
----3.确定讲话者:当用户第一次提交谈话内容时需输入自己的姓名,一旦在txtname框中输入数据后,程序将建立一个会话级变量来存放用户姓名,并自动显示在txtname框中,用户就不需再次输入了,除非你想用另一个名字加入会谈。
IFlen(request(“txtname”))>0then
Session(“ssname”)=request(“txtname”)
Endif
<h5>您的姓名:
<inputtype=“type”name=“txtname”
length=“20”value=<%=session(“ssname”)%>>
----
----4.处理用户的谈话内容:首先要确定已经为Chat写入的谈话行数,为方便阅读,在这里将显示行数限定为10行,如果Application(“gcounter”)大于9,则将其置为0,然后将谈话者姓名和内容一起存放到Application(“gchars”)数组中:
Application(“gchars”)
(Application(“gcounter”))=Session(“ssname”)&
“:”&request(txttalk)
然后将计数器加1:Application(“gcounter”)=Application(“gcounter”)+1
----5.将数组内容写入到客户的浏览器中:用户提交谈话内容后,程序必须将数组内容写到客户的浏览器中,让聊天室中的所有人都能看到被提交的谈话内容:
ifapplication("gcounter")=0then
lstemp=application("gchars")(0)
else
forx=0toapplication("gcounter")-1
lstemp=lstemp&"<br>"&application("gchars")(x)
next
endif
----最后,用Response.write方法将lstemp变量的值写到客户的浏览器中去:
response.writelstemp
----下面给出Default.asp的完整代码:
<%response.expires=0
response.buffer=true%>
<html><head><title>Chatsample</title></head>
<body><center>
<h3>我的聊天室</h3></center><hr>
<%ifrequest.servervariables("request_method")="POST"then
iflen(request("txtname"))>0then
session("ssname")=request("txtname")
endif
application.lock
mcounter=application("gcounter")
mchars=application("gchars")
ifmcounter>9then
mcounter=0
endif
mchars(mcounter)=session("ssname")
&":"&request("txttalk")
mcounter=mcounter+1
application("gcounter")=mcounter
application("gchars")=mchars
application.unlock
endif%>
<%ifapplication("gcounter")=0then
lstemp=application("gchars")(0)
else
forx=0toapplication("gcounter")-1
lstemp=lstemp&"<br>"&application("gchars")(x)
next
endif
response.writelstemp%>
<hr><center>
<formaction="default.asp"method=postname="aspform">
<b><ahref="default.asp">
更新显示</a></b>
<h5>发言:
<inputtype="text"name="txttalk"size="70"><br>
<h5>您的姓名:
<inputtype="text"name="txtname"length="20"
value=<%=session("ssname")%>>
<inputtype="submit"name="cmdpost"default="true"value="发送">
</form></center></body></html>