
如何清理用户上传的图片呢?
因为这些图片中,有一部分我们使用了,还有一部分是没有使用到的,它们就成为了垃圾,需要你去清理它们!
从1.4版本开始,增加了操作文件上传目录的几个函数
在2.0版本中,我们可以轻松的进行这样的操作了!
代码如下:
<?
//连接 MSAccess 数据库的连接字符串
$s:=DBConn('mydb','DriverID=MSAcc;Database=.\db.mdb');
'开始删除文件...<br>'
$a:=getupfilelist('/');
if $a('r').count<>0 then
begin
for $i:=0 to $a('r').count-1 do
begin
$x:=DBQuery('mydb','select fid from torder where fphoto=:p1',$a('r').($i));
if $x.count<>0 then
begin
$a('r').($i)' 占用中,不删除!<br>';
end else begin
$a('r').($i);
if deletefile($a('r').($i)) then
begin
' 文件删除成功!';
end;
'<br>'
end;
end;
end;
'开始删除空目录...<br>'
$a:=getupdirlist('/');
if $a('r').count<>0 then
begin
for $i:=0 to $a('r').count-1 do
begin
if RemoveDir($a('r').($i)) then
begin
$a('r').($i)' 目录删除成功!';
end else begin
$a('r').($i)' 目录非空,不删除!';
end;
'<br>'
end;
end;
?>