'取得说话内容,并过滤其中的脚本语句 
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")这个全局应用程序对象中的。好了，下节先为大家详细分析一下说话的内容是如何处理。