[转帖]Banner程序

<?php  /* banner.php  这个PHP3的滚动程序是由 Anton Olsen ( aolsen@graphweb.com )设计的，你可以自由地修改和使用这个程序，并自由地传播它，如果你对它有了比较重要的修改，请你给作都写份E-Mail。     在这个程序中，作者试图通过多种不同的方法来实现这个功能，但PHP中的图像函数不能显示动画的GIF图片格式及对这种格式的操作（如：fopen, fpassthru, 和 fclose）。作者通过了passthru方法来加以实现，虽然这并不是一种最好的方法，但它可以比别的方法更加快速地显示广告条。 在这个程序中，我们假设：     1、你已经有了一个存放所有的广告图片的目录。     2、所有的广告图片都是GIF格式的。     3、所有的GIF图片都是以banner开头的。     3、在这个目录中没有其它的除了广告图片的文件。 安装这个程序：     1、把这个程序和所有的广告图片（*.GIF）放到一个目录中。     2、把以下这段HTML代码放在你的WEB页面中：  <a href="wherever.you.want.com">   <img src="http://www.yourserver.com/bannerdir/banner.phtml" alt="Random Banner Here" border=0>      </a>   4/14/2000    Mouse Chen( litmouse@km169.net   )    Translate it to Chinese */  /* random( $max integer )     返回一个从 0到 $max-1的随机数；  */  function random( $max )  {      $x = rand();      $y = getrandmax();      $r = $x / $y * ($max -1 );      $r = round( $r++ );      return $r;  }  /*读取目录，把所有的 “banner*”的文件读到一个数组中；*/  $i = 0;  $d   = dir( ".");  while($entry=$d->read())      if (substr($entry,0,6) ==  "banner")      $array[$i++] = $entry;  $d->close();        /* 选取一个随机数 */  $r = random( $i );  /* 发送一个 no-cache 和 gif 类型的文件头，并且输出图片。*/  Header(  "Pragma: no-cache" );  Header(  "Expires: Monday 01-Jan-80 12:00:00 GMT" );  Header(  "Content-type:  image/gif");  passthru(  "cat $array[$r]" );  ?>