我自己寫的聊天室原始碼(十

來源:互聯網
上載者:User
聊天室|原始碼                 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"
                  

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一頁    >>  



相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

Starter Package

SSD Cloud server and data transfer for only $2.50 a month

Get Started >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。