一个比较烂的目录文件列表程序

　　<?//List.php
//Power by Devchina.com 2oa.net
$Path=($dir)?urldecode($dir):"d:";//最好用session设置路径安全
$handle=opendir($Path);
while ($file = readdir($handle)) {
$newpath=$Path."/".$file;
if($file==".." or $file==".") {
//你可以把..或者.加上连接作为回上一层的";
　　continue;
}
if(is_dir($newpath)){
　　$p[intval(filemtime($newpath))]=$file;
}else
　　 {
$f[intval(filemtime($newpath))]=$file;
　　 }
}
echo "排序规则：按时间 <a href=list.php?order=up&dir=$dir>升</a>(最老的文件在最前面) 　 <a href=list.php?order=down&dir=$dir>降</a>(最新的文件在最前面)";
$cd=($order=="up")?sizeof(@ksort($p)):sizeof(@krsort($p));
$cf=($order=="up")?sizeof(@ksort($f)):sizeof(@krsort($f));
if($cd>0){
　　while(list($key,$val)=each($p)){
　 
echo "<br>";
echo "<IMG SRC=http://tech.ddvip.com/"folder.gif\" WIDTH=\"15\" HEIGHT=\"13\" BORDER=0 >　<a href=list.php?order=$order&dir=".urlencode($Path."/".$val).">$val</a>";
echo "　　创建时间：".@date("Y-m-j:H:i:s",$key)."";
}
}
unset($p);
unset($cd);
if($cf>0){
　　while(list($key,$val)=each($f)){
echo "<br>";
echo "<IMG SRC=http://tech.ddvip.com/"file_unknow.gif\" WIDTH=\"13\" HEIGHT=\"15\" BORDER=0 >　$val";
echo "　　创建时间：".@date("Y-m-j:H:i:s",$key)."";
}
}
unset($f);
unset($cf);
closedir($handle);
?>