'取得说话内容,并过滤其中的脚本语句
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")这个全局应用程序对象中的。好了，下节先为大家详细分析一下说话的内容是如何处理。
关键词：完成聊天室的悄悄话技巧（上）（转贴）