IDC资讯中心
聊天室想必你一定去过吧，但想不想建立自己的聊天室呢？其实这一点都不难，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
—- 3．确定讲话者：当用户第一次提交谈话内容时需输入自己的姓名，一旦在txtname框中输入数据后，程序将建立一个会话级变量来存放用户姓名，并自动显示在txtname框中，用户就不需再次输入了，除非你想用另一个名字加入会谈。
if len(request(“txtname”)) >0 then
session(“ssname”)=request(“txtname”)
end if
< h5 >您的姓名：
< input type=“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．将数组内容写入到客户的浏览器中：用户提交谈话内容后，程序必须将数组内容写到客户的浏览器中，让聊天室中的所有人都能看到被提交的谈话内容：
if application("gcounter")=0 then
lstemp=application("gchars")(0)
else
for x=0 to application("gcounter")-1
lstemp=lstemp & "< br >" & application("gchars")(x)
next
end if
—- 最后，用response.write方法将lstemp变量的值写到客户的浏览器中去：
response.write lstemp
—- 下面给出default.asp的完整代码：
< %response.expires=0
response.buffer=true% >
< html >< head >< title >chat sample< /title >< /head >
< body >< center >
< h3 >我的聊天室< /h3 >< /center >< hr >
< % if request.servervariables("request_method")="post" then
if len(request("txtname")) >0 then
session("ssname")=request("txtname")
end if
application.lock
mcounter=application("gcounter")
mchars=application("gchars")
if mcounter >9 then
mcounter=0
end if
mchars(mcounter)=session("ssname")
& ":" & request("txttalk")
mcounter=mcounter+1
application("gcounter")=mcounter
application("gchars")=mchars
application.unlock
end if % >
< % if application("gcounter")=0 then
lstemp=application("gchars")(0)
else
for x=0 to application("gcounter")-1
lstemp=lstemp & "< br >" & application("gchars")(x)
next
end if
response.write lstemp % >
< hr >< center >
< form action="default.asp" method=post name="aspform" >
< b >< a href="default.asp" >
更新显示< /a >< /b >
< h5 >发言:
< input type="text" name="txttalk" size="70" >< br >
< h5 >您的姓名:
< input type="text" name="txtname" length="20"
value=< %=session("ssname")% > >
< input type="submit" name="cmdpost" default="true" value="发送" >
< /form >< /center >< /body >< /html >
—- 以上代码在nt4.0、iis4.0、ie4.0中和pwin98、pws、ie4.0中分别运行通过。
