------------------
bmmrp.php使用例程：mrppack.php
<?php
/********取得指定目录下指定类型的文件*******/
function dirgetlist($$dirname,$$bds=“.*“)
{
if($$handle=opendir($$dirname))
{
while(false!==($$file=readdir($$handle)))
{
if($$file!=“.“ && $$file!=“..“ && eregi($$bds,$$file))
{
$$list[]=$$dirname.’/’.$$file;
}}
closedir($$handle);
}
natcasesort($$list);
return $$list;
}
/***************/
function doonce($$f,$$t=5,$$e=’’)
{
$$ttl=file_get_contents($$f);
if(($$tt=($$tm=time())-$$ttl)<$$t)
{
echo str_replace($$t,$$t-$$tt,$$e);
return false;
}
file_put_contents($$f,$$tm);
return true;
}
function doonceend($$f)
{
return true;
}
/********这个是被包含在另一个文件中的部分用户界面*******/
$$d=floor($$_GET[’d’]);
$$go=$$_REQUEST[’go’];
include ’bmmrp.php’;
if($$go==’清空’)
{
$$lst=dirgetlist(“mrptmp/$$d“,’.*’);
foreach($$lst as $$a=>$$r)
unlink($$r);
unlink(“mrptmp/$$d“);
echo “文件已清空<br/>共删除“.($$a+1).“个文件<br/>“;
}
elseif($$go==’解包’ && doonce(’mrptmp/mrpunpack.php’,20,’解包过于频繁，请20秒后再试’))
{
$$lst=mrpunpack($$mrp,“mrptmp/$$d“);
echo “解包成功<br/>共解出“.count($$lst).“个文件<br/>“;
}
elseif($$go==’打包’ && doonce(’mrptmp/mrppack.php’,30,’打包过于频繁，请30秒后再试’))
{
$$list=dirgetlist(“mrptmp/$$d“,’.*\.txt$$’);
$$lst=mrppack(“mrptmp/$$d.mrp“,mrppacklist($$list,$$_POST[’gzip’]),$$mr_fn=“mrptmp/$$d.mrp“);
copy($$mr_fn,$$mr_fn.’.gz’);
echo “打包成功<br/>共打包“.count($$lst).“个文件(“.round(filesize(“mrptmp/

$$d.mrp“)/1024,2).“KB)<br/><a href=\“mrptmp/$$d.mrp.gz?t=“.time().“\“>下载</a>-<a

href=\“read.php?id=mrpgai&d=$$d\“>修改信息</a><br/>“;
$$mrppack=true;