用PHP和ACCESS写聊天室(十)_php基础

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                $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,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<script> if ($bNeed!="True" || !strstr($sOther,"</script>")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"        if ($bNeed!="True" || !strstr($sOther,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"        if ($bNeed!="True" || !strstr($sOther,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"        if ($bNeed!="True" || !strstr($sOther,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"

        if ($bNeed!="True" || !strstr($sOther,"

")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"        if ($bNeed!="True" || !strstr($sOther,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"        if ($bNeed!="True" || !strstr($sOther,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"        if ($bNeed!="True" || !strstr($sOther,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"        if ($bNeed!="True" || !strstr($sOther,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"        if ($bNeed!="True" || !strstr($sOther,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"        if ($bNeed!="True" || !strstr($sOther,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"        if ($bNeed!="True" || !strstr($sOther,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"        if ($bNeed!="True" || !strstr($sOther,"FONT-SIZE:")) $bNeed="True";
        if ($bNeed=="True")
                return str_replace(">",">",str_replace("        else
                return $sStr;
}

function AddLost($sStr){
        $ret=$sStr;
        $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), ""))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<samp stroccurs>"))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<kbd stroccurs>"))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<var stroccurs>"))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<dfn stroccurs>"))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<big stroccurs>"))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<sup stroccurs>"))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<sub stroccurs>"))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<h1 stroccurs>"))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<h2 stroccurs>"))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<h3 stroccurs>"))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<h4 stroccurs>"))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<h5 stroccurs>"))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<h6 stroccurs>"))); <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<h7 stroccurs>"))); <br>        return $ret; <br>} <br>?> <br><br><br>【本文版权归作者与奥索网共同拥有，如需转载，请注明作者及出处】    <br><br> <br> </h7> </h6> </h5> </h4> </h3> </h2> </h1></sub></sup></big></dfn></var></kbd></samp>