聊天室實現(xiàn)私聊第1/4頁

2020-07-27 13:27:19

字體：大中小

來源：轉載

供稿：網友

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

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

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

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

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

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

　　請看看下面的程序片段

　

'取得說話內容,并過濾其中的腳本語句
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

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

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

　　上面的程序是把用戶的發(fā)言和動作以及說話對象生成html語句并保存起來。用以后面的在聊天室中顯示出來，其中請大家注意一下耳語是保存在application("chat")這個全局應用程序對象中的。好了，下節(jié)先為大家詳細分析一下說話的內容是如何處理。

1234下一頁閱讀全文

上一篇：ASP怎么談到應用到類的？

下一篇：利用ASP規(guī)劃聊天室