Use PHP and ACCESS to write a chat room (10) _ PHP Tutorial

Use PHP and ACCESS to write chat rooms (10 ). The code for func. php3 is as follows :? Phpfunctionsuiji ($ max) {srand (double) microtime () * 1000000); $ xrand (); $ ygetrandmax (); $ r$ x $ y * ($ MAX-1 ); $ rround ($ r ++); return $ r;} functionStrOcc 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), "success", $ 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 ," 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 article is copyrighted by the author and osuo. if you need to reprint it, please indicate the author and its source]

The http://www.bkjia.com/PHPjc/316531.htmlwww.bkjia.comtruehttp://www.bkjia.com/PHPjc/316531.htmlTechArticlefunc.php3 code is 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...