chat11.txt

用纯ＡＳＰ代码实现图片上传并存入数据库中

                            '源
                            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>"
                            my_message1(j) = 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 "5"
                            '悄悄话
                            '源
                            if (trim(session("ss_name")) = trim(my_message(i,2))) or (trim(session("ss_name")) = trim(my_message(i,1))) then
                                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>"
                                my_message1(j) = 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>"
                            end if
                        case "6"
                            '动作
                            my_message1(j) = "<font color='#008000'><strong>" + my_message(i,1) + "</strong></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 "7"
                            '进入
                            my_message1(j) = "<font color='#008000'>系统消息（" + my_message(i,1) + "进入聊天室）：</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 "8"
                            '退出
                            my_message1(j) = "<font color='#008000'>系统消息（" + my_message(i,1) + "离开聊天室）：</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>"
                    end select
                next
            end if
            my_usernum = application("ap_usernum")
            if my_usernum <> session("ss_usernum") then
                session("ss_usernum") = my_usernum%>
<script language="JavaScript"><!--
parent.topright.location.href = "online.asp";
// --></script>
<%            end if
        case 1
            '被踢%>
<script language="javascript"><!--
            parent.location.href = "goout.asp";
//--></script>
<%        case 2
            '禁止聊天
            '配置输出
            application.lock
                my_message = application("ap_message")
                my_point = application("ap_point")
                my_usernum = application("ap_usernum")
            application.unlock
            j = 0
            sc_xx = 0
            for i = session("ss_oldpoint") + 1 to 50
                if i = my_point then
                    session("ss_oldpoint") = my_point - 1
                    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>"
                        my_message1(j) = 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 "5"
                        '悄悄话
                        '源
                        if (trim(session("ss_name")) = trim(my_message(i,2))) or (trim(session("ss_name")) = trim(my_message(i,1))) then
                            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>"
                            my_message1(j) = 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>"
                        end if
                    case "6"
                        '动作
                        my_message1(j) = "<font color='#008000'><strong>" + my_message(i,1) + "</strong></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 "7"
                        '进入
                        my_message1(j) = "<font color='#008000'>系统消息（" + my_message(i,1) + "进入聊天室）：</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 "8"
                        '退出
                        my_message1(j) = "<font color='#008000'>系统消息（" + my_message(i,1) + "离开聊天室）：</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>"
                end select
            next
            if sc_xx = 0 then




--------------------------------------------------------------------------------

贴子转发：

 
E-mail地址：


--------------------------------------------------------------------------------

相关主题：


 我自己写的聊天室源代码（十_2）  - 【1_apple】 00-4-28 14:44:52 [ID:231662 点击:2] (14458 Bytes) (0)  


--------------------------------------------------------------------------------

回复：

    
版 面：Joy ASP ↑  *为必填项目 第一次发言请去注册>> 怎样使用UBBCode>> UBB Code Editor>> NEW!
姓 名：* 密码： * 密码遗忘请点这里>>
Email：
主 题：*

表 情：
             
             

内 容（最多16KB） 使用签名 设置签名>>   


链接地址： 
链接标题： 
链接图片：