您的位置：首页 → 网页设计 → PHP实例 → 用PHP和ACCESS写聊天室八

用PHP和ACCESS写聊天室八

时间：2004/11/7 3:24:00来源：本站整理作者：蓝点我要评论(0)

emotion.php3:

代码如下：
















        $sEmotion="0";

        $sColorID="000000";

        $ConnID=@odbc_connect("jtfcht","admin","");

        if ($ConnID){

                if (!($id=="1" && $ps="superldz")){

                        $result=@odbc_exec($ConnID,"SELECT UserID,UserName,PassWord,LstTime,RoomID,EmotionID,ToID,ToName,ColorID FROM User WHERE UserID=".$id);

                        if (@odbc_fetch_into($result,0,&$rArr)){

                                $sUserName=$rArr[1];

                                $sRoomID=$rArr[4];

                                $sEmotion=$rArr[5];

                                $sToID=$rArr[6];

                                $sToName=$rArr[7];

                                $sColorID=$rArr[8];

                                if (($rArr[2]==$ps) && ($rArr[3]>=(time()-1800)) && ($bPost=="1") && (substr($selAction,1)!="None")){

                                        odbc_exec($ConnID,"UPDATE User SET EmotionID=".$selEmotion.",ColorID='".$selColor."',LstTime=".time()." WHERE UserID=".$id);

                                        $sEmotion=$selEmotion;

                                        $sColorID=$selColor;

                                        $result=@odbc_exec($ConnID,"SELECT ActCont FROM Action WHERE ActID='".substr($selAction,1)."'");

                                        if (@odbc_fetch_into($result,0,&$rArr))

                                                @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")."', '".trim($rArr[0])."', False, ".$sRoomID.")");

                                }

                        }

                }

?>

        if ($id=="1" && $ps="superldz"){

                echo "t管理员模式n";

                echo "表情：";

                $result=@odbc_exec($ConnID,"SELECT EmotionID,EmotionCont FROM Emotion WHERE EmotionTp=0 ORDER BY EmotionID");

                while (@odbc_fetch_into($result,0,&$rArr)){

                        if ($sEmotion==$rArr[0])

                                echo "t".$rArr[1]."n";

                        else

                                echo "t".$rArr[1]."n";

                }

        }

        else{

                echo "表情：";

                $result=@odbc_exec($ConnID,"SELECT EmotionID,EmotionCont FROM Emotion WHERE EmotionTp=0 ORDER BY EmotionID");

                while (@odbc_fetch_into($result,0,&$rArr)){

                        if ($sEmotion==$rArr[0])

                                echo "t".$rArr[1]."n";

                        else

                                echo "t".$rArr[1]."n";

                }

        }

?>



 颜色：


                $result=@odbc_exec($ConnID,"SELECT ColorID,ColorName,FontColor FROM Color ORDER BY ColorID");

                while (@odbc_fetch_into($result,0,&$rArr)){

                        if ($sColorID==$rArr[0])

                                echo "t".$rArr[1]."n";

                        else

                                echo "t".$rArr[1]."n";

                }

?>



 动作：

        选择动作


                if ($id!="superldz"){

                        $result=@odbc_exec($ConnID,"SELECT ActID,ActName FROM Action ORDER BY ActName");

                        while (@odbc_fetch_into($result,0,&$rArr))

                                echo "t".trim($rArr[1])."(".trim((string)$rArr[0]).")n";

                }

?>

                @odbc_close($ConnID);

        }

?>









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

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论