Banner程序

Banner程序

/* 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页面中：



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]" );
?>