代码如下：
<?php   

/**   
* 算目下的程式模，包含案，行，字   
*   
* @version 1.0   
* @since 1.0   
* @access public   
* @author Ryan <ryan@shinersoft.com>   
* @copyright Copyright (c) 2002-2004 by Shiner Technologies Co., Ltd.   
* @package AAPortal   
*/   

// 修改目的位置   
$dir = "aaportal";   


// 以下不用更   
$counts = array("directory" => 0, "file" => 0, "line" => 0, "size" => 0);   

check($dir);   

echo "Total:/n";   
echo "Directry : ".$counts["directory"]."/n";   
echo "File : ".$counts["file"]."/n";   
echo "Line : ".$counts["line"]."/n";   
echo "Size : ".$counts["size"]."/n";   

function check($dir)   
{   
    global $counts;   

    if ($dh = opendir($dir)) {   
        while (($file = readdir($dh)) !== false) {   
            if ($file == ".") continue;   
            if ($file == "..") continue;   
            if ($file == "CVS") continue;   
            $path = $dir."/".$file;   
            if (is_dir($path)) {   
                $counts["directory"]++;   
                //echo "dir ".$counts["directory"]."  $path/n";   
                check($path);   
            } else {   
                $ext = array_pop(explode('.', basename($path)));   
                if ($ext=="php" || $ext=="inc") {   
                    $counts["file"]++;   
                    //echo "file ".$counts["file"]."  $path/n";   
                    $lines = file($path);   
                    $counts["line"] += count($lines);   
                    $counts["size"] += filesize($path);   
                }   
            }   
        }   
        closedir($dh);   
    }   
} ?>