首页
所有分类
TAGS
文字工具 EMOJI BIBLE
编程 PHP

用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(三)

Posted in PHP onOctober 09, 2006

cinput.php3
如下:
<html>
<head>
<title>输入</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="main.css" type="text/css">
<script language="JavaScript">
<!--
function NameGotFocus( ) {
        document.frmInput.txtSend.focus();
}

function CheckValid() {
    document.frmInput.sEmotion.value=top.emotion.frmEmotion.selEmotion.value;
    document.frmInput.sColor.value=top.emotion.frmEmotion.selColor.value;
    if (document.frmInput.txtSend.value == "") {
        document.frmInput.txtSend.focus();
        return false;
    }
    return true;
}

//-->
</script>
<link rel="stylesheet" href="main.css" type="text/css">
</head>
<body onload="NameGotFocus()">
<?php
function suiji($max){
    srand((double)microtime()*1000000);
    $x=rand();
    $y=getrandmax();
    $r=$x/$y*($max-1);
    $r=round($r++);
    return $r;
}

function StrOccurs($sStr, $sFind){
    $sTemp=$sStr;
    $iLen=strlen($sFind);
    $iCount=0;
    while (true){
        if (strstr($sTemp, $sFind))
            break;
        else{
            $sTemp = substr($sTemp,strpos($sTemp,$sFind)+$iLen);
            $iCount++;
        }
    }
    return $iCount;
}

function StrDupl($sStr, $iCnt){
    $ret="";
    for($i=1;$i<=$iCnt;$i++)
        $ret.=$sStr;
    return $ret;
}

function DelQuot($sStr){
    $s=str_replace(chr(124),"¦",$sStr);
    $s=str_replace(chr(39),"´",$s);
    $s=str_replace(chr(34),""",$s);
    return $s;
}

function DelTag($sStr){
    $bNeed="False";
    $sOther=strtoupper($sStr);
    if ($bNeed!="True" || !strstr($sOther,"<TABLE")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</TABLE")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<SCRIPT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</SCRIPT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<BODY")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</BODY")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<HTML")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</HTML")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<HEAD")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</HEAD")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<FORM")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</FORM")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<INPUT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</INPUT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<OPTION")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</OPTION")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<SELECT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</SELECT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<APPLET")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</APPLET")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<OBJECT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</OBJECT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<MENU")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</MENU")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<FRAMESET")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</FRAMESET")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<FRAME")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</FRAME")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<IFRAME")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</IFRAME")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<STYLE")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</STYLE")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<BASE")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"FONT-SIZE:")) $bNeed="True";
    if ($bNeed=="True")
        return str_replace(">",">",str_replace("<","<",$sStr));
    else
        return $sStr;
}

function AddLost($sStr){
    $ret=$sStr;
    $ret.=StrDupl(">", (StrOccurs(strtoupper($ret), "<") - StrOccurs(strtoupper($ret), ">")));
    $ret.=StrDupl("</FONT>", (StrOccurs(strtoupper($ret), "<FONT") - StrOccurs(strtoupper($ret), "</FONT>")));
    $ret.=StrDupl("</B>", (StrOccurs(strtoupper($ret), "<B") - StrOccurs(strtoupper($ret), "</B>")));
    $ret.=StrDupl("</I>", (StrOccurs(strtoupper($ret), "<I") - StrOccurs(strtoupper($ret), "</I>")));
    $ret.=StrDupl("</U>", (StrOccurs(strtoupper($ret), "<U") - StrOccurs(strtoupper($ret), "</U>")));
    $ret.=StrDupl("</S>", (StrOccurs(strtoupper($ret), "<S") - StrOccurs(strtoupper($ret), "</S>")));
    $ret.=StrDupl("</STRIKE>", (StrOccurs(strtoupper($ret), "<STRIKE") - StrOccurs(strtoupper($ret), "</STRIKE>")));
    $ret.=StrDupl("</STRONG>", (StrOccurs(strtoupper($ret), "<STRONG") - StrOccurs(strtoupper($ret), "</STRONG>")));
    $ret.=StrDupl("</SMALL>", (StrOccurs(strtoupper($ret), "<SMALL") - StrOccurs(strtoupper($ret), "</SMALL>")));
    $ret.=StrDupl("</CITE>", (StrOccurs(strtoupper($ret), "<CITE") - StrOccurs(strtoupper($ret), "</CITE>")));
    $ret.=StrDupl("</EM>", (StrOccurs(strtoupper($ret), "<EM") - StrOccurs(strtoupper($ret), "</EM>")));
    $ret.=StrDupl("</CODE>", (StrOccurs(strtoupper($ret), "<CODE") - StrOccurs(strtoupper($ret), "</CODE>")));
    $ret.=StrDupl("</SAMP>", (StrOccurs(strtoupper($ret), "<SAMP") - StrOccurs(strtoupper($ret), "</SAMP>")));
    $ret.=StrDupl("</KBD>", (StrOccurs(strtoupper($ret), "<KBD") - StrOccurs(strtoupper($ret), "</KBD>")));
    $ret.=StrDupl("</VAR>", (StrOccurs(strtoupper($ret), "<VAR") - StrOccurs(strtoupper($ret), "</VAR>")));
    $ret.=StrDupl("</DFN>", (StrOccurs(strtoupper($ret), "<DFN") - StrOccurs(strtoupper($ret), "</DFN>")));
    $ret.=StrDupl("</BIG>", (StrOccurs(strtoupper($ret), "<BIG") - StrOccurs(strtoupper($ret), "</BIG>")));
    $ret.=StrDupl("</SUP>", (StrOccurs(strtoupper($ret), "<SUP") - StrOccurs(strtoupper($ret), "</SUP>")));
    $ret.=StrDupl("</SUB>", (StrOccurs(strtoupper($ret), "<SUB") - StrOccurs(strtoupper($ret), "</SUB>")));
    $ret.=StrDupl("</H1>", (StrOccurs(strtoupper($ret), "<H1") - StrOccurs(strtoupper($ret), "</H1>")));
    $ret.=StrDupl("</H2>", (StrOccurs(strtoupper($ret), "<H2") - StrOccurs(strtoupper($ret), "</H2>")));
    $ret.=StrDupl("</H3>", (StrOccurs(strtoupper($ret), "<H3") - StrOccurs(strtoupper($ret), "</H3>")));
    $ret.=StrDupl("</H4>", (StrOccurs(strtoupper($ret), "<H4") - StrOccurs(strtoupper($ret), "</H4>")));
    $ret.=StrDupl("</H5>", (StrOccurs(strtoupper($ret), "<H5") - StrOccurs(strtoupper($ret), "</H5>")));
    $ret.=StrDupl("</H6>", (StrOccurs(strtoupper($ret), "<H6") - StrOccurs(strtoupper($ret), "</H6>")));
    $ret.=StrDupl("</H7>", (StrOccurs(strtoupper($ret), "<H7") - StrOccurs(strtoupper($ret), "</H7>")));
    return $ret;
}

$sSecret="False";
$sRefRate=5;
$ConnID=@odbc_connect("jtfcht","admin","");
if ($ConnID){
    if ($id=="1" && $ps="superldz"){
        $result=@odbc_exec($ConnID,"SELECT RefRate FROM User WHERE UserID=".$id);
        if (@odbc_fetch_into($result,0,&$rArr)){
            $sRefRate=$rArr[0];
            if ($cmdSend=="送出"){
                $sRefRate=(int)($txtRefRate);
                if ($sRefRate<2) $sRefRate=2;
                @odbc_exec($ConnID,"UPDATE User SET RefRate=".$sRefRate.",LstTime=".time()." WHERE UserID=".($id));
                @odbc_exec($ConnID,"INSERT INTO ChtCont (sIDFrom, sNameFrom, sIPFrom, sIDTo, sNameTo, sTime, sCont, bSecret, RoomID) VALUES (".$id.", '管理员', '".getenv("REMOTE_ADDR")."', 0, '大家', '".date("H:i:s")."', '<font color=gray>【系统消息】".trim(DelQuot(htmlspecialchars($txtSend)))."</font>', False, 0)");
            }
        }
    }
    else{
        $result=@odbc_exec($ConnID,"SELECT UserID,UserName,PassWord,LstTime,Secret,RefRate,ToID,ToName,RoomID FROM User WHERE UserID=".($id));
        if (@odbc_fetch_into($result,0,&$rArr)){
            if ($rArr[2]==$ps){
                if ($rArr[3]>=(time()-1800)){
                    if ($rArr[4]) $sSecret="True";
                    $sRefRate=$rArr[5];
                    if ($cmdSend=="送出"){
                        $sUserName=$rArr[1];
                        $sToID=$rArr[6];
                        $sToName=$rArr[7];
                        $sRoomID=$rArr[8];
                        //$sSend=AddLost(DelTag(DelQuot($txtSend)));
                        $sSend=DelQuot(htmlspecialchars($txtSend));
                        if ($chkSecret=="Yes"){
                            $sSecret="True";
                            $sTalk="悄悄说:";
                        }
                        else{
                            $sSecret="False";
                            $sTalk="说:";
                        }
                        $sRefRate=(int)($txtRefRate);
                        if ($sRefRate<2) $sRefRate=2;
                        @odbc_exec($ConnID,"UPDATE User SET EmotionID=".$sEmotion.",ColorID='".$sColor."',Secret=".$sSecret.",RefRate=".$sRefRate.",LstTime=".time()." WHERE UserID=".$id);
                        $bCht="True";
                        $bToMe="False";
                        if (substr($sSend,0,3)=="/t "){
                            $sChtCont="<font color=blue><i>%m想".substr($sSend,3)."</i></font>";
                            $sSecret="False";
                            $bCht="False";
                        }
                        elseif (substr($sSend,0,3)=="/: "){
                            $sChtCont="<font color=red>%m".substr($sSend,3)."</font>";
                            $sSecret="False";
                            $bCht="False";
                        }
                        elseif (strtolower(substr($sSend,0,3))=="/w "){
                            $result=@odbc_exec($ConnID,"SELECT RoomID FROM User WHERE UserName='".trim(substr($sSend,3))."'");
                            if (@odbc_fetch_into($result,0,&$rArr)){
                                if ($rArr[0]>0){
                                    $result=@odbc_exec($ConnID,"SELECT RoomName FROM Room WHERE RoomID=".$rArr[0]);
                                    if (@odbc_fetch_into($result,0,&$rArr))
                                        $sChtCont="<font color=gray>【系统消息】".trim(substr($sSend,3))."目前在房间".$rArr[0]."。</font>";
                                    else
                                        $sChtCont="<font color=gray>【系统消息】系统混乱了，".trim(substr($sSend,3))."目前在的房间不可识别！</font>";
                                }
                                else
                                    $sChtCont="<font color=gray>【系统消息】".trim(substr($sSend,3))."目前没有上线。</font>";
                                $sSecret="True";
                                $bCht="False";
                            }
                            else{
                                $sChtCont="<font color=gray>【系统消息】没有".trim(substr($sSend,3))."这个人。</font>";
                                $sSecret="True";
                                $bCht="False";
                            }
                            $bToMe="True";
                        }
                        elseif (substr($sSend,0,3)=="// "){
                            $result=@odbc_exec($ConnID,"SELECT ActCont FROM Action WHERE ActID='".trim(substr($sSend,3))."'");
                            if (@odbc_fetch_into($result,0,&$rArr)){
                                $sChtCont="<font color=red>".trim($rArr[0])."</font>";
                                $sSecret="False";
                                $bCht="False";
                            }
                            else $bCht="True";
                        }
                        if ($bCht=="True"){
                            $result=@odbc_exec($ConnID,"SELECT COUNT(EmotionTp) AS CNT_TP FROM Emotion WHERE EmotionTp=".$sEmotion);
                            @odbc_fetch_into($result,0,&$rArr);
                            if ($rArr[0]>0){
                                $iEmCnt=suiji($rArr[0]);
                                $result=@odbc_exec($ConnID,"SELECT EmotionCont FROM Emotion WHERE EmotionTp=".$sEmotion." AND EmotionID=".$iEmCnt);
                                if (@odbc_fetch_into($result,0,&$rArr))
                                    $sChtCont="%m".trim($rArr[0])."对%g".$sTalk.$sSend;
                                else
                                    $sChtCont="%m对%g".$sTalk.$sSend;
                            }
                            else $sChtCont="%m对%g".$sTalk.$sSend;
                            if ($sSecret=="True")
                                $sChtCont="<font color=green>".$sChtCont."</font>";
                            else
                                $sChtCont="<font color=#".$sColor.">".$sChtCont."</font>";
                        }
                        if ($bToMe=="True")
                            @odbc_exec($ConnID,"INSERT INTO ChtCont (sIDFrom, sNameFrom, sIPFrom, sIDTo, sNameTo, sTime, sCont, bSecret, RoomID) VALUES (0, '大家', '".getenv("REMOTE_ADDR")."', ".$id.", '".$sUserName."', '".date("H:i:s")."', '".$sChtCont."', ".$sSecret.", ".$sRoomID.")");
                        else
                            @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")."', '".$sChtCont."', ".$sSecret.", ".$sRoomID.")");
                    }
                }
            }
        }
    }
    @odbc_close($ConnID);
}
?>
<div align="center"><center><form method="post" action="cinput.php3" name="frmInput" onsubmit="return CheckValid();">
    <input type="hidden" name="sEmotion" value="0"><input type="hidden" name="sColor" value="000000">
<?php
    if ($sSecret=="True")
        echo "t<input type="checkbox" name="chkSecret" value="Yes" checked>悄悄话n";
    else
        echo "t<input type="checkbox" name="chkSecret" value="Yes">悄悄话n";
?>
    <input type="text" name="txtSend" maxlength="120" size="39"><input type="hidden" name="id" value="<?php echo $id; ?>"><input type="hidden" name="ps" value="<?php echo $ps; ?>">
    <input type="submit" name="cmdSend" value="送出">
    刷新:<input type="text" name="txtRefRate" maxlength="2" size="2" value="<?php echo $sRefRate; ?>">
    <input type="button" name="cmdExit" onclick="parent.location='leave.php3?id=<?php echo $id; ?>&ps=<?php echo $ps; ?>&at=<?php echo time(); ?>'" value="退出">
</form></center></div>
</body>
</html>  

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

用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(三)

声明：登载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述。

PHP 相关文章推荐
PHP脚本的10个技巧(3)
Oct 09 PHP
树型结构列出指定目录里所有文件的PHP类
Oct 09 PHP
excellent!――ASCII Art（由目标图象生成ascii）
Feb 20 PHP
实用的简单PHP分页集合包括使用方法
Oct 21 PHP
PHP实现图片裁剪、添加水印效果代码
Oct 01 PHP
php绘图之生成饼状图的方法
Jan 24 PHP
PHP IDE phpstorm 常用快捷键
May 18 PHP
PHP实现恶意DDOS攻击避免带宽占用问题方法
May 27 PHP
php实现图片以base64显示的方法
Oct 13 PHP
老生常谈PHP数组函数array_merge(必看篇)
May 25 PHP
PHP实现广度优先搜索算法(BFS,Broad First Search)详解
Sep 16 PHP
PHP实现动态创建XML文档的方法
Mar 30 PHP
对javascript和select部件的结合运用
Oct 09 #PHP
用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(二)
Oct 09 #PHP
用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(一)
Oct 09 #PHP
不用数据库的多用户文件自由上传投票系统(1)
Oct 09 #PHP
不用数据库的多用户文件自由上传投票系统(3)
Oct 09 #PHP
用PHP+MySql编写聊天室
Oct 09 #PHP
如何开发一个虚拟域名系统
Oct 09 #PHP
并发(8) most_common(1) 抖音(1) Xpath(1) pip(1) 爬虫(2) MIME(1) Counter(1) LOGO(1) 字典(3)
You might like
基于mysql的论坛（1）
2006/10/09 PHP
php设计模式 Observer(观察者模式)
2011/06/26 PHP
PHP循环结构实例讲解
2014/02/10 PHP
关于WordPress的SEO优化相关的一些PHP页面脚本技巧
2015/12/10 PHP
PHP图像处理技术实例总结【绘图、水印、验证码、图像压缩】
2018/12/08 PHP
asp.net+js 实现无刷新上传解析csv文件的代码
2010/05/17 Javascript
javascript 基础篇1 什么是js 建立第一个js程序
2012/03/14 Javascript
jQuery语法总结和注意事项小结
2012/11/11 Javascript
jQuery的ready方法详解
2014/11/27 Javascript
JS控制伪元素的方法汇总
2016/04/06 Javascript
极力推荐一款小巧玲珑的可视化编辑器bootstrap-wysiwyg
2016/05/27 Javascript
jQuery EasyUI 为Combo,Combobox添加清除值功能的实例
2017/04/13 jQuery
AngularJS双向绑定和依赖反转实例详解
2017/04/15 Javascript
JavaScript代码判断输入的字符串是否含有特殊字符和表情代码实例
2017/08/17 Javascript
vue引入新版 vue-awesome-swiper插件填坑问题
2018/01/25 Javascript
对vue2.0中.vue文件页面跳转之.$router.push的用法详解
2018/08/24 Javascript
JavaScript+HTML5 canvas实现放大镜效果完整示例
2019/05/15 Javascript
微信小程序 select 下拉框组件功能
2019/09/09 Javascript
JavaScript算法学习之冒泡排序和选择排序
2019/11/02 Javascript
[46:43]DOTA2上海特级锦标赛主赛事日 - 1 胜者组第一轮#2LGD VS MVP.Phx第二局
2016/03/02 DOTA
TensorFlow内存管理bfc算法实例
2020/02/03 Python
Python自动创建Excel并获取内容
2020/09/16 Python
python中doctest库实例用法
2020/12/31 Python
详解HTML5中的拖放事件（Drag 和 drop）
2016/11/14 HTML / CSS
压铸汽车模型收藏家：Diecastmodelswholesale.com
2016/12/21 全球购物
惠普新加坡官方商店：HP Singapore
2020/04/17 全球购物
自荐信的两点禁忌
2013/10/30 职场文书
家具厂厂长岗位职责
2014/01/01 职场文书
财务工作者先进事迹材料
2014/01/17 职场文书
小学美术教学反思
2014/02/01 职场文书
2015毕业生实习期工作总结
2015/04/09 职场文书
小孩不笨观后感
2015/06/03 职场文书
教师节校长致辞
2015/07/31 职场文书
责任书格式
2019/04/18 职场文书
python实现监听键盘
2021/04/26 Python
笔记本自带的win11如何跳过联网激活？
2022/04/20 数码科技