一聚教程网:一个值得你收藏的教程网站

热门教程

ASP编程入门进阶(十一):Chat聊天程序

时间:2022-07-02 23:30:41 编辑:袖梨 来源:一聚教程网

通常的聊天室所采用的程序,也就是Chat程序了,其基本结构原理是不会采用到数据库的。那究竟采用什么技术呢?我们知道ASP变量当中Session变量的作用是记录单个用户的信息,并且能跟踪用户的行为;Application对象的作用则起的全局变量,可以实现站点多个用户之间在页面中共享信息的。
那可以想象,在针对当前聊天程序中,一个聊天成员即为一个Session变量,聊天成员之间的会话则当成Application变量进行共享显示,以使各成员都能看见。
那下面就采用一很经典的实例程序,进行了解和分析。
1,chat.asp
<%If Request.ServerVariables("Request_Method")="GET" then%>





<%Response.End
Else
Response.clear
dim talk
If Request.Form("nick")<>"" then
Session("nick")=Request.Form("nick")
End if
%>

<%=Session("nick")%>说话:





离开

<%
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")="来自"&Request.ServerVariables("remote_addr")& "的" &Session("nick")&"在"&time& "的时候说:" &talk& "
" &Application("show")

热门栏目