Use PHP and access to write a chat room (10) _php Tutorial

Func.php3
The code is as follows:
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), "" ", $s);
return s;
}

function Deltag ($SSTR) {
$bNeed = "False";
$sOther =strtoupper ($SSTR);
if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "true" | |!strstr ($sOther, "if ($bNeed! =" true "| |!strstr ($sOther,"if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, "
if ($bNeed! = "True" | |!strstr ($sOther, " if ($bNeed! = "True" | |!strstr ($sOther, " 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 ("", (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)," ")));
$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), " "));
return $ret;
}
?>


"This document is owned by the author and the house Orso near network, please specify the author and the source if you want to reprint"

http://www.bkjia.com/phpjc/316531.html www.bkjia.com true http://www.bkjia.com/phpjc/316531.html techarticle FUNC.PHP3 code as follows:? PHP function Suiji ($max) {srand (double) microtime () *1000000), $x =rand (); $y =getrandmax (); $r = $x/$y * ($max-1); $r =round ($r + +); return $r; } function Strocc ...

