用PHP和ACCESS寫聊天室(八)
來源:互聯網
上載者:User
關鍵字
用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.")");
}
}
}
?>
@odbc_close($ConnID);
}
?>
【本文著作權歸作者與奧索網共同擁有,如需轉載,請註明作者及出處】