Rss订阅

首页 »Asp教程 » qq聊天室私聊:聊天室实现私聊(一) »正文

qq聊天室私聊:聊天室实现私聊(一)

来源: 发布时间:星期四, 2009年2月12日浏览:115次评论:0

几个要好

网友在聊天室里闲聊

时侯

总会遇上有些话题是不想同

聊天室内别

聊友看见

那么聊天室支持悄悄话功能将是什分有必要

了

实现悄悄话

思路方法很多

现在小虎介绍

下利用session对象来实现它

用session对象来实现悄悄话

是有优缺点

session对象

应用

其实就是客户端cookies

使用

如果客户端cookies不支持或关闭了

那么

运行起来就有问题了

那么使用session对象就没好处了吗？？非也

至少在编程上大大减少了工作量嘛

试想

下如果需要保存该用户

聊天名字

那么使用session对象就能直接保存他

名字了

如果没有session对象

解决

思路方法看来就只有在处理发言

FORM里设几个隐含

textbox对象来保存

这样处理起来会比教烦锁

但好处是通用性广

就算浏览器不支持cookies仍然可用

说到这里

大伙不妨试试网上众多

ASP聊天室

试把浏览器

安全选项(总是接受cookies关了)看看那个聊天室仍然正常地能使用

那个就问题百出来

呵呵～～不要找小虎

聊天室来试哦....我

聊天室也需要cookies来支持

不用session对象编程真是烦锁很多

而且大部分浏览器

安全配置

默认值是总是接受cookies

所以也不用太但心

只有少部分

用户是比教特别

现在从聊天室

发言开始

到处理发言

显示发言

步

步地让大家了解

下是如何处理

最后就加上悄悄话功能

　　首先

我们

聊天室主要提供如下元素:发言人(你

名字)

动作(叫嚷

抱抱...等)

对象(这句话是向谁说

呢？)

发言内容等 4大元素

　　其中发言人(你

聊天名字)

名字是保存在发言FORM

user隐藏文本框中

这样每当发言

时侯

在处理发言

says.asp

里

就可以用request.form("user")来取得聊天名字

而动作则是由下拉框action来提供

你可以自定义很多

动作类型

以满足区别聊友

需要

而发言对象

也是由下拉框whoto来选定

这些名单是列出当前聊天室内所有用户

名称

如何判断有新用户进聊天室以及退出处理

这里先不说了

构造

个完整

聊天室要做

工作还是挺多

最后由

个says文本框提供发言内容

　　有了这几个主要

聊天元素

我们就可以进行发言处理了

　　请看看下面

片段

　

\'取得说话内容,并过滤其中

脚本语句
usersays=request.form("says")

instr(usersays,"<script")>0 then
usersays=""
end

\'判断是否有谈话内容

没有

话就不作处理

len(usersays)<>0 then
session("whoto")=request.form("whoto")
session("action")=request.form("action")

instr(usersays,chr(39))>0 then
usersays=replace(usersays,chr(39),"\\"&chr(39))
end

instr(usersays,chr(34))>0 then
usersays=replace(usersays,chr(34),"\\"&chr(34))
end

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")

application("counter")>19 then
application("counter")=0
end

\'不是耳语就加

request.form("action")<>"耳语" then
application("counter")=application("zj_1counter")+1
counter=application("zj_1counter")
\'用户

动作处理

select

request.FORM("action")

"说话"

request.FORM("whoto")="ALL" then
chats(counter)=""&usertime&" "&username&" : "&usersays&" "

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

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

"亲亲"
chats(counter)=""&usertime&" "&username&" 亲了亲 "&request.FORM("whoto")&"

脸颊: "&usersays&" "

"拥抱"
chats(counter)=""&usertime&" "&username&" 轻轻

抱着 "&request.FORM("whoto")&" : "&usersays&" "

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

"轻推"
chats(counter)=""&usertime&" "&username&" 轻轻地推了推 "&request.FORM("whoto")&"

胳膊: "&usersays&" "

"傻笑"
chats(counter)=""&usertime&" "&username&" 傻兮兮

朝 "&request.FORM("whoto")&" 笑笑: "&usersays&" "

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

拳: "&usersays&" "

"脚踢"
chats(counter)=""&usertime&" "&username&" 凌空

腿踢在 "&request.FORM("whoto")&" 脑袋上: "&usersays&" "

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

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

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

"歉意"
chats(counter)=""&usertime&" "&username&" 感到十 2分

歉意

低声对 "&request.FORM("whoto")&" 说: "&usersays&" "

"惊讶"
chats(counter)=""&usertime&" "&username&" 惊讶

对 "&request.FORM("whoto")&" 吐了吐舌头: "&usersays&" "

"哈欠"
chats(counter)=""&usertime&" "&username&" 对 "&request.FORM("whoto")&" 张大嘴巴

打了个哈欠: "&usersays&" "

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

笑: "&usersays&" "

"握手"
chats(counter)=""&usertime&" "&username&" 紧紧

握住 "&request.FORM("whoto")&"

手: "&usersays&" "

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

"安慰"
chats(counter)=""&usertime&" "&username&" 拍拍 "&request.FORM("whoto")&"

肩膀

双眼关切

说: "&usersays&" "

"生气"
chats(counter)=""&usertime&" "&username&" 气鼓鼓

嘟嘴对 "&request.FORM("whoto")&" 道: "&usersays&" "

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

"抽泣"
chats(counter)=""&usertime&" "&username&" 双手捂着脸

对着 "&request.FORM("whoto")&" 呜呜咽咽

: "&usersays&" "

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

"不舍"
chats(counter)=""&usertime&" "&username&" 依依不舍地拉着 "&request.FORM("whoto")&"

衣角: "&usersays&" "

"深情"
chats(counter)=""&usertime&" "&username&" 用深情

眼神

痴痴地看着 "&request.FORM("whoto")&" : "&usersays&" "

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

神情: "&usersays&" "

"不解"
chats(counter)=""&usertime&" "&username&" 用不可思意

眼神看着 "&request.FORM("whoto")&" : "&usersays&" "

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

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

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

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

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

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

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

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

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

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

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

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

\'是耳语

\'耳语处理
application("chat")=""&usertime&" "&username&" 悄悄地对 "&request.FORM("whoto")&" 耳语: "&usersays&" "
\'对谁说
application("chatto")=request.FORM("whoto")
\'说话

人
application("owner")=username
session("chat")="true"
end

\'谈话全局化
application("chats")=chats

application.unlock

end

　　上面

是把用户

发言和动作以及说话对象生成html语句并保存起来

用以后面

在聊天室中显示出来

其中请大家注意

下耳语是保存在application("chat")这个全局应用

对象中

好了

下节先为大家详细分析

下说话

内容是如何处理

标签：网聊语音聊天室网聊聊天室 qq聊天室私聊

下载文章的 PDF文档电子版离线看

我顶

专注于互联网--专注于架构

首页 »Asp教程 » qq聊天室私聊:聊天室实现私聊(一) »正文

qq聊天室私聊:聊天室实现私聊(一)

相关文章

读者评论

发表评论

热门标签

精华推荐

最新标签

Dig排行

阅读排行

最新文章