php access 实例,用php和access写聊天室(十)_php实例

最新推荐文章于 2022-08-16 13:22:08 发布

烤鸭了没

最新推荐文章于 2022-08-16 13:22:08 发布

阅读量60

点赞数

文章标签： php access 实例

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<=$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,"

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), "")));

$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "^")));

$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "_")));