实现聊天室的悄悄话功能（上）（转贴）

‘’取得说话内容,并过滤其中的脚本语句   
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)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 :《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
else   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》与《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》说《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
end if   
case "叫嚷"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》冲《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》大叫《/i》:《B》《font color=#0000aa》 "&usersays&"《/font》《/B》《BR》《BR》"   
case "亲亲"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》亲了亲《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》的脸颊《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "拥抱"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》轻轻的抱着《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "暴怒"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》朝《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》横眉竖目道《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "轻推"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》轻轻地推了推《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》的胳膊《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "傻笑"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》傻兮兮的朝《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》笑笑《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "拳打"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》对准《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》就是一拳《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "脚踢"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》凌空一腿踢在《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》脑袋上《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "告戒"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》拉着《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》手语气心长地说《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "耳光"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》狠狠地掴了《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》几个耳光《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "鞠躬"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》毕恭毕敬地向《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》弯腰鞠躬《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "歉意"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》感到十二分的歉意，低声对《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》说《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "惊讶"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》惊讶的对《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》吐了吐舌头《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "哈欠"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》对《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》张大嘴巴，打了个哈欠《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "微笑"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》对《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》微微一笑《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "握手"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》紧紧的握住《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》的手《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "耸肩"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》对着《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》耸耸双肩《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "安慰"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》拍拍《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》的肩膀，双眼关切的说《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "生气"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》气鼓鼓的嘟嘴对《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》道《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "大哭"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》忍不住对着《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》放声大哭《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "抽泣"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》双手捂着脸，对着《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》呜呜咽咽的《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "承诺"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》对着《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》把胸脯拍得噼啪响《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "不舍"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》依依不舍地拉着《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》的衣角《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "深情"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》用深情的眼神，痴痴地看着《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "迷惑"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》抓抓头皮看着《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》露出迷惑的神情《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "不解"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》用不可思意的眼神看着《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "幸灾"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》幸灾乐祸地对《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》说《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
case "大笑"   
chats(counter)="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》对着《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》捧腹大笑《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
  
  
end select   
  
‘’是耳语   
else   
  
‘’耳语处理   
application("chat")="《font color=blue》"&usertime&"《/font》 《font color=black》"&username&"《/font》 《i》悄悄地对《font color=#00bb00》 "&request.FORM("whoto")&" 《/font》耳语《/i》:《font color=#0000aa》 "&usersays&"《/font》《BR》《BR》"   
‘’对谁说   
application("chatto")=request.FORM("whoto")   
‘’说话的人   
application("owner")=username   
session("chat")="true"   
end if   
  
  
‘’谈话全局化   
application("chats")=chats   
  
  
application.unlock   
  
  
end if   
  
  
　　上面的程序是把用户的发言和动作以及说话对象生成html语句并保存起来。用以后面的在聊天室中显示出来，其中请大家注意一下耳语是保存在application("chat")这个全局应用程序对象中的。好了，下节先为大家详细分析一下说话的内容是如何处理。   
  
  
  

原文转自：http://www.ltesting.net