使用 php4 加速 web 传输   

<!--?
/***************************************
** Title.........: PHP4 HTTP Compression Speeds up the Web
** Version.......: 1.10
** Author........: catoc <catoc@163.net-->
<p>
** Filename......: gzdoc.php ** Last changed..: 25/08/2000 ** Requirments...: PHP4 &gt;= 4.0.1 ** PHP was configured with --with-zlib[=DIR] ** Notes.........: Dynamic Content Acceleration compresses ** the data transmission data on the fly ** code by sun jin hu (catoc) <catoc@163.net> ** Most newer browsers since 1998/1999 have ** been equipped to support the HTTP 1.1 ** standard known as &quot;content-encoding.&quot; ** Essentially the browser indicates to the ** server that it can accept &quot;content encoding&quot; ** and if the server is capable it will then ** compress the data and transmit it. The ** browser decompresses it and then renders ** the page. ** Useage........: ** No space before the beginning of the first &#39;<!--?' tag.
** ------------Start of file----------
** |<?
** | include('gzdoc.php');
** | print "Start output !!";
** |?-->** |** |... the page ... ** |** |<!--?
** | gzdocout();
** |?-->** -------------End of file----------- ***************************************/ ob_start(); ob_implicit_flush(0); function GetHeader(){ $headers = getallheaders(); while (list($header, $value) = each($headers)) { $Message .= &quot;$header: $value<br />
\n&quot;; } return $Message; } function CheckCanGzip(){ global $HTTP_ACCEPT_ENCODING, $PHP_SELF, $Wget, $REMOTE_ADDR, $S_UserName; if (connection_timeout() || connection_aborted()){ return 0; } if ((strpos(&#39;catoc&#39;.$HTTP_ACCEPT_ENCODING, &#39;gzip&#39;)) || $Wget == &#39;Y&#39;){ if (strpos(&#39;catoc&#39;.$HTTP_ACCEPT_ENCODING, &#39;x-gzip&#39;)){ $ENCODING = &quot;x-gzip&quot;; $Error_Msg = str_replace(&#39;<br />
&#39;,&#39;&#39;,GetHeader()); $Error_Msg .= &quot;Time: &quot;.date(&quot;Y-m-d H:i:s&quot;).&quot;\n&quot;; $Error_Msg .= &quot;Remote-Address: &quot;.$REMOTE_ADDR.&quot;\n&quot;; //mail(&#39;your@none.net&#39;, &quot;User have x-gzip output in file $PHP_SELF!!!&quot;, $Error_Msg); }else{ $ENCODING = &quot;gzip&quot;; } return $ENCODING; }else{ return 0; } } function GzDocOut(){ global $PHP_SELF, $CatocGz, $REMOTE_ADDR, $S_UserName; $ENCODING = CheckCanGzip(); if ($ENCODING){ print &quot;\n<!-- Use compress $ENCODING -->\n&quot;; $Contents = ob_get_contents(); ob_end_clean(); if ($CatocGz == &#39;Y&#39;){ print &quot;Not compress lenth: &quot;.strlen($Contents).&quot;<br />
&quot;; print &quot;Compressed lenth: &quot;.strlen(gzcompress($Contents)).&quot;<br />
&quot;; exit; }else{ header(&quot;Content-Encoding: $ENCODING&quot;); } print pack(&#39;cccccccc&#39;,0x1f,0x8b,0x08,0x00,0x00,0x00,0x00,0x00); $Size = strlen($Contents); $Crc = crc32($Contents); $Contents = gzcompress($Contents); $Contents = substr($Contents, 0, strlen($Contents) - 4); print $Contents; print pack(&#39;V&#39;,$Crc); print pack(&#39;V&#39;,$Size); exit; }else{ ob_end_flush(); $Error_Msg = str_replace(&#39;<br />
&#39;,&#39;&#39;,GetHeader()); $Error_Msg .= &quot;Time: &quot;.date(&quot;Y-m-d H:i:s&quot;).&quot;\n&quot;; $Error_Msg .= &quot;Remote-Address: &quot;.$REMOTE_ADDR.&quot;\n&quot;; //mail(&#39;your@none.net&#39;, &quot;User can not use gzip output in file $PHP_SELF!!!&quot;, $Error_Msg); exit; } } ?&gt;</catoc@163.net></p>