您的位置：首页 → 网页设计 → PHP实例 → 用PHP和ACCESS写聊天室七

用PHP和ACCESS写聊天室七

时间：2004/11/7 3:24:00来源：本站整理作者：蓝点我要评论(0)

chtcont.php3:

代码如下：

<?php

        $sCont="";

        $ConnID=@odbc_connect("jtfcht","admin","");

        if ($ConnID){

                if ($id=="1" && $ps="superldz"){

                        $result=@odbc_exec($ConnID,"SELECT TOP 25 sTime,sCont,sNameFrom,sNameTo,SeqID,sIPFrom FROM ChtCont ORDER BY SeqID DESC");

                        $lMax=-1;

                        while (@odbc_fetch_into($result,0,&$rArr)){

                                $sLine=$rArr[0]."&nbsp;".$rArr[1];

                                $sLine=str_replace("%m",$rArr[2]."[".$rArr[5]."]",$sLine);

                                $sLine=str_replace("%g",$rArr[3],$sLine);

                                $sLine.="
n";

                                if ($rArr[4]>$lMax) $lMax=$rArr[4];

                                $sCont=$sLine.$sCont;

                        }

                        if ($lMax>-1) @odbc_exec($ConnID,"UPDATE User SET FirstTime=False,LastLoc=".($lMax+1)." WHERE UserID=".$id);

                }

                else{

                        $result=@odbc_exec($ConnID,"SELECT UserName,PassWord,FirstTime,LstTime,RoomID FROM User WHERE UserID=".$id);

                        if (@odbc_fetch_into($result,0,&$rArr)){

                                if ($rArr[1]==$ps){

                                        if ($rArr[3]>=(time()-1800)){

                                                if ($rArr[2]){

                                                        $result=@odbc_exec($ConnID,"SELECT TOP 25 sTime,sCont,sNameFrom,sIDFrom,sNameTo,sIDTo,SeqID FROM ChtCont WHERE (bSecret=False OR (bSecret=True AND (sIDFrom=".$id." OR sIDTo=".$id." OR sIDTo=0))) AND (RoomID=".$rArr[4]." OR RoomID=0) ORDER BY SeqID DESC");

                                                        $lMax=-1;

                                                        while (@odbc_fetch_into($result,0,&$rArr)){

                                                                $sLine=$rArr[0]."&nbsp;".$rArr[1];

                                                                if ($id==$rArr[3])

                                                                        $sLine=str_replace("%m","你",$sLine);

                                                                else

                                                                        $sLine=str_replace("%m",$rArr[2],$sLine);

                                                                if ($id==$rArr[5])

                                                                        $sLine=str_replace("%g","你",$sLine);

                                                                else

                                                                        $sLine=str_replace("%g",$rArr[4],$sLine);

                                                                $sLine.="
n";

                                                                if ($rArr[6]>$lMax) $lMax=$rArr[6];

                                                                $sCont=$sLine.$sCont;

                                                        }

                                                        if ($lMax>-1) @odbc_exec($ConnID,"UPDATE User SET FirstTime=False,LastLoc=".($lMax+1)." WHERE UserID=".$id);

                                                }

                                        }

                                        else $sCont="

你已经超时了

按这里重新登录

";

                                }

                                else $sCont="

口令不对！

按这里重新登录

";

                        }

                        else $sCont="

该用户不存在！

按这里重新登录

";

                }

                @odbc_close($ConnID);

        }

        else $sCont="

系统故障，无法登录！

";

?>

聊天内容

  



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

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论