内容提要：通过前九篇的理论和实践，相信大家已经对 ASP 有了系统的了解，虽然至今为止，我们只学了 ASP 的 4 个内建对象，但已经完全能够写出一些实用的小程序了。今天，作者将继续给大家讲解最后一个 ASP 内建对象Server。 …… |
Else
Response.clear '' 清空缓存中的内容
dim talk
If Request.Form("nick")<>"" then
'' 判断客户是是否在聊天界面中
Session("nick")=Request.Form("nick")
End If
''------------------------''
客户聊天界面
''------------------------
%>
< form method="POST" action="chat.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="/asptest/shusheng/chat.asp"> 离开 < /a>< br>< br>
< %
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")="< table border=''0'' cellpadding=''0'' cellspacing=''0'' width=''85%'' >< tr>< td width=''100%'' bgcolor=''#C0C0C0''>< /td>< /tr>< tr>< td width=''100%''>< font color=''#0000FF''> 来自 "&Request.ServerVariables("remote_addr")&" 的 "&Session("nick")&time&" 说：< /font>"&talk&"< /td>< /tr>< tr>< td width=''100%'' bgcolor=''#C0C0C0''>< /td>< /tr>< /table>< br>"&Application("show")
Application.UnLock
Response.Write Application("show")
End If
End If
%>
第一次运行 chat.asp 程序，你首先将看到如下页面 :
选择你的 nick 进入聊天室后，将看到如下页面 :
输入你想要说的话，对话将出现在输入框的下方，如下图 :
下面我们来对这个聊天室程序进行逐步的分析。
首先，由于聊天室的所有客户都要能够共享信息，所以不可避免的要用到具有应用程序级变量的对象 Application，这是建立 Chat 程序的关键所在，所有的谈话数据都存放在一个应用程序级变量中，以便让所有的客户读取。我们可以用所学过的 request 对象获取客户所输入的谈话，并保存在变量 talk 中 , 然后将 talk 的值存入应用程序级变量 show 中，如下 :
< % Application("show")=talk&Application("show") %>
接下来要考虑的是当不同的客户同时向 Chat 应用程序进行操作的时候如何处理。这个问题其实与在数据库中的两个用户同时写入同一个记录一样，如果两个用户同时对同一个应用程序级变量进行写操作，则一个用户所作的修改会被另一个用户的操作所覆盖，所以，如果对 Appliation 对象数据的并发访问不采取一定措施，则会导致当两个用户试图同时对 Asp 聊天室应用程序提交时，一个用户的提交内容会被另一个用户的提交内容所覆盖，在被参加到会话中的任何人看到之前就消失了。为了避免这类问题的出