源码网,源码论坛,源码之家,商业源码,游戏源码下载,discuz插件,棋牌源码下载,精品源码论坛

 找回密码
 立即注册
查看: 468|回复: 30

[PHP编程] 用PHP和ACCESS写聊天室(八)

[复制链接]

7万

主题

861

回帖

32万

积分

论坛元老

Rank: 8Rank: 8

积分
329525
发表于 2006-10-9 00:00:00 | 显示全部楼层 |阅读模式
emotion.php3:
代码如下:
<html>
<head>
<title>表情动作</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='' 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 style='background-color: #".$rArr[0].";color=#".$rArr[2].";' value='".$rArr[0]."' selected>".$rArr[1]."</option>n";
                        else
                                echo "t<option style='background-color: #".$rArr[0].";color=#".$rArr[2].";' value='".$rArr[0]."'>".$rArr[1]."</option>n";
                }
?>
</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 "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>


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

使用道具 举报

9

主题

2万

回帖

420

积分

中级会员

Rank: 3Rank: 3

积分
420
发表于 2022-12-21 00:47:18 | 显示全部楼层
好人好人好人好人
回复 支持 反对

使用道具 举报

0

主题

2万

回帖

186

积分

注册会员

Rank: 2

积分
186
发表于 2023-2-6 03:28:01 | 显示全部楼层
哦哦哦哦哦哦哦哦哦
回复 支持 反对

使用道具 举报

1

主题

1386

回帖

1509

积分

金牌会员

Rank: 6Rank: 6

积分
1509
发表于 2023-3-23 21:11:44 | 显示全部楼层
儿飞飞微风DVD谁vdsvd
回复 支持 反对

使用道具 举报

4

主题

1万

回帖

60

积分

注册会员

Rank: 2

积分
60
发表于 2023-7-3 01:05:02 | 显示全部楼层
哦哦哦ijhhsdj
回复 支持 反对

使用道具 举报

4

主题

2万

回帖

303

积分

中级会员

Rank: 3Rank: 3

积分
303
发表于 2024-3-18 17:55:47 | 显示全部楼层
建军节建军节建军节建军节
回复 支持 反对

使用道具 举报

5

主题

2万

回帖

69

积分

注册会员

Rank: 2

积分
69
发表于 2024-3-25 10:10:32 | 显示全部楼层
灌灌灌灌水
回复 支持 反对

使用道具 举报

27

主题

2万

回帖

331

积分

中级会员

Rank: 3Rank: 3

积分
331
发表于 2024-6-3 10:11:18 | 显示全部楼层
的谁vdvdsvdsvdsdsv
回复 支持 反对

使用道具 举报

13

主题

2万

回帖

97

积分

注册会员

Rank: 2

积分
97
发表于 2024-7-2 03:44:29 | 显示全部楼层
老衲笑纳了
回复 支持 反对

使用道具 举报

0

主题

1万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2024-7-25 13:58:18 | 显示全部楼层
哦哦哦ijhhsdj
回复 支持 反对

使用道具 举报

高级模式
B Color Image Link Quote Code Smilies

本版积分规则

手机版|小黑屋|网站地图|源码论坛 ( 海外版 )

GMT+8, 2024-11-23 06:18 , Processed in 0.105628 second(s), 26 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表