用PHP和ACCESS寫聊天室(十)_PHP教學

func.php3
程式碼如下：
function suiji($max)
{
        ();
        $y=getrandmax();
        $r=$x/$y*($max-1); }

函數StrOccurs($sStr, $sFind){
        $sTemp=$sStr;
   $iCount=0;
        while (true){
                if (strstr($sTemp, $sFind))
                        break;
                其他
                        $sTemp = instr($sTemp,strpos($sTemp,$sFind) $iLen);
                        $iCount ;         回傳$iCount;
}

函數StrDupl($sStr, $iCnt){
      ="";
        for($i=1;$i           >}

函數DelQuot($sStr){
        $s=str_replace(chr(124),"⁠",$sStr);
     
        $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(">",place);
        其他
                返回 $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), "")) ）；
       .=StrDupl("", (StrOccurs(strtoupper($ret), "")) ）；
  =StrDupl("", (StrOccurs(strtoupper($ret), "")) )；
   StrDupl("", (StrOccurs(strtoupper($ret), "")) ）；
       ("", (StrOccurs(strtoupper($ret), "")) ）；
       "", (StrOccurs(strtoupper($ret), "")) ）；
        $ret.=StrDupl(" ", (StrOccurs(strtoupper($ret), "")) ）； <br>        $ret.=StrDuplpl("", (StrOccurs(strtoupper($ret), "<samp stroccurs>")) ）； <br>       KBD>", (StrOccurs(strtoupper($ret), "<kbd stroccurs>")) ）； <br>        $ret.=StrDupl("", (StrOccurs(strtoupper($ret), "<var stroccurs>")) ）； <br>        $ret.=StrDupl(" ", (StrOccurs(strtoupper($ret), "<dfn stroccurs>")) ）； <br>        $ret.=Strpl("" " , (StrOccurs(strtoupper($ret), "<big stroccurs>")) ）； <br>        $ret.=StrDupl("" , (StrOccurs(strtoupper($ret), "<sup stroccurs>")) ）； <br>        $ret.=Strpl("","", ( 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>        .=StrDupl("", (StrOccurs(strtoupper($ret), "<h6 stroccurs>"))); <br>       =StrDupl("", (StrOccurs(strtoupper($ret), "<h7 stroccurs>")))); <br>        return $ret; <br>} <br>?> <br><br><br>【本文版權歸作者與奧索網共同擁有，如需轉載，請註明作者及出處】    <br><br> <br> <p align="left"></p> <div style="display:none;"> <span id="url" itemprop="url">http://www.bkjia.com/PHPjc/316531.html</span><span id="indexUrl" itemprop="indexUrl">www.bkjia.com</span><span id="isOriginal" itemprop="isOriginal">true</span><span id="isBasedOnUrl" itemprop="isBasedOnUrl">http: //www.bkjia.com/PHPjc/316531.html</span><span id="genre" itemprop="genre">TechArticle</span><span id="description" itemprop="description">func.php3 程式碼如下： ?php function suiji($max) { srand((double)microtime()* 1000000); $x=rand(); $y=getrandmax(); $r=$x/$y*($max-1); $r=round($r ); return $r; } function StrOcc. ..</span> </div> <div class="art_confoot"></div></h7> </h6> </h5> </h4> </h3> </h2> </h1></sub></sup></big></dfn></var></kbd></samp>