用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(三)

            cinput.php3
如下:


输入






",str_replace("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("[/B]", (StrOccurs(strtoupper($ret), "[B]")));
    $ret.=StrDupl("[/I]", (StrOccurs(strtoupper($ret), "[I]")));
    $ret.=StrDupl("[/U]", (StrOccurs(strtoupper($ret), "[U]")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("[/B]", (StrOccurs(strtoupper($ret), "[B]")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    return $ret;
}
$sSecret="False";
$sRefRate=5;
$ConnID=@odbc_connect("jtfcht","admin","");
if ($ConnID){
    if ($id=="1" && $ps="superldz"){
        $result=@odbc_exec($ConnID,"SELECT RefRate FROM User WHERE UserID=".$id);
        if (@odbc_fetch_into($result,0,&$rArr)){
            $sRefRate=$rArr[0];
            if ($cmdSend=="送出"){
                $sRefRate=(int)($txtRefRate);
                if ($sRefRate=(time()-1800)){
                    if ($rArr[4]) $sSecret="True";
                    $sRefRate=$rArr[5];
                    if ($cmdSend=="送出"){
                        $sUserName=$rArr[1];
                        $sToID=$rArr[6];
                        $sToName=$rArr[7];
                        $sRoomID=$rArr[8];
                        //$sSend=AddLost(DelTag(DelQuot($txtSend)));
                        $sSend=DelQuot(htmlspecialchars($txtSend));
                        if ($chkSecret=="Yes"){
                            $sSecret="True";
                            $sTalk="悄悄说:";
                        }
                        else{
                            $sSecret="False";
                            $sTalk="说:";
                        }
                        $sRefRate=(int)($txtRefRate);
                        if ($sRefRate%m想".substr($sSend,3)."";
                            $sSecret="False";
                            $bCht="False";
                        }
                        elseif (substr($sSend,0,3)=="/: "){
                            $sChtCont="
%m".substr($sSend,3)."
";
                            $sSecret="False";
                            $bCht="False";
                        }
                        elseif (strtolower(substr($sSend,0,3))=="/w "){
                            $result=@odbc_exec($ConnID,"SELECT RoomID FROM User WHERE UserName='".trim(substr($sSend,3))."'");
                            if (@odbc_fetch_into($result,0,&$rArr)){
                                if ($rArr[0]>0){
                                    $result=@odbc_exec($ConnID,"SELECT RoomName FROM Room WHERE RoomID=".$rArr[0]);
                                    if (@odbc_fetch_into($result,0,&$rArr))
                                        $sChtCont="
【系统消息】".trim(substr($sSend,3))."目前在房间".$rArr[0]."。
";
                                    else
                                        $sChtCont="
【系统消息】系统混乱了，".trim(substr($sSend,3))."目前在的房间不可识别！
";
                                }
                                else
                                    $sChtCont="
【系统消息】".trim(substr($sSend,3))."目前没有上线。
";
                                $sSecret="True";
                                $bCht="False";
                            }
                            else{
                                $sChtCont="
【系统消息】没有".trim(substr($sSend,3))."这个人。
";
                                $sSecret="True";
                                $bCht="False";
                            }
                            $bToMe="True";
                        }
                        elseif (substr($sSend,0,3)=="// "){
                            $result=@odbc_exec($ConnID,"SELECT ActCont FROM Action WHERE ActID='".trim(substr($sSend,3))."'");
                            if (@odbc_fetch_into($result,0,&$rArr)){
                                $sChtCont="
".trim($rArr[0])."
";
                                $sSecret="False";
                                $bCht="False";
                            }
                            else $bCht="True";
                        }
                        if ($bCht=="True"){
                            $result=@odbc_exec($ConnID,"SELECT COUNT(EmotionTp) AS CNT_TP FROM Emotion WHERE EmotionTp=".$sEmotion);
                            @odbc_fetch_into($result,0,&$rArr);
                            if ($rArr[0]>0){
                                $iEmCnt=suiji($rArr[0]);
                                $result=@odbc_exec($ConnID,"SELECT EmotionCont FROM Emotion WHERE EmotionTp=".$sEmotion." AND EmotionID=".$iEmCnt);
                                if (@odbc_fetch_into($result,0,&$rArr))
                                    $sChtCont="%m".trim($rArr[0])."对%g".$sTalk.$sSend;
                                else
                                    $sChtCont="%m对%g".$sTalk.$sSend;
                            }
                            else $sChtCont="%m对%g".$sTalk.$sSend;
                            if ($sSecret=="True")
                                $sChtCont="
".$sChtCont."
";
                            else
                                $sChtCont="
[color=]".$sChtCont."
";
                        }
                        if ($bToMe=="True")
                            @odbc_exec($ConnID,"INSERT INTO ChtCont (sIDFrom, sNameFrom, sIPFrom, sIDTo, sNameTo, sTime, sCont, bSecret, RoomID) VALUES (0, '大家', '".getenv("REMOTE_ADDR")."', ".$id.", '".$sUserName."', '".date("H:i:s")."', '".$sChtCont."', ".$sSecret.", ".$sRoomID.")");
                        else
                            @odbc_exec($ConnID,"INSERT INTO ChtCont (sIDFrom, sNameFrom, sIPFrom, sIDTo, sNameTo, sTime, sCont, bSecret, RoomID) VALUES (".$id.", '".$sUserName."', '".getenv("REMOTE_ADDR")."', ".$sToID.", '".$sToName."', '".date("H:i:s")."', '".$sChtCont."', ".$sSecret.", ".$sRoomID.")");
                    }
                }
            }
        }
    }
    @odbc_close($ConnID);
}
?>

   

    ">">
   
    刷新:">
    &ps=&at='" value="退出">


  
【本文版权归作者与奥索网共同拥有，如需转载，请注明作者及出处】   

            
            
您可能感兴趣的文章:

聊天室php&mysql(四)

聊天室php&mysql(五)

PHP聊天室技术

用PHP和ACCESS写聊天室(十)

用PHP和ACCESS写聊天室(七)

用PHP和ACCESS写聊天室(八)

用PHP和ACCESS写聊天室(九)

用PHP+MySql编写聊天室

用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(一)

用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(二)

用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(四)

用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(五)

用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(六)

发布一个迷你php+AJAX聊天程序[聊天室]提供下载

php写的简易聊天室代码

用PHP+MySQL搭建聊天室功能实例代码

PHP实现简单聊天室(附源码)