一递归函数删除服务器下所有文件，慎用！！！！！！！

时　间： 2007-04-13 浏览:0 来源:

已经将删除操作设为注释了，只打印出要删除的文件。
要删除文件把注释去掉，慎用。。。。。

<html> 
    <head> 
    <title>phpfans.net</title> 
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
    <body> 
    <?PHP 
if ($handle = opendir('.')) {//以当前目录列出所有文件名 
while (false !== ($dir = readdir($handle))) { 

    if (is_dir($dir)) { 
kill_dir($dir); 
    echo "<b>$dir</b> -- "; 
//if (rmdir($dir)) echo "成功删除"; 
else echo "失败"; 
    echo "<br>"; 
    } else { 
    echo "<b>$dir</b> -- "; 
//if (unlink($dir)) echo "成功删除"; 
else echo "失败"; 
    echo "<br>"; 
    } 

    } 
closedir($handle); 
    } 


    function kill_dir($dir) { 
$dirhandle=opendir($dir); 
    while($file_name=readdir($dirhandle)) { 
    if ($file_name!="." && $file_name!="..") { 
    if (is_dir("$dir/$file_name")) { 
kill_dir($dir."/".$file_name); 
    echo "<b>$dir/$file_name</b> -- "; 
//if (rmdir("$dir/$file_name")) echo "成功删除"; 
else echo "失败"; 
    echo "<br>"; 
    } else {echo "$dir/$file_name -- "; 
//if (unlink("$dir/$file_name")) echo "成功删除"; 
else echo "失败"; 
    echo "<br>"; 
    } 
    } 
    } 
closedir($dirhandle); 
    } 
    ?> 
    </body> 
    </html>