php 私聊,聊天室实现私聊

最新推荐文章于 2021-03-24 17:41:04 发布

Yang Yanzhe

最新推荐文章于 2021-03-24 17:41:04 发布

阅读量308

点赞数

文章标签： php 私聊

聊天室实现私聊

更新时间：2006年09月30日 00:00:00 作者：

几个要好的网友在聊天室里闲聊的时侯，总会遇上有些话题是不想同一聊天室内别的聊友看见的，那么聊天室支持悄悄话功能将是什分有必要的了，实现悄悄话的方法很多，现在小虎介绍一下利用session对象来实现它，用session对象来实现悄悄话，是有优缺点的，因为session对象的应用，其实就是客户端cookies的使用。如果客户端cookies不支持或关闭了，那么程序运行起来就有问题了。那么使用session对象就没好处了吗？？非也，至少在编程上大大减少了工作量嘛，试想一下如果需要保存该用户的聊天名字，那么使用session对象就能直接保存他的名字了，如果没有session对象。解决的方法看来就只有在处理发言的FORM里设几个隐含的textbox对象来保存，这样处理起来会比教烦锁，但好处是通用性广，就算浏览器不支持cookies仍然可用。

说到这里，大伙不妨试试网上众多的ASP聊天室，试把浏览器的安全选项(总是接受cookies关了)看看那个聊天室仍然正常地能使用。那个就问题百出来。。呵呵～～不要找小虎的聊天室来试哦....我的聊天室也需要cookies来支持的。不用session对象编程真是烦锁很多。而且大部分浏览器的安全配置的默认值是总是接受cookies。所以也不用太但心，只有少部分的用户是比教特别的。

现在从聊天室的发言开始，到处理发言，显示发言，一步一步地让大家了解一下是如何处理的，最后就加上悄悄话功能

首先，我们的聊天室主要提供如下元素：发言人(你的名字)，动作(叫嚷，抱抱...等)，对象(这句话是向谁说的呢？)，发言内容等四大元素。

其中发言人(你的聊天名字)的名字是保存在发言FORM的user隐藏文本框中，这样每当发言的时侯，在处理发言的says.asp程序里，就可以用request.form("user")来取得聊天名字。而动作则是由下拉框action来提供的，你可以自定义很多的动作类型，以满足不同聊友的需要。而发言对象，也是由下拉框whoto来选定，这些名单是列出当前聊天室内所有用户的名称。如何判断有新用户进聊天室以及退出处理，这里先不说了。因为构造一个完整的聊天室要做的工作还是挺多的。最后由一个says文本框提供发言内容。

有了这几个主要的聊天元素。我们就可以进行发言处理了。

请看看下面的程序片段

'取得说话内容,并过滤其中的脚本语句

usersays=request.form("says")

if instr(usersays,"

usersays=""

end if

'判断是否有谈话内容，没有的话就不作处理

if len(usersays)<>0 then

session("whoto")=request.form("whoto")

session("action")=request.form("action")

if instr(usersays,chr(39))>0 then

usersays=replace(usersays,chr(39),"\"&chr(39))

end if

if instr(usersays,chr(34))>0 then

usersays=replace(usersays,chr(34),"\"&chr(34))

end if

application.lock

'定义一个交谈缓冲区，后面将给大家仔细分析一下

dim chats(20)

for n=1 to 20

chats(n)=application("chats")(n)

username=request.Form("user")

usertime=Time

usertime="("&right(usertime,8)&")"

user_whoto=request.Form("whoto")

user_action=request.Form("action")

if application("counter")>19 then

application("counter")=0

end if

'不是耳语就加一

if request.form("action")<>"耳语" then

application("counter")=application("zj_1counter")+1

counter=application("zj_1counter")

'用户的动作处理

select case request.FORM("action")

case "说话"

if request.FORM("whoto")="ALL" then

chats(counter)=""&usertime&" "&username&" : "&usersays&"

"

else

chats(counter)=""&usertime&" "&username&" 与 "&request.FORM("whoto")&" 说: "&usersays&"

"

end if

case "叫嚷"

chats(counter)=""&usertime&" "&username&" 冲 "&request.FORM("whoto")&" 大叫: "&usersays&"

"

case "亲亲"

chats(counter)=""&usertime&" "&username&" 亲了亲 "&request.FORM("whoto")&" 的脸颊: "&usersays&"

"

case "拥抱"

chats(counter)=""&usertime&" "&username&" 轻轻的抱着 "&request.FORM("whoto")&" : "&usersays&"

"

case "暴怒"

chats(counter)=""&usertime&" "&username&" 朝 "&request.FORM("whoto")&" 横眉竖目道: "&usersays&"

"

case "轻推"

chats(counter)=""&usertime&" "&username&" 轻轻地推了推 "&request.FORM("whoto")&" 的胳膊: "&usersays&"

"

case "傻笑"

chats(counter)=""&usertime&" "&username&" 傻兮兮的朝 "&request.FORM("whoto")&" 笑笑: "&usersays&"

"

case "拳打"

chats(counter)=""&usertime&" "&username&" 对准 "&request.FORM("whoto")&" 就是一拳: "&usersays&"

"

case "脚踢"

chats(counter)=""&usertime&" "&username&" 凌空一腿踢在 "&request.FORM("whoto")&" 脑袋上: "&usersays&"

"

case "告戒"

chats(counter)=""&usertime&" "&username&" 拉着 "&request.FORM("whoto")&" 手语气心长地说: "&usersays&"

"

case "耳光"

chats(counter)=""&usertime&" "&username&" 狠狠地掴了 "&request.FORM("whoto")&" 几个耳光: "&usersays&"

"

case "鞠躬"

chats(counter)=""&usertime&" "&username&" 毕恭毕敬地向 "&request.FORM("whoto")&" 弯腰鞠躬: "&usersays&"

"

case "歉意"

chats(counter)=""&usertime&" "&username&" 感到十二分的歉意，低声对 "&request.FORM("whoto")&" 说: "&usersays&"

"

case "惊讶"

chats(counter)=""&usertime&" "&username&" 惊讶的对 "&request.FORM("whoto")&" 吐了吐舌头: "&usersays&"

"

case "哈欠"

chats(counter)=""&usertime&" "&username&" 对 "&request.FORM("whoto")&" 张大嘴巴，打了个哈欠: "&usersays&"

"

case "微笑"

chats(counter)=""&usertime&" "&username&" 对 "&request.FORM("whoto")&" 微微一笑: "&usersays&"

"

case "握手"

chats(counter)=""&usertime&" "&username&" 紧紧的握住 "&request.FORM("whoto")&" 的手: "&usersays&"

"

case "耸肩"

chats(counter)=""&usertime&" "&username&" 对着 "&request.FORM("whoto")&" 耸耸双肩: "&usersays&"

"

case "安慰"

chats(counter)=""&usertime&" "&username&" 拍拍 "&request.FORM("whoto")&" 的肩膀，双眼关切的说: "&usersays&"

"

case "生气"

chats(counter)=""&usertime&" "&username&" 气鼓鼓的嘟嘴对 "&request.FORM("whoto")&" 道: "&usersays&"

"

case "大哭"

chats(counter)=""&usertime&" "&username&" 忍不住对着 "&request.FORM("whoto")&" 放声大哭: "&usersays&"

"

case "抽泣"

chats(counter)=""&usertime&" "&username&" 双手捂着脸，对着 "&request.FORM("whoto")&" 呜呜咽咽的: "&usersays&"

"

case "承诺"

chats(counter)=""&usertime&" "&username&" 对着 "&request.FORM("whoto")&" 把胸脯拍得噼啪响: "&usersays&"

"

case "不舍"

chats(counter)=""&usertime&" "&username&" 依依不舍地拉着 "&request.FORM("whoto")&" 的衣角: "&usersays&"

"

case "深情"

chats(counter)=""&usertime&" "&username&" 用深情的眼神，痴痴地看着 "&request.FORM("whoto")&" : "&usersays&"

"

case "迷惑"

chats(counter)=""&usertime&" "&username&" 抓抓头皮看着 "&request.FORM("whoto")&" 露出迷惑的神情: "&usersays&"

"

case "不解"

chats(counter)=""&usertime&" "&username&" 用不可思意的眼神看着 "&request.FORM("whoto")&" : "&usersays&"

"

case "幸灾"

chats(counter)=""&usertime&" "&username&" 幸灾乐祸地对 "&request.FORM("whoto")&" 说: "&usersays&"

"

case "大笑"

chats(counter)=""&usertime&" "&username&" 对着 "&request.FORM("whoto")&" 捧腹大笑: "&usersays&"

"

case "皱眉"

chats(counter)=""&usertime&" "&username&" 皱着眉头对 "&request.FORM("whoto")&" : "&usersays&"

"

case "委屈"

chats(counter)=""&usertime&" "&username&" 很委屈地看着 "&request.FORM("whoto")&" 眼泪哗啦啦地往下流: "&usersays&"

"

case "高兴"

chats(counter)=""&usertime&" "&username&" 兴高采烈地对 "&request.FORM("whoto")&" 说: "&usersays&"

"

case "沮丧"

chats(counter)=""&usertime&" "&username&" 满脸沮丧地对 "&request.FORM("whoto")&" 说: "&usersays&"

"

case "失望"

chats(counter)=""&usertime&" "&username&" 垂头丧气地对 "&request.FORM("whoto")&" 说: "&usersays&"

"

case "神经"

chats(counter)=""&usertime&" "&username&" 神经兮兮地对 "&request.FORM("whoto")&" 说: "&usersays&"

"

case "神秘"

chats(counter)=""&usertime&" "&username&" 非常神秘地对 "&request.FORM("whoto")&" 说: "&usersays&"

"

case "撒娇"

chats(counter)=""&usertime&" "&username&" 拉着 "&request.FORM("whoto")&" 手撒娇: "&usersays&"

"

case "鬼脸"

chats(counter)=""&usertime&" "&username&" 对着 "&request.FORM("whoto")&" 做了个鬼脸: "&usersays&"

"

case "无奈"

chats(counter)=""&usertime&" "&username&" 对着 "&request.FORM("whoto")&" 很无奈地: "&usersays&"

"

end select

'是耳语

else

'耳语处理

application("chat")=""&usertime&" "&username&" 悄悄地对 "&request.FORM("whoto")&" 耳语: "&usersays&"

"

'对谁说

application("chatto")=request.FORM("whoto")

'说话的人

application("owner")=username

session("chat")="true"

end if

'谈话全局化

application("chats")=chats

application.unlock

end if

上面的程序是把用户的发言和动作以及说话对象生成html语句并保存起来。用以后面的在聊天室中显示出来，其中请大家注意一下耳语是保存在application("chat")这个全局应用程序对象中的。好了，下节先为大家详细分析一下说话的内容是如何处理。

聊天室程序是一个application和session对象结合性很强的asp程序。首先，它比较具有实时性，聊天速度太慢，那么没有人会喜欢的，而且在多人同时发言的时侯，如果程序处理不好，那么难免会发生张官李戴的现象，比如说明明张三说的话在先。李四说的话在后，但显示出来的结果却是倒转了。还有就是每个客户端显示的谈话内容不同步。(这里强调一点，聊天室的谈话内容自动更新方式主要是两种，一种是服务器自动更新，也就是它的聊天显示内容区是一个正在打开中的html流，每当服务器接收到用户的谈话内容就会发送到用户的浏览器中。另一种是用户端定时向服务器端发出更新请求。后者的实时性没前者强。但制作起来简单，要完成服务器端自动更新，光靠asp是无法完成的。因为ASP没有内置的延时功能。现在所举例的聊天室主要是以后者来说明的，但方法同样可以前者里使用)

要解决多个用户同时发言以及显示的顺序问题，那么就必须为谈话内容建立一个缓冲区，就好象操作系统的键盘缓冲区的功能一样，即使系统正在忙于处理别的任务，但还是可以准确地接受用户输入。

上面的程序例子：

dim chats(20)

for n=1 to 20

chats(n)=application("chats")(n)

就是建立了一个20个元素的chats数组，那么只需要再建立一个全局公用的计数器(用application对象来保存)，用以指示当前最新的发言内容是在那一个元素当中。而每个用户又定义一个session对象的计数器。用以记录当前聊天者本机显示的信息是显示到那一条谈话记录上。两者之差的谈话内容都必须在下一次更新说话内容的时侯显示出来。

chats数组作为一个谈话缓冲区，是需要循环使用的。比如第一句发言的保存在chats(1)中，第二十句则保存在chats(20)中，而第二十一句则重新使用chats(1)来保存，而把第一句的内容覆盖掉。而chats数组只是用于处理公共的谈话内容。也就是不是“悄悄话”如果把悄悄话也作为一条新的信息保存在这里，那么就会影响的计数器了。因为对于非悄悄话的聊天对象来说。这句话是无意义的。为了减少条件判断，就把悄悄话另外用application("chat")这个应用对象变量来保存。在悄悄话的处理用，小虎并没有使用缓冲区，因此当同一聊天室内多个网友同时使用悄悄话功能时，就可能出现有的悄悄话在没被显示出来之前，被漏掉的缺点，大家不妨可以发挥自己的智慧去改进一下哦：)

当处理完chats的对话内容后。必须把它重新存储到application("chats")(n)这个全局的谈话缓冲区中，那样才能让所有用户共享对话内容。

下面是对耳语的谈话处理

'耳语处理

application("chat")=""&usertime&" "&username&" 悄悄地对 "&request.FORM("whoto")&" 耳语: "&usersays&"

"

'对谁说

application("chatto")=request.FORM("whoto")

'说话的人

application("owner")=username

session("chat")="true"

end if

session("chat")是一个用来记录用户是否有悄悄话的标记，当更新对话内容的时候，就通过判断这个标记来判断是否有悄悄话产生。同时。通过applicaton("chat")记录对话内容，applicaton("chatto")悄悄话的对象，application("owner")保存发言者本人(别忘了悄悄话是自己和接受悄悄话的对方可以看见的哦：(，还有，当对ALL(所有人)发悄悄话时，大家都应能看见这句瞧瞧话。

当发言内容都分别进入了application("chats")(n)和applicaton("chat")这两个谈话缓冲区后。下一步要做的就是显示出对话内容了。这里先向大家提一下如何实现聊天事的定时刷新(客户端主动)

在我们的html文件的头有一个这样的标记

这里示了html文档的更新类行，上面这个标记就是把本文档按2.5秒的速度不断自动刷新，那么利用这一点，就可以实现自动更新对话内容了。我们使用的显示对话的asp文件名为top.asp。下一节大家一起来看看它的结构。

上两节介绍了如何处理聊天室内的谈话内容以及悄悄话的特殊处理，至此。我们去看看谈话内容是如何在客户端显示出来的。请先看看我们的显示对话文件(top.asp)

＊top.asp

<% @language="vbscript" %>

Response.Expires=0

'response.buffer=true

" topmargin="0" leftmargin="0">

<%=application("zj_1title")%>

if session("userzj_1")="" then

session("userzj_1")=""

session("zj_1level")=""

session("zj_1start")=""

session("zj_1total")=0

session("zj_1boot")=""

session("zj_1counter")=0

session("zj_1open")=""

'session.abandon

parent.location="timeout.htm"

response.end

end if

'是否在捣乱？

for n=1 to 40

if session("userzj_1")=application("peoplezj_1"&n) then

exit for

end if

if n=40 then

session("zj_1boot")="true"

parent.location="boot.htm"

end if

if session("zj_1counter")<>application("zj_1counter") then

if session("zj_1counter")

for I=session("zj_1counter")+1 to application("zj_1counter")

parent.middle.document.writeln("")

else

for I=session("zj_1counter") to 20

if application("zj_1counter")<>1 then

parent.middle.document.writeln("")

end if

for I=1 to application("zj_1counter")

parent.middle.document.writeln("")

end if

if session("zj_1open")="true" then

session("zj_1counter")=application("zj_1counter")

end if

'公告

if session("zj_1public")<>application("zj_1public") then

parent.middle.document.writeln("")

session("zj_1public")=application("zj_1public")

end if

'有耳语吗？

if session("zj_1chat")<>application("zj_1chat") then

if application("zj_1owner")=session("userzj_1") or application("zj_1chatto")=session("userzj_1") or application("zj_1chatto")="ALL" then

parent.middle.document.writeln("")

end if

session("zj_1chat")=application("zj_1chat")

end if

application("peoplezj_1_appear"&n)

count=0

for n=1 to 40

if application("peoplezj_1"&n)<>"" then

count=count+1

end if

if session("zj_1total")<>count then

session("zj_1total")=count

session("zj_1refresh")="true"

end if

response.flush

聊天室具备了管理(把不受欢迎的人踢出聊天室，公告等的功能，因此与发言处理和悄悄话功能无关的部分小虎不作解说了。

前面我们用了一个application("zj_1counter")的公有对象来保存最新发言所在的缓冲元素。用session("zj_1counter")来保存当前用户本身已显示的对话元素。在每次调用top.asp这个文件，只要对比出session("zj_1counter")与application("zj_1counter")的取值不同，就可以得知需要显示新的交谈发言。而每次完成显示，又必须把两个计数值统一个。不然就会发生重复显示对话内容的错误了。

又于缓冲区是循环使用的，比如说当前用户现示的对话内容是存储在application("chats")(18)中，而新的发言已经重新回到application("chats")(2)了，因此本次需要显示４条发言，上面的详细处理解说小虎不做了。大家仔细看看。然后想一想，是很容易明白的。

又于耳语和公共对话application("chat")(n)是分开处理的，因此公有对话处理完毕后，就到了耳语的处理。耳语标志是session("chat")(它用来存储上一次的耳语内容，当对比出application("chat")本次的耳语内容于上次的不符，就可以得知需要显示耳语了，当耳语显示后，别忘了把session("chat")与application("chat")同步哦，不然耳语就在你耳边“响”个不停，吵死了。。

这里向大家介绍了处理耳语的一种方法，做聊天室的方法很多。好与坏会影响到聊天室的性能(速度。。容错性等等)。制作一个好的聊天室是很有技巧的。在这一点上。小虎感到自己的聊天室还是做的不算好。有待改进。

本例子的聊天室地址：http://active.t500.net。欢迎大家作客“素素心语

＊注程序中的session("zj_1chat")与解说中的session("chat")实际是同一个变量，application("zj_1chats")(n)等也是如此类推。。。麻烦大家留意一下。小虎不去修改程序中的不同之处了

我曾经做过一个比较复杂的聊天室，几乎拥有BBS聊天室的所有功能，但因为是用application做的，所以比较浪费资源。我觉得用数据库做更可靠，更简单。

可以设定这样的一个数据库chat，结构如下：

字段名类型长度备注

1.. OBJECT CHAR 10 操作对象，ALL或某人

2.. MSG CHAR 250 消息内容

3.. TIME DATETIME 发送时间

4.. SENDER CHAR 10 发送人

5.. ROOM CHAR 10 房间名，发送人所处房间

在通常情况下OBJECT为ALL，当需要说悄悄话时可以指定某人。

显示内容时，只要一句“Select * from chat where object='all' or object='" & session("userid") & "'"就可以了。Session(”USER ID“)是当前用户的身份认证。

如此，每个用户看到的聊天内容都是自己“应该”看到的。如果配合另外一些数据表，如ROOM，USER，则还可以完成诸如隐身、踢人、开房间、关房间、隐藏房间等功能，如果再加上一个表情配置文件ＥＭＯＴＥ。ＴＸＴ就可以做表情动作了。当然，这么做就需要在发送信息是有一个解释程序，用以判断用户输入的是何种命令，并相应修改数据表。

roking:roking@21cn.com

先说一下整体构思：采用application对象保存所有聊天公用信息，如访问者ID、房间状态、公聊信息等，同时为每个人用Senssion对象保存和个人相关的信息，如：表情、颜色、谈话目标ＩＤ等。

用户的显示区从application对象中取出公聊信息并加上针对自己的私聊一同显示。。。。

nikl:nikl@163.net

“悄悄话”只须用Application和Session两个内建对象就可以轻松实现具体如下，希望能帮到忙！

在用户登陆时分别为他建立独立的Application & Session对象。例如有三个用户nikl hero viki在他们登陆时用ASP的Request分别取得三个用户名并存入一个变量(如name)然后作Session和Application的初始化：

Session("Uname")=name

Application(who)=""

耳语信息存在变量 say 中，交谈对象存在who。例如：

nikl to viki : 你吃饭了吗？

服务器端执行代码,经过条件判断后执行耳语传入操作，谈话内容“你吃饭了吗？”及交谈对象“VIKI”并分别赋于变量 say 和 who；信息(你吃饭了吗？)传入Application("viki")中了(代码：Application(who)=say)，目的用户端只要刷新Application(Session"Uname")变量就可以看到信息了，程序结束。

请留意：

在VIKI端的实际是 (在VIKI登陆时Session("Uname")已定义为“VIKI”并存在浏览器)因而，当信息内容框刷新时Session("Uname")将被“VIKI”替换，VIKI就可以看到NIKL发送来的耳语信息，而hero端实际是这个变量是空的因而hero就看不到NIKL发送给VIKI的信息。就这样巧妙地完成了一次耳语的传送。