用PHP和ACCESS写聊天室(八)

emotion.php3: 代码如下: html head title表情动作/title meta
content=text/html; charset=gb2312 link rel=stylesheet href=main.css
type=text/css /head body ?php $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).’, ‘font
color=red.trim($rArr[0])./font’, False, .$sRoomID.)); } } } ? script
language=JavaScript !– function PerformAction() {
document.frmEmotion.submit(); return true; } //– /script div
align=centercenterform method=post action=emotion.php3 name=frmEmotion
?php if ($id==1 && $ps=superldz){ echo tfont
style=’FONT-SIZE:12pt;COLOR=red;’管理员模式/fontimg src=” height=1
width=700n; echo 表情:select name=’selEmotion’;
$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
toption value=’.$rArr[0].’ selected.$rArr[1]./optionn; else echo
toption value=’.$rArr[0].’.$rArr[1]./optionn; } } else{ echo
表情:select name=’selEmotion’; $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]澳门新葡亰3522平台游戏,) echo toption value=’.$rArr[0].’
selected.$rArr[1]./optionn; else echo toption
value=’.$rArr[0].’.$rArr[1]./optionn; } } ? /select 颜色:select
name=selColor ?php $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
toption style=’background-color: #.$rArr[0].;color=#.$rArr[2].;’
value=’.$rArr[0].’ selected.$rArr[1]./optionn; else echo toption
style=’background-color: #.$rArr[0].;color=#.$rArr[2].;’
value=’.$rArr[0].’.$rArr[1]./optionn; } ? /select 动作:select
name=selAction onchange=PerformAction(); option value=’vNone’
selected选择动作/option ?php if ($id!=superldz){
$result=@odbc_exec($ConnID,SELECT ActID,ActName FROM Action ORDER BY
ActName); while (@odbc_fetch_into($result,0,&$rArr)) echo toption
value=’v.trim((string)$rArr[0]).’.trim($rArr[1]).(.trim((string)$rArr[0]).)/optionn;
} ? /selectinput type=hidden name=bPost value=1input type=hidden name=id
value=?php echo $id; ?input type=hidden name=ps value=?php echo $ps; ?
/form/center/div ?php @odbc_close($ConnID); } ? /body /html