How to Use variables for group chat and whispering?

How to Use variables for group chat and whispering?

<%

If Request. Form ("xt") = "on" then

'Determine whether to whisper.

Application. Lock

'Is whisper,Continue to proceed.

Application (session ("username") = temppos & application (session ("username "))

'Only the speaker and speaker can see the speaker,Implement whisper.
Application (Request. form ("d1") = temppos & application (Request. form ("d1 "))
Application. UnLock
Else

'Group chat,Continue to proceed.
Application ("private") = temppos
P1 = trim (application ("visitorname "))

'Nickname.
Dim aa
For k = 1 to len (p1)

'UseApplication ("visitorname ")To store all chat nickname,Use","Separate,Use this loop to read the nickname of each chat friend..
P2 = mid (p1, k, 1)
If p2 = "," then
Aa = p3
Application. Lock
Application (aa) = application ("private") & application (aa)

'People in the chat room will see this speech.
Application. UnLock
P3 = ""
Else
P3 = p3 & p2
End if %>
<% Next %>

<%
End if

%>

[1]