我自己写的聊天室源代码（十_3）

           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
          '建立语句
          my_message1(j)=""
          '分清说话类别
          '标志位：1踢人，2禁止说话，3禁止浏览，4公开话，5悄悄话，6动作，7进入，8退出
          select case my_message(i,5)
              case "1"
             '踢人
             my_message1(j) = "<font color='#008000'>系统消息（踢人）：</font>"
             my_message1(j) = my_message1(j) + my_message(i,6) + my_message(i,3)