我自己写的聊天室源代码（十_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)
                            my_message1(j) = my_message1(j) + "[<small>" + my_message(i,7) + "</small>]" + "</font>"
                        case "2"
                            '禁止说话
                            my_message1(j) = "<font color='#008000'>系统消息（禁止说话）：</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) + "</small>]" + "</font>"
                        case "3"
                            '禁止浏览
                            my_message1(j) = "<font color='#008000'>系统消息（禁止浏览）：</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) + "</small>]" + "</font>"
                        case "4"
                            '公开话
                            '源
                            my_message1(j) = "<strong>" + my_message(i,1) + "</strong>"
                            '表情
                            my_message1(j) = my_message1(j) + "<font color='#FF00FF'><small>" + my_message(i,4) + "</small></font>，"
                            my_message1(j) = my_message1(j) + "<font color='#FF0000'><small>" + "对" + "</small></font>"
                            '目标
                            my_message1(j) = my_message1(j) + "<strong>" + my_message(i,2) + "</strong>"
                   &

上一个：我自己写的聊天室源代码（十_2）
下一个：Java Mail API及其应用 —— 一个邮件列表服务器的实现 （三）（转贴）