我自己写的聊天室源代码(七)

聊天室|源代码

*****************************聊天处理******************************
<%'chatadmin.asp%>
<%response.buffer = true%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>聊天处理</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="Microsoft Theme" content="none, default">
<meta name="Microsoft Border" content="none">
</head>
<%
dim sc_name,sc_pass,sc_pass1,sc_ip,sc_flag,sc_sex,sc_comin,sc_goout,sc_userflag,sc_bq(100),sc_acction(100,2),sc_friend(100)
dim sc1_user1(30,8),sc1_point,sc1_message,sc1_usernum,sc1_user,sc1_userout,sc1_userout1(30,6)
application.lock
    sc1_point = application("ap_point")
    sc1_message = application("ap_message")
    sc1_usernum = application("ap_usernum")
    sc1_user = application("ap_user")
    sc1_userout = application("ap_userout")
    '用户在线检查
    for i = 1 to 30
        for j = 1 to 8
            sc1_user1(i,j) = ""
        next
        for j = 1 to 6
            sc1_userout1(i,j) = ""
        next
    next
    sc1_ff = 0
    j=0
    sc1_time = now
    for i = 1 to 30
        if trim(sc1_user(i,1)) <> "" then
            sc1_time1 = cdate(sc1_user(i,7))
            if datediff("s",sc1_time1,sc1_time) < 61 then
                j = j + 1
                for k = 1 to 8
                    sc1_user1(j,k) = sc1_user(i,k)
                next
            else
                '在线数量-1
                sc1_usernum = sc1_usernum - 1
                '配置离别用语
                if sc1_point > 50 then
                    sc1_point = 1
                end if
                sc1_message(sc1_point,1) = sc1_user(i,1)
                sc1_message(sc1_point,2) = "所有人"
                sc1_message(sc1_point,3) = sc1_user(i,3)
                sc1_message(sc1_point,4) = ""
                sc1_message(sc1_point,5) = "8"
                sc1_message(sc1_point,6) = "<font color='#FF0000'>"
                sc1_ttt = now
                if hour(sc1_ttt) < 10 then
                    

时间: 2024-12-02 18:00:17

我自己写的聊天室源代码(七)的相关文章

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

聊天室|源代码                 for i = 1 to my_point                    if i = my_point then                        session("ss_oldpoint") = my_point - 1                        if session("ss_oldpoint") < 1 then                            

我自己写的聊天室源代码(前言)

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

我自己写的聊天室源代码(八)

聊天室|源代码 ************************不能进入聊天室*************************<%'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