程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> 聊天室實現私聊第1/4頁

聊天室實現私聊第1/4頁

編輯：關於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")這個全局應用程序對象中的。好了，下節先為大家詳細分析一下說話的內容是如何處理。
當前1/4頁 1234下一頁閱讀全文