Compare | program | sort PLEASE criticize!!!
<?//list.php
Power by Devchina.com 2oa.net
$Path = ($dir) urldecode ($dir): "D:";/best use Session to set PATH security
$handle =opendir ($Path);
while ($file = Readdir ($handle)) {
$newpath = $Path. " /". $file;
if ($file = = "..." or $file = = ".") {
You can put. Or. Add a connection as a back to the previous layer ";
Continue
}
if (Is_dir ($newpath)) {
$p [Intval (Filemtime ($newpath))]= $file;
}else
{
$f [Intval (Filemtime ($newpath))]= $file;
}
}
echo "Collation: Time <a href=list.php?order=up&dir= $dir > L </a> (oldest file in front) <a Href=list.php?order=down &dir= $dir > Drop </a> (latest file in front) ";
$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 " <a href=list.php? order= $order &dir= ". UrlEncode ($Path.) /". $val)." > $val </a> ";
echo "Create Time:". @date ("Y-m-j:h:i:s", $key). "";
}
}
Unset ($p);
Unset ($CD);
if ($CF >0) {
while (list ($key, $val) =each ($f)) {
echo "<br>";
echo " $val";
echo "Create Time:". @date ("Y-m-j:h:i:s", $key). "";
}
}
Unset ($f);
Unset ($CF);
Closedir ($handle);
?>
