access connections Using PHP and ACCESS to write chat rooms

func.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 = instr($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;
}
?>
【The copyright of this article is jointly owned by the author and Aosuo.com. If you need to reprint, please indicate the author and source】

The above has introduced access connections. Using PHP and ACCESS to write a chat room 10, including the content of access connections. I hope it will be helpful to friends who are interested in PHP tutorials.