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

聊天室|源代码

                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] 下一页    >>  

时间： 2024-03-18 20:34:22

我自己写的聊天室源代码（十的相关文章

我自己写的聊天室源代码（前言）

聊天室|源代码 1.本系统完全基于ASP开发,使用application,session2.要求浏览器支持cookie3.系统数据源明:chat4.本系统有以下BUG:(1)不能支持使用:"(2)大量说话时,有可能造成某次不能浏览(3)我实在太懒了^O^5.剩下的都是

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

聊天室|源代码 *****************************聊天处理******************************<%'chatadmin.asp%><%response.buffer = true%><html> <head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title

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

聊天室|源代码 ************************不能进入聊天室*************************<%'nochat.asp%><html> <head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>不能进入聊天室</title><meta name=&qu

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

聊天室|源代码 *************************表情设置**************************<%'optionbq.asp%><html> <head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>表情设置</title><meta name="

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

聊天室|源代码 *************************用户自杀*************************<%'deleteuser.asp%><html> <head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>用户自杀</title><meta name=&quo

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

聊天室|源代码 *********************用户注册***************************************<%'用户注册,userinsert.asp%><%response.buffer = true%><html> <head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">&l

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

聊天室|源代码 1.用户信息管理用于层次标识无意义<%'useradmin.asp%><html> <head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>用户信息管理</title><meta name="GENERATOR" content="Micr

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

聊天室|源代码 <%'初始登录页,default.asp%><html> <head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta name="GENERATOR" content="Microsoft FrontPage 3.0"><title>登录聊天

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

聊天室|源代码 /*表结构设计*//* Microsoft SQL Server - Scripting            *//* Server: SQL2                    *//* Database: chat                    *//* Creation Date 00-4-28 12:55:20             *//* dbo:chat*//* dbopassword:chat001*//**//*用户动作表*/if exists