最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
ASP编程入门进阶（十一）：Chat 聊天程序
时间：2022-07-02 23:27:01 编辑：袖梨 来源：一聚教程网
通常的聊天室所采用的程序，也就是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%>离开
<%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") Application.UnLock Response.Write Application("show")End if%>
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%>离开
<%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") Application.UnLock Response.Write Application("show")End if%>
相关文章
- 江南百景图听风塔怎么样 11-22
- 原神恰斯卡圣遗物怎么搭配 11-22
- 2024年霸王茶姬11月22日口令是什么 2024.11.22霸王茶姬口令介绍 11-22
- 光遇11.21季节蜡烛在哪里 光遇11月21日季节蜡烛位置攻略 11-22
- 光遇11.21大蜡烛在哪里 光遇11月21日大蜡烛位置攻略 11-22
- 光遇11.21免费魔法有什么 光遇11月21日免费魔法收集攻略 11-22