用PHP和ACCESS写聊天室(八)

用PHP和ACCESS写聊天室(八)

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.")");
　　　　　　　　　　　　　　　　}
　　　　　　　　　　　　}
　　　　　　　　}
?>