聊天室实现私聊- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 聊天室实现私聊

技术文章搜索

关键字

ASP 中的聊天室实现私聊

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 116 ::

收藏到网摘: n/a

利用ASP规划聊天室多域名绑定到一个空间访问不同首页的技巧

几个要好的网友在聊天室里闲聊的时侯，总会遇上有些话题是不想同一聊天室内别的聊友看见的，那么聊天室支持悄悄话功能将是什分有必要的了，实现悄悄话的方法很多，现在小虎介绍一下利用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,"<script")>0 then
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)
next
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)
next
　　就是建立了一个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文件的头有一个这样的标记
<meta http-equiv="refresh" content="2.5">
这里示了html文档的更新类行，上面这个标记就是把本文档按2.5秒的速度不断自动刷新，那么利用这一点，就可以实现自动更新对话内容了。我们使用的显示对话的asp文件名为top.asp。下一节大家一起来看看它的结构。
上两节介绍了如何处理聊天室内的谈话内容以及悄悄话的特殊处理，至此。我们去看看谈话内容是如何在客户端显示出来的。请先看看我们的显示对话文件(top.asp)
＊top.asp
　
<% @language="vbscript" %>
<%
Response.Expires=0
'response.buffer=true
%>
<meta http-equiv="refresh" content="2.5">
<body bgcolor="<%=application("zj_1color")%>" topmargin="0" leftmargin="0">
<center><%=application("zj_1title")%></center>
<%
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
%>
<script LANGUAGE="javascript">
parent.location="timeout.htm"
</script>
<%
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"
%>
<script LANGUAGE="javascript">
parent.location="boot.htm"
</script>
<%
end if
next
%>
<script LANGUAGE="javascript">
<%
if session("zj_1counter")<>application("zj_1counter") then
if session("zj_1counter")<application("zj_1counter") then
for I=session("zj_1counter")+1 to application("zj_1counter")
%>
parent.middle.document.writeln("<%=application("zj_1chats")(I)%>")
<%
next
else
for I=session("zj_1counter") to 20
if application("zj_1counter")<>1 then
%>
parent.middle.document.writeln("<%=application("zj_1chats")(I)%>")
<%
end if
next
for I=1 to application("zj_1counter")
%>
parent.middle.document.writeln("<%=application("zj_1chats")(I)%>")
<%
next
end if
if session("zj_1open")="true" then
session("zj_1counter")=application("zj_1counter")
end if
end if
'公告
if session("zj_1public")<>application("zj_1public") then
%>
parent.middle.document.writeln("<%=application("zj_1public")%>")
<%
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("<%=application("zj_1chat")%>")
<%
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
next
if session("zj_1total")<>count then
session("zj_1total")=count
session("zj_1refresh")="true"
%>
</script>
<%
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:[email protected]
　　先说一下整体构思：采用application对象保存所有聊天公用信息，如访问者ID、房间状态、公聊信息等，同时为每个人用Senssion对象保存和个人相关的信息，如：表情、颜色、谈话目标ＩＤ等。
　　用户的显示区从application对象中取出公聊信息并加上针对自己的私聊一同显示。。。。

nikl:[email protected]
“悄悄话”只须用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端的<%=Application(Session("name"))%>实际是<%=Application(VIKI))%> （在VIKI登陆时Session("Uname")已定义为“VIKI”并存在浏览器）因而，当信息内容框刷新时Session("Uname")将被“VIKI”替换，VIKI就可以看到NIKL发送来的耳语信息，而hero端<%=Application(Session("Uname"))%>实际是<%=Application(hero)%>这个变量是空的因而hero就看不到NIKL发送给VIKI的信息。就这样巧妙地完成了一次耳语的传送。

利用ASP规划聊天室多域名绑定到一个空间访问不同首页的技巧

ASP 中的 聊天室实现私聊

评论 (0) All

ASP 中的聊天室实现私聊