microsoft access 用ＰＨＰ和ＡＣＣＥＳＳ写聊天室三

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        $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>$sSecret="False"; <br>$sRefRate=5; <br>$C <br>if ($ConnID){ <br>    if ($id=="1" && $ps="superldz"){ <br>        $result=@odbc_exec($ConnID,"SELECT RefRate FROM User WHERE UserID=".$id); <br>        if (@odbc_fetch_into($result,0,&$rArr)){ <br>            $sRefRate=$rArr[0]; <br>            if ($cmdSend=="</h7> </h6> </h5> </h4> </h3> </h2> </h1></sub></sup></big></dfn></var></kbd></samp>