这是PHP FTP
版本
phpftp_bottom();
}
/* 该函数不返回 TRUE/FALSE - 它返回
的值
$ftp，当前 FTP 流。 */
函数 phpftp_connect($phpftp_user,$phpftp_passwd) {
全局 $phpftp_host;
$ftp = ftp_connect($phpftp_host);
如果 ($ftp) {
if (ftp_login($ftp,$phpftp_user,urldecode($phpftp_passwd))) {
返回 $ftp;
}
}
}
函数 phpftp_list($phpftp_user,$phpftp_passwd,$phpftp_dir) {
全局 $phpftp_host;
phpftp_top();
？>
$ftp = @phpftp_connect($phpftp_user,$phpftp_passwd);
如果 (!$ftp) {
？>
FTP登录失败！
重新开始？
phpftp_bottom();
} 其他 {
if (!$phpftp_dir) {
$phpftp_dir=ftp_pwd($ftp);
}
if (!@ftp_chdir($ftp,$phpftp_dir)) {
？>
无法进入该目录！
$phpftp_dir=ftp_pwd($ftp);
}
echo "当前主机: " . $phpftp_host 。 “
n”;
echo "当前目录: " . $phpftp_dir 。 “
n”;
if ($phpftp_dir == "/") {
$phpftp_dir="";
}
if ($contents = ftp_rawlist($ftp,"")) {
$d_i=0;
$f_i=0;
$l_i=0;
$i=0;
while ($contents[$i]) {
$item[] = split("[ ] ",$contents[$i],9);
$item_type=substr($item[$i][0],0,1);
if ($item_type == "d") {
/* 这是一个目录 */
$nlist_dirs[$d_i]=$item[$i][8];
$d_i ;
} elseif ($item_type == "l") {
/* 这是一个符号链接 */
$nlist_links[$l_i]=$item[$i][8];
$l_i ;
} elseif ($item_type == "-") {
/* 这是一个文件 */
$nlist_files[$f_i]=$item[$i][8];
$nlist_filesize[$f_i]=$item[$i][4];
$f_i ;
} elseif ($item_type == " ") {
/* 这是 anonftp 服务器上的东西 */
$eplf=split(",",implode(" ",$item[$i]),5);
if ($eplf[2] == "r") {
/* 这是一个文件 */
$nlist_files[$f_i]=trim($eplf[4]);
$nlist_filesize[$f_i]=substr($eplf[3],1);
$f_i ;
} elseif ($eplf[2] == "/") {
/* 这是一个目录 */
$nlist_dirs[$d_i]=trim($eplf[3]);
$d_i ;
}
} /* 忽略所有其他 */
$i ;
}
？>
|
目录 |
文件 |
