本程序可以显示WEB目录下的所有目录及后缀为php，php3，htm，html的文件名，并可以查看源文件，很适合作为编写php程序的工具。

第一个文件名为 phplist.inc

<?php
global $htmlroot;
$htmlroot = "/web/html"; //"/web/html"是apache的文档根目录，用户可以根据自己的配置修改
?>
第二个文件名为 codeshow.php
<?php
highlight_file($filename); //高亮显示文件代码
?>

这个是主程序名为 phplist.php

<?php
require ("phplist.inc");
if ($rootpath == "") {
    $rootpath = $htmlroot;
}
//遍历所有的文件和目录，$pathnam为起始目录，$searchs为搜索关键字
function filelist($pathname) {
    global $htmlroot;
    if (eregi("[/][.][.]$", $pathname)) {
        $temp = split("[/]", $pathname);
        $pathname = "";
        for ($tt = 1; $tt < (count($temp) - 2); $tt++) $pathname = $pathname . "/" . $temp[$tt];
    }
    echo $pathname . "
";
    $handle = opendir($pathname); //打开目录
 //cd 进入目录，若无权限则不进入
    if (@chdir($pathname)) {
 //读出所有当前目录下的元素名，第一次读出为"。"，指上层目录
        $file = readdir($handle);
 //若有元素就进行以下处理
        while ($file = readdir($handle)) {
//将元素名与当前目录名结合组成完整的文件名，并赋值给$fname
            $fname = $pathname . "/" . $file; 
 //判断是否为文件并且是否以.php和.php3结尾
            if ((is_file($file)) and (ereg(".php[3]{0,1}$", $file) or ereg(".htm[l]{0,1}$", $file)))
            {
                $temppp = split($htmlroot, $fname);
                echo "<a href=$temppp[1]>".$file."</a>".filesize($file) . "bytes <a href=codeshow?filename=$fname><font size=-1>源文件</font></a>
";
                //findinfile($fname,$searchs); //调用findinfile函数
                
            } elseif (is_dir($fname)) { //判断是否为目录
                linkres($fname);
                //filelist($fname,$searchs);} //递归调用filelist函数
                
            }
        }
        chdir(".."); //结束当前递归，返回上层
        
    }
    closedir($handle); //关闭当前目录读取
    
}
//
function linkres($filename) {
    $tpath = split("/web/html", $filename);
    $turepath = $tpath[1];
    ereg("[^/~]{0,}$", $filename, $res);
    //$ft=filetitle($filename);
    //if ($ft=="") $ft="无标题";
    echo "<a href=phplist.php?rootpath=$filename>" . $res[0] . "</a>   <dir>
";
}
//
filelist($rootpath);
?>

本文链接:http://www.phprm.com/code/33108.html

收藏随意^^请保留教程地址.