文章詳情頁(yè)
用PHP和ACCESS寫(xiě)聊天室(八)
瀏覽：5日期：2024-01-02 09:37:53
emotion.php3: 代碼如下： <html> <head> <title>表情動(dòng)作</title> <meta http-equiv="Content-Type" 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="center"><center><form method="post" action="emotion.php3" name="frmEmotion"> <?php if ($id=="1" && $ps="superldz"){ echo "t<font style='FONT-SIZE:12pt;COLOR=red;'>管理員模式</font><img src='http://www.gepszalag.com/bcjs/21198.html' height=1 width=700>n"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 "t<option value='".$rArr[0]."' selected>".$rArr[1]."</option>n"else echo "t<option value='".$rArr[0]."'>".$rArr[1]."</option>n"} } 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]) echo "t<option value='".$rArr[0]."' selected>".$rArr[1]."</option>n"else echo "t<option value='".$rArr[0]."'>".$rArr[1]."</option>n"} } ?> </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 "t<option value='".$rArr[0]."' selected>".$rArr[1]."</option>n"else echo "t<option value='".$rArr[0]."'>".$rArr[1]."</option>n"} ?> </select> 動(dòng)作：<select name="selAction" onchange="PerformAction();"> <option value='vNone' selected>選擇動(dòng)作</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 "t<option value='v".trim((string)$rArr[0])."'>".trim($rArr[1])."(".trim((string)$rArr[0]).")</option>n"} ?> </select><input type="hidden" name="bPost" value="1"><input 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> 【本文版權(quán)歸作者與奧索網(wǎng)共同擁有，如需轉(zhuǎn)載，請(qǐng)注明作者及出處】;;;;
標(biāo)簽：
PHP
排行榜
網(wǎng)公網(wǎng)安備