Community Learn Tools Library Leisure
search
English
Home > Backend Development > PHP Tutorial > body text

microsoft access uses PHP and ACCESS to write chat room 3

WBOY
Release： 2016-07-29 08:34:27
Original
949 people have browsed it

cinput.php3
如下:


输入





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,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    if ($bNeed!="True" || !strstr($sOther,"    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("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    return $ret;
}
$sSecret="False";
$sRefRate=5;
$C
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")."', '【系统消息】".trim(DelQuot(htmlspecialchars($txtSend)))."', 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];
                        $sT
                        $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 Emoti WHERE UserID=".$id);
                        $bCht="True";
                        $bToMe="False";
                        if (substr($sSend,0,3)=="/t "){
                            $sChtC color=blue>%m想".substr($sSend,3)."";
                            $sSecret="False";
                            $bCht="False";
                        }
                        elseif (substr($sSend,0,3)=="/: "){
                            $sChtC color=red>%m".substr($sSend,3)."";
                            $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))
                                        $sChtC color=gray>【系统消息】".trim(substr($sSend,3))."目前在房间".$rArr[0]."。";
                                    else
                                        $sChtC color=gray>【系统消息】系统混乱了，".trim(substr($sSend,3))."目前在的房间不可识别！";
                                }
                                else
                                    $sChtC color=gray>【系统消息】".trim(substr($sSend,3))."目前没有上线。";
                                $sSecret="True";
                                $bCht="False";
                            }
                            else{
                                $sChtC color=gray>【系统消息】没有".trim(substr($sSend,3))."这个人。";
                                $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)){
                                $sChtC color=red>".trim($rArr[0])."";
                                $sSecret="False";
                                $bCht="False";
                            }
                            else $bCht="True";
                        }
                        if ($bCht=="True"){
                            $result=@odbc_exec($ConnID,"SELECT COUNT(EmotionTp) AS CNT_TP FROM Emotion WHERE Emoti
                            @odbc_fetch_into($result,0,&$rArr);
                            if ($rArr[0]>0){
                                $iEmCnt=suiji($rArr[0]);
                                $result=@odbc_exec($ConnID,"SELECT EmotionCont FROM Emotion WHERE Emoti AND Emoti
                                if (@odbc_fetch_into($result,0,&$rArr))
                                    $sChtC
                                else
                                    $sChtC
                            }
                            else $sChtC
                            if ($sSecret=="True")
                                $sChtC color=green>".$sChtCont."";
                            else
                                $sChtC color=#".$sColor.">".$sChtCont."";
                        }
                        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);
}
?>


    
    if ($sSecret=="True")
        echo "t悄悄话n";
    else
        echo "t悄悄话n";
?>
    
    
    刷新:
    &ps=&at='" value="退出">


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

以上就介绍了microsoft access 用ＰＨＰ和ＡＣＣＥＳＳ写聊天室三，包括了microsoft access方面的内容，希望对PHP教程有兴趣的朋友有所帮助。

Related labels：
microsoft access
source：php.cn
Previous article：Detailed explanation of PHP BC Math function Next article：File extension A function that gets the file extension
Statement of this Website
The content of this article is voluntarily contributed by netizens, and the copyright belongs to the original author. This site does not assume corresponding legal responsibility. If you find any content suspected of plagiarism or infringement, please contact admin@php.cn
Latest Articles by Author
Latest Issues
Top-level method to replace a string with HTML code (generated from an array) Given a string like this...$htmlPattern="Usernameis:#name#andusercompanyis#company#&q...
From 2024-04-06 17:40:41
0
2
410
Unable to get cookie data from Go server using React After React I started going into the backend and added githubOAUTH and sessions on the bac...
From 2024-04-06 13:09:26
0
1
384
Unable to connect to SQL Server in Laravel I can't connect to sql-server in Laravel. I have given sqlserver configuration values ​​in...
From 2024-03-31 13:08:48
0
1
395
Related Topics
More>
Popular Recommendations
Popular Tutorials
More>
Related Tutorials
Popular Recommendations
Latest courses
Latest Downloads
More>
Web Effects
Website Source Code
Website Materials
Front End Template