如何清理用户上传的图片呢?

因为这些图片中,有一部分我们使用了,还有一部分是没有使用到的,它们就成为了垃圾,需要你去清理它们!

从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;

?>