用PHP和ACCESS写聊天室(十)

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 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,"<TABLE")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</TABLE")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<SCRIPT")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</SCRIPT")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<BODY")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</BODY")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<HTML")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</HTML")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<HEAD")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</HEAD")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<FORM")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</FORM")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<INPUT")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</INPUT")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<OPTION")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</OPTION")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<SELECT")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</SELECT")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<APPLET")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</APPLET")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<OBJECT")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</OBJECT")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<MENU")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</MENU")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<FRAMESET")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</FRAMESET")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<FRAME")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</FRAME")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<IFRAME")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</IFRAME")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<STYLE")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"</STYLE")) $bNeed="True";
        if ($bNeed!="True" || !strstr($sOther,"<BASE")) $bNeed="True";
        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("</FONT>","<FONT") - StrOccurs(strtoupper($ret),"</FONT>")));
        $ret.=StrDupl("</B>","<B") - StrOccurs(strtoupper($ret),"</B>")));
        $ret.=StrDupl("</I>","<I") - StrOccurs(strtoupper($ret),"</I>")));
        $ret.=StrDupl("</U>","<U") - StrOccurs(strtoupper($ret),"</U>")));
        $ret.=StrDupl("</S>","<S") - StrOccurs(strtoupper($ret),"</S>")));
        $ret.=StrDupl("</STRIKE>","<STRIKE") - StrOccurs(strtoupper($ret),"</STRIKE>")));
        $ret.=StrDupl("</STRONG>","<STRONG") - StrOccurs(strtoupper($ret),"</STRONG>")));
        $ret.=StrDupl("</SMALL>","<SMALL") - StrOccurs(strtoupper($ret),"</SMALL>")));
        $ret.=StrDupl("</CITE>","<CITE") - StrOccurs(strtoupper($ret),"</CITE>")));
        $ret.=StrDupl("</EM>","<EM") - StrOccurs(strtoupper($ret),"</EM>")));
        $ret.=StrDupl("</CODE>","<CODE") - StrOccurs(strtoupper($ret),"</CODE>")));
        $ret.=StrDupl("</SAMP>","<SAMP") - StrOccurs(strtoupper($ret),"</SAMP>")));
        $ret.=StrDupl("</KBD>","<KBD") - StrOccurs(strtoupper($ret),"</KBD>")));
        $ret.=StrDupl("</VAR>","<VAR") - StrOccurs(strtoupper($ret),"</VAR>")));
        $ret.=StrDupl("</DFN>","<DFN") - StrOccurs(strtoupper($ret),"</DFN>")));
        $ret.=StrDupl("</BIG>","<BIG") - StrOccurs(strtoupper($ret),"</BIG>")));
        $ret.=StrDupl("</SUP>","<SUP") - StrOccurs(strtoupper($ret),"</SUP>")));
        $ret.=StrDupl("</SUB>","<SUB") - StrOccurs(strtoupper($ret),"</SUB>")));
        $ret.=StrDupl("</H1>","<H1") - StrOccurs(strtoupper($ret),"</H1>")));
        $ret.=StrDupl("</H2>","<H2") - StrOccurs(strtoupper($ret),"</H2>")));
        $ret.=StrDupl("</H3>","<H3") - StrOccurs(strtoupper($ret),"</H3>")));
        $ret.=StrDupl("</H4>","<H4") - StrOccurs(strtoupper($ret),"</H4>")));
        $ret.=StrDupl("</H5>","<H5") - StrOccurs(strtoupper($ret),"</H5>")));
        $ret.=StrDupl("</H6>","<H6") - StrOccurs(strtoupper($ret),"</H6>")));
        $ret.=StrDupl("</H7>","<H7") - StrOccurs(strtoupper($ret),"</H7>")));
        return $ret;
}
?>


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

（编辑：安卓应用网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!