聊天室實(shí)現(xiàn)私聊(一)

2019-11-18 22:45:47

字體：大中小

供稿：網(wǎng)友

作者:網(wǎng)絡(luò)之門

　　幾個(gè)要好的網(wǎng)友在聊天室里閑聊的時(shí)侯，總會(huì)遇上有些話題是不想同一聊天室內(nèi)別的聊友看見的，那么聊天室支持悄悄話功能將是什分有必要的了，實(shí)現(xiàn)悄悄話的方法很多，現(xiàn)在小虎介紹一下利用session對(duì)象來實(shí)現(xiàn)它，用session對(duì)象來實(shí)現(xiàn)悄悄話，是有優(yōu)缺點(diǎn)的，因?yàn)閟ession對(duì)象的應(yīng)用，其實(shí)就是客戶端cookies的使用。如果客戶端cookies不支持或關(guān)閉了，那么程序運(yùn)行起來就有問題了。那么使用session對(duì)象就沒好處了嗎？？非也，至少在編程上大大減少了工作量嘛，試想一下如果需要保存該用戶的聊天名字，那么使用session對(duì)象就能直接保存他的名字了，如果沒有session對(duì)象。解決的方法看來就只有在處理發(fā)言的FORM里設(shè)幾個(gè)隱含的textbox對(duì)象來保存，這樣處理起來會(huì)比教煩鎖，但好處是通用性廣，就算瀏覽器不支持cookies仍然可用。

說到這里，大伙不妨試試網(wǎng)上眾多的asp聊天室，試把瀏覽器的安全選項(xiàng)（總是接受cookies關(guān)了）看看那個(gè)聊天室仍然正常地能使用。那個(gè)就問題百出來。。呵呵～～不要找小虎的聊天室來試哦....我的聊天室也需要cookies來支持的。不用session對(duì)象編程真是煩鎖很多。而且大部分瀏覽器的安全配置的默認(rèn)值是總是接受cookies。所以也不用太但心，只有少部分的用戶是比教特別的。

現(xiàn)在從聊天室的發(fā)言開始，到處理發(fā)言，顯示發(fā)言，一步一步地讓大家了解一下是如何處理的，最后就加上悄悄話功能

　　首先，我們的聊天室主要提供如下元素：發(fā)言人（你的名字），動(dòng)作（叫嚷，抱抱...等），對(duì)象（這句話是向誰(shuí)說的呢？），發(fā)言內(nèi)容等四大元素。

　　其中發(fā)言人（你的聊天名字）的名字是保存在發(fā)言FORM的user隱藏文本框中，這樣每當(dāng)發(fā)言的時(shí)侯，在處理發(fā)言的says.asp程序里，就可以用request.form("user")來取得聊天名字。而動(dòng)作則是由下拉框action來提供的，你可以自定義很多的動(dòng)作類型，以滿足不同聊友的需要。而發(fā)言對(duì)象，也是由下拉框whoto來選定，這些名單是列出當(dāng)前聊天室內(nèi)所有用戶的名稱。如何判斷有新用戶進(jìn)聊天室以及退出處理，這里先不說了。因?yàn)闃?gòu)造一個(gè)完整的聊天室要做的工作還是挺多的。最后由一個(gè)says文本框提供發(fā)言內(nèi)容。

　　有了這幾個(gè)主要的聊天元素。我們就可以進(jìn)行發(fā)言處理了。

　　請(qǐng)看看下面的程序片段

'取得說話內(nèi)容,并過濾其中的腳本語(yǔ)句
usersays=request.form("says")
if instr(usersays,"<script")>0 then
usersays=""
end if

'判斷是否有談話內(nèi)容，沒有的話就不作處理

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

'定義一個(gè)交談緩沖區(qū)，后面將給大家仔細(xì)分析一下

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
'不是耳語(yǔ)就加一
if request.form("action")<>"耳語(yǔ)" then
application("counter")=application("zj_1counter")+1
counter=application("zj_1counter")
'用戶的動(dòng)作處理

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&" 對(duì)準(zhǔn) "&request.FORM("whoto")&" 就是一拳: "&usersays&" "
case "腳踢"
chats(counter)=""&usertime&" "&username&" 凌空一腿踢在 "&request.FORM("whoto")&" 腦袋上: "&usersays&" "
case "告戒"
chats(counter)=""&usertime&" "&username&" 拉著 "&request.FORM("whoto")&" 手語(yǔ)氣心長(zhǎng)地說: "&usersays&" "
case "耳光"
chats(counter)=""&usertime&" "&username&" 狠狠地?fù)澚?lt;font color=#00bb00> "&request.FORM("whoto")&" 幾個(gè)耳光: "&usersays&" "
case "鞠躬"
chats(counter)=""&usertime&" "&username&" 畢恭畢敬地向 "&request.FORM("whoto")&" 彎腰鞠躬: "&usersays&" "
case "歉意"
chats(counter)=""&usertime&" "&username&" 感到十二分的歉意，低聲對(duì) "&request.FORM("whoto")&" 說: "&usersays&" "
case "驚訝"
chats(counter)=""&usertime&" "&username&" 驚訝的對(duì) "&request.FORM("whoto")&" 吐了吐舌頭: "&usersays&" "
case "哈欠"
chats(counter)=""&usertime&" "&username&" 對(duì) "&request.FORM("whoto")&" 張大嘴巴，打了個(gè)哈欠: "&usersays&" "
case "微笑"
chats(counter)=""&usertime&" "&username&" 對(duì) "&request.FORM("whoto")&" 微微一笑: "&usersays&" "
case "握手"
chats(counter)=""&usertime&" "&username&" 緊緊的握住 "&request.FORM("whoto")&" 的手: "&usersays&" "
case "聳肩"
chats(counter)=""&usertime&" "&username&" 對(duì)著 "&request.FORM("whoto")&" 聳聳雙肩: "&usersays&" "
case "安慰"
chats(counter)=""&usertime&" "&username&" 拍拍 "&request.FORM("whoto")&" 的肩膀，雙眼關(guān)切的說: "&usersays&" "
case "生氣"
chats(counter)=""&usertime&" "&username&" 氣鼓鼓的嘟嘴對(duì) "&request.FORM("whoto")&" 道: "&usersays&" "
case "大哭"
chats(counter)=""&usertime&" "&username&" 忍不住對(duì)著 "&request.FORM("whoto")&" 放聲大哭: "&usersays&" "
case "抽泣"
chats(counter)=""&usertime&" "&username&" 雙手捂著臉，對(duì)著 "&request.FORM("whoto")&" 嗚嗚咽咽的: "&usersays&" "
case "承諾"
chats(counter)=""&usertime&" "&username&" 對(duì)著 "&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 "幸災(zāi)"
chats(counter)=""&usertime&" "&username&" 幸災(zāi)樂禍地對(duì) "&request.FORM("whoto")&" 說: "&usersays&" "
case "大笑"
chats(counter)=""&usertime&" "&username&" 對(duì)著 "&request.FORM("whoto")&" 捧腹大笑: "&usersays&" "
case "皺眉"
chats(counter)=""&usertime&" "&username&" 皺著眉頭對(duì) "&request.FORM("whoto")&" : "&usersays&" "
case "委屈"
chats(counter)=""&usertime&" "&username&" 很委屈地看著 "&request.FORM("whoto")&" 眼淚嘩啦啦地往下流: "&usersays&" "
case "高興"
chats(counter)=""&usertime&" "&username&" 興高采烈地對(duì) "&request.FORM("whoto")&" 說: "&usersays&" "
case "沮喪"
chats(counter)=""&usertime&" "&username&" 滿臉沮喪地對(duì) "&request.FORM("whoto")&" 說: "&usersays&" "
case "失望"
chats(counter)=""&usertime&" "&username&" 垂頭喪氣地對(duì) "&request.FORM("whoto")&" 說: "&usersays&" "
case "神經(jīng)"
chats(counter)=""&usertime&" "&username&" 神經(jīng)兮兮地對(duì) "&request.FORM("whoto")&" 說: "&usersays&" "
case "神秘"
chats(counter)=""&usertime&" "&username&" 非常神秘地對(duì) "&request.FORM("whoto")&" 說: "&usersays&" "
case "撒嬌"
chats(counter)=""&usertime&" "&username&" 拉著 "&request.FORM("whoto")&" 手撒嬌: "&usersays&" "
case "鬼臉"
chats(counter)=""&usertime&" "&username&" 對(duì)著 "&request.FORM("whoto")&" 做了個(gè)鬼臉: "&usersays&" "
case "無奈"
chats(counter)=""&usertime&" "&username&" 對(duì)著 "&request.FORM("whoto")&" 很無奈地: "&usersays&" "
end select

'是耳語(yǔ)
else

'耳語(yǔ)處理
application("chat")=""&usertime&" "&username&" 悄悄地對(duì) "&request.FORM("whoto")&" 耳語(yǔ): "&usersays&" "
'對(duì)誰(shuí)說
application("chatto")=request.FORM("whoto")
'說話的人
application("owner")=username
session("chat")="true"
end if

'談話全局化
application("chats")=chats

application.unlock

end if

　　上面的程序是把用戶的發(fā)言和動(dòng)作以及說話對(duì)象生成html語(yǔ)句并保存起來。用以后面的在聊天室中顯示出來，其中請(qǐng)大家注意一下耳語(yǔ)是保存在application("chat")這個(gè)全局應(yīng)用程序?qū)ο笾械?。好了，下?jié)先為大家詳細(xì)分析一下說話的內(nèi)容是如何處理。

上一篇：聊天室實(shí)現(xiàn)私聊(二)

下一篇：返回列表