聊天室实现私聊第1/4页(7)

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")这个全局应用程序对象中的。好了，下节先为大家详细分析一下说话的内容是如何处理。