I wrote my own chat room source code (10

Chat Room | Source code for i = 1 to My_point
If i = My_point Then
Session ("ss_oldpoint") = My_point-1
If session ("Ss_oldpoint") < 1 Then
Session ("ss_oldpoint") = 50
End If
Sc_xx = 1
Exit For
End If
j = j+1
' Create a statement
My_message1 (j) = ""
' Distinguish the categories of words
' logo bit: 1 kicking, 2 forbidden to speak, 3 forbidden to browse, 4 public words, 5 whispers, 6 actions, 7 entry, 8 exit
Select Case My_message (i,5)
Case "1"
' Kicking people
My_message1 (j) = "<font color= ' #008000 ' > System message (Kicking person):</font>"
My_message1 (j) = My_message1 (j) + My_message (i,6) + my_message (i,3)
My_message1 (j) = My_message1 (j) + "[<small>" + my_message (i,7) + "&LT;/SMALL&GT;]" + "</font>"
Case "2"
' No talking
My_message1 (j) = "<font color= ' #008000 ' > System message (No talking):</font>"
My_message1 (j) = My_message1 (j) + My_message (i,6) + my_message (i,3)
My_message1 (j) = My_message1 (j) + "[<small>" + my_message (i,7) + "&LT;/SMALL&GT;]" + "</font>"
Case "3"

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] Next page >>