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<=$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")) $bN