设计教程 | 电脑硬件 | 网络技术 | 电脑医院 | 数据库 | 认证考试 | 工具软件 | 操作系统 | 办公应用 | 网站开发 | 论坛归档 |
Google
Web e-article.net
首页 » 资讯文章 » 论坛归档 » PHP讨论  

刚写了个上传zip文件并解压至指定目录的函数,没时间测试。用linux主机的朋友请帮忙看看有没有错

刚写了个上传zip文件并解压至指定目录的函数,没时间测试。用linux主机的朋友请帮忙看看有没有错
Array   Array   2006-07-08 13:41:37   浏览:   [返回目录]

返回首页 - 当前索引 -
主  题:
刚写了个上传zip文件并解压至指定目录的函数,没时间测试。用linux主机的朋友请帮忙看看有没有错

<?
/**
|+---------------------------------------
| Id: upzip.php
| Copyright:Arvan
| Note:
|	上传zip文件并解压至指定目录
|+---------------------------------------
| 说明:$zipdir为表单传递的file变量
|	   $inputdir为存入目录	
|
| 返回值:解压后文件的存放路径
|+---------------------------------------
**/
function upzip($zipdir, $inputdir){
	if (!is_dir($inputdir)){
		@mkdir($inputdir, 0777);
	}else{
		@chmod($inputdir, 0777) or die("$inputdir 不可写!");
	}
	$arr=explode(".", $zipdir); //$zipdir'name as "name.zip" with only 1 dot
	$firstname=$arr[0];
	$lastname=$arr[1];
	$lastname=strtolower($lastname);
	if ($lastname!="zip"){

print <<<EOT
<script language=javascript>
	alert("请上传zip文件!");
location.href = "javascript:history.back()";
</script>
EOT;
exit();
	}else{
		$fulldir=$inputdir."/".$firstname;
	}

	@mkdir($fulldir, 0777);
	copy($zipdir, $fulldir);
	$unzip=$fulldir."/".$firstname."zip";
	@system("upzip $unzip -d $fulldir");	
	@unlink($unzip);
	$handle=@opendir($fulldir);
	while ($entry = readdir($handle)) {
		$total_size = $total_size+filesize($fulldir."/".$entry);
	}
	@closedir($handle);
	if ($total_size!>0){
print <<<EOTC
<script language=javascript>
	alert("FLASE!");
location.href = "javascript:history.back()";
</script>
EOTC;
exit();	
	}
	@chmod($inputdir, 0755);
	@chmod($inputdir, 0755);
	return $fulldir;
}
?>
回复人: piner(piner) ( ) 信誉:85 2003-06-11 18:36:41Z 得分:0
?

不行哟,大哥
Top

该问题已经结贴

打印文章】【进入社区】【发表评论】【返回顶部
论坛归档文章栏目
 PHP讨论
 asp讨论
相关链接

其他文章
· jbuilder9
· 请高手帮忙,关于array()数组问题
· 有没有谁在使用lycos.com.cn提供的PHP+MYSQ....
· 某表中有一自增字段,怎样返回刚刚插入的一条....
· Linux 下有没有你 window上的Access 一样的....
· 头疼:这个文件有语法错误吗?
· js中如何传递变量?
· 一个问题,请高手提示
· 想转向JAVA不知道在WIN下开发用什么IDE最好....
· php中如何关闭com?
热门文章
· 注册表打不开了!!!
· 请问高手如何破解还原精灵。
· 文件拒绝访问,为什么?谁来探讨一下文件设....
· 为什么程序无缘无故的告诉我"驱动器中没有软....
· 哪里有delphi7.0下载?在线恭候!50分
· 请问哪里有MSDN下载啊,高分酬谢
· 请教新闻订阅,如何发送电子邮件
· 哪里有创世纪的免费在线收看网址,高手们提供....
· 那里有还原精灵2002下载?
· 哪有Oracle数据库下载?