在线压缩zip

<?php

//验证密码

$password = "test";

?>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>映阳网络在线ZIP压缩程序</title>

<style type="text/css">

<!--

body,td{

    font-size: 14px;

    color: #000000;

}

a {

    color: #000066;

    text-decoration: none;

}

a:hover {

    color: #FF6600;

    text-decoration: underline;

}

-->

</style>

</head>

<body>

  <form name="myform" method="post" action="inits.php">

<font color="#FF0000"> 映阳网络  在线压缩ZIP文件程序</font><br>

<div style="color:#FF9900">

      <p>作者：申斌 E-Mail:sb33c3@yahoo.com.cn QQ:84913895</p>

      <p>使用方法:选定要压缩的文件或目录（包含子目录），即可开始压缩。</p>

      <p>压缩的结果保留原来的目录结构。</p>

</div>

<?

if(!$_REQUEST["myaction"]):

?>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

    <tr>

      <td width="11%">验证密码: </td>

      <td width="89%"><input name="password" type="password" id="password" size="15">

      (源文件中设定的密码) </td>

    </tr>

    <tr>

      <td><input name="myaction" type="hidden" id="myaction" value="dolist"></td>

      <td><input type="submit" name="Submit" value=" 进 入 "></td>

    </tr>

  </table>

<?

elseif($_REQUEST["myaction"]=="dolist"):

    if($_REQUEST['password'] != $password) die("输入的密码不正确，请重新输入。");

    echo "选择要压缩的文件或目录：<br>";

      $fdir = opendir('./');

    while($file=readdir($fdir)){

        if($file=='.'|| $file=='..') continue;

        echo "<input name='dfile[]' type='checkbox' value='$file' ".($file==basename(__FILE__)?"":"checked")."> ";

        if(is_file($file)){

            echo "文件: $file<br>";

        }else{

            echo "目录: $file<br>";

        }

    }

?>

<br>

压缩文件保存到目录:

<input name="todir" type="text" id="todir" value="__zipfiles__" size="15">

(留空为本目录,必须有写入权限)<br>

压缩文件名称:

<input name="zipname" type="text" id="zipname" value="k.zip" size="15">

(.zip)<br>

<br>

<input name="password" type="hidden" id="password" value="<?=$_POST['password'];?>">

<input name="myaction" type="hidden" id="myaction" value="dozip">

<input type='button' value='反选' onclick='selrev();'>

<input type="submit" name="Submit" value=" 开始压缩 ">

<script language='javascript'>

function selrev() {

    with(document.myform) {

        for(i=0;i<elements.length;i++) {

            thiselm = elements[i];

            if(thiselm.name.match(/dfile\[]/))    thiselm.checked = !thiselm.checked;

        }

    }

}

</script>

<?

elseif($_REQUEST["myaction"]=="dozip"):

  set_time_limit(0);

  class PHPzip{

    var $file_count = 0 ;

    var $datastr_len   = 0;

    var $dirstr_len = 0;

    var $filedata = ''; //该变量只被类外部程序访问

    var $gzfilename;

    var $fp;

    var $dirstr='';

    /*

    返回文件的修改时间格式.

    只为本类内部函数调用.

    */

    function unix2DosTime($unixtime = 0) {

        $timearray = ($unixtime == 0) ? getdate() : getdate($unixtime);

        if ($timearray['year'] < 1980) {

            $timearray['year']    = 1980;

            $timearray['mon']     = 1;

            $timearray['mday']    = 1;

            $timearray['hours']   = 0;

            $timearray['minutes'] = 0;

            $timearray['seconds'] = 0;

        }

        return (($timearray['year'] - 1980) << 25) | ($timearray['mon'] << 21) | ($timearray['mday'] << 16) |

               ($timearray['hours'] << 11) | ($timearray['minutes'] << 5) | ($timearray['seconds'] >> 1);

    }

    /*

    初始化文件,建立文件目录,

    并返回文件的写入权限.

    */

    function startfile($path = 'shenbin.zip'){

        $this->gzfilename=$path;

        $mypathdir=array();

        do{

            $mypathdir[] = $path = dirname($path);

        }while($path != '.');

        @end($mypathdir);

        do{

            $path = @current($mypathdir);

            @mkdir($path);

        }while(@prev($mypathdir));

        if($this->fp=@fopen($this->gzfilename,"w")){

            return true;

        }

        return false;

    }

    /*

    添加一个文件到 zip 压缩包中.

    */

    function addfile($data, $name){

        $name     = str_replace('\\', '/', $name);

        if(strrchr($name,'/')=='/') return $this->adddir($name);

        $dtime    = dechex($this->unix2DosTime());

        $hexdtime = '\x' . $dtime[6] . $dtime[7]

                  . '\x' . $dtime[4] . $dtime[5]

                  . '\x' . $dtime[2] . $dtime[3]

                  . '\x' . $dtime[0] . $dtime[1];

        eval('$hexdtime = "' . $hexdtime . '";');

        $unc_len = strlen($data);

        $crc     = crc32($data);

        $zdata   = gzcompress($data);

        $c_len   = strlen($zdata);

        $zdata   = substr(substr($zdata, 0, strlen($zdata) - 4), 2);

        //新添文件内容格式化:

        $datastr  = "\x50\x4b\x03\x04";

        $datastr .= "\x14\x00";            // ver needed to extract

        $datastr .= "\x00\x00";            // gen purpose bit flag

        $datastr .= "\x08\x00";            // compression method

        $datastr .= $hexdtime;             // last mod time and date

        $datastr .= pack('V', $crc);             // crc32

        $datastr .= pack('V', $c_len);           // compressed filesize

        $datastr .= pack('V', $unc_len);         // uncompressed filesize

        $datastr .= pack('v', strlen($name));    // length of filename

        $datastr .= pack('v', 0);                // extra field length

        $datastr .= $name;

        $datastr .= $zdata;

        $datastr .= pack('V', $crc);                 // crc32

        $datastr .= pack('V', $c_len);               // compressed filesize

        $datastr .= pack('V', $unc_len);             // uncompressed filesize

        fwrite($this->fp,$datastr);    //写入新的文件内容

        $my_datastr_len = strlen($datastr);

        unset($datastr);

        //新添文件目录信息

        $dirstr  = "\x50\x4b\x01\x02";

        $dirstr .= "\x00\x00";                    // version made by

        $dirstr .= "\x14\x00";                    // version needed to extract

        $dirstr .= "\x00\x00";                    // gen purpose bit flag

        $dirstr .= "\x08\x00";                    // compression method

        $dirstr .= $hexdtime;                     // last mod time & date

        $dirstr .= pack('V', $crc);               // crc32

        $dirstr .= pack('V', $c_len);             // compressed filesize

        $dirstr .= pack('V', $unc_len);           // uncompressed filesize

        $dirstr .= pack('v', strlen($name) );     // length of filename

        $dirstr .= pack('v', 0 );                 // extra field length

        $dirstr .= pack('v', 0 );                 // file comment length

        $dirstr .= pack('v', 0 );                 // disk number start

        $dirstr .= pack('v', 0 );                 // internal file attributes

        $dirstr .= pack('V', 32 );                // external file attributes - 'archive' bit set

        $dirstr .= pack('V',$this->datastr_len ); // relative offset of local header

        $dirstr .= $name;

        $this->dirstr .= $dirstr;    //目录信息

        $this -> file_count ++;

        $this -> dirstr_len += strlen($dirstr);

        $this -> datastr_len += $my_datastr_len;

    }

    function adddir($name){

        $name = str_replace("\\", "/", $name);

        $datastr = "\x50\x4b\x03\x04\x0a\x00\x00\x00\x00\x00\x00\x00\x00\x00"; 

        $datastr .= pack("V",0).pack("V",0).pack("V",0).pack("v", strlen($name) );

        $datastr .= pack("v", 0 ).$name.pack("V", 0).pack("V", 0).pack("V", 0); 

        fwrite($this->fp,$datastr);    //写入新的文件内容

        $my_datastr_len = strlen($datastr);

        unset($datastr);

        $dirstr = "\x50\x4b\x01\x02\x00\x00\x0a\x00\x00\x00\x00\x00\x00\x00\x00\x00";

        $dirstr .= pack("V",0).pack("V",0).pack("V",0).pack("v", strlen($name) );

        $dirstr .= pack("v", 0 ).pack("v", 0 ).pack("v", 0 ).pack("v", 0 );

        $dirstr .= pack("V", 16 ).pack("V",$this->datastr_len).$name; 

        $this->dirstr .= $dirstr;    //目录信息

        $this -> file_count ++;

        $this -> dirstr_len += strlen($dirstr);

        $this -> datastr_len += $my_datastr_len;

    }

    function createfile(){

        //压缩包结束信息,包括文件总数,目录信息读取指针位置等信息

        $endstr = "\x50\x4b\x05\x06\x00\x00\x00\x00" .

                    pack('v', $this -> file_count) .

                    pack('v', $this -> file_count) .

                    pack('V', $this -> dirstr_len) .

                    pack('V', $this -> datastr_len) .

                    "\x00\x00";

        fwrite($this->fp,$this->dirstr.$endstr);

        fclose($this->fp);

    }

  }

    if(!trim($_REQUEST[zipname])) $_REQUEST[zipname] = "shenbin.zip"; else $_REQUEST[zipname] = trim($_REQUEST[zipname]);

    if(!strrchr(strtolower($_REQUEST[zipname]),'.')=='.zip') $_REQUEST[zipname] .= ".zip";

    $_REQUEST[todir] = str_replace('\\','/',trim($_REQUEST[todir]));

    if(!strrchr(strtolower($_REQUEST[todir]),'/')=='/') $_REQUEST[todir] .= "/";

    if($_REQUEST[todir]=="/") $_REQUEST[todir] = "./";

    function listfiles($dir="."){

        global $faisunZIP;

        $sub_file_num = 0;

        if(is_file("$dir")){

          if(realpath($faisunZIP ->gzfilename)!=realpath("$dir")){

            $faisunZIP -> addfile(implode('',file("$dir")),"$dir");

            return 1;

          }

            return 0;

        }

        $handle=opendir("$dir");

        while ($file = readdir($handle)) {

           if($file=="."||$file=="..")continue;

           if(is_dir("$dir/$file")){

             $sub_file_num += listfiles("$dir/$file");

           }

           else {

                  if(realpath($faisunZIP ->gzfilename)!=realpath("$dir/$file")){

                 $faisunZIP -> addfile(implode('',file("$dir/$file")),"$dir/$file");

                 $sub_file_num ++;

                }

           }

        }

        closedir($handle);

        if(!$sub_file_num) $faisunZIP -> addfile("","$dir/");

        return $sub_file_num;

    }

    function num_bitunit($num){

      $bitunit=array(' B',' KB',' MB',' GB');

      for($key=0;$key<count($bitunit);$key++){

        if($num>=pow(2,10*$key)-1){ //1023B 会显示为 1KB

          $num_bitunit_str=(ceil($num/pow(2,10*$key)*100)/100)." $bitunit[$key]";

        }

      }

      return $num_bitunit_str;

    }

    if(is_array($_REQUEST[dfile])){

        $faisunZIP = new PHPzip;

        if($faisunZIP -> startfile("$_REQUEST[todir]$_REQUEST[zipname]")){

            echo "正在添加压缩文件...<br><br>";

            $filenum = 0;

            foreach($_REQUEST[dfile] as $file){

                if(is_file($file)){

                    echo "文件: $file<br>";

                }else{

                    echo "目录: $file<br>";

                }

                $filenum += listfiles($file);

            }

            $faisunZIP -> createfile();

            echo "<br>压缩完成,共添加 $filenum 个文件.<br><a href='$_REQUEST[todir]$_REQUEST[zipname]'>$_REQUEST[todir]$_REQUEST[zipname] (".num_bitunit(filesize("$_REQUEST[todir]$_REQUEST[zipname]")).")</a>";

        }else{

            echo "$_REQUEST[todir]$_REQUEST[zipname] 不能写入,请检查路径或权限是否正确.<br>";

        }

    }else{

        echo "没有选择的文件或目录.<br>";

    }

endif;

?>

  </form>

</body>

</html>

具体使用的时，可将以上代码写入到一个没有后缀的文件内。。这样直接访问将提示404

然后用一个php文件include这个文件。。。

在线压缩zip的更多相关文章

Access数据库在线压缩的实现方法
如果在 Access 数据库中删除数据或对象,或者在 Access 项目中删除对象,Access 数据库或 Access 项目可能会产生碎片并会降低磁盘空间的使用效率.压缩 Access 数据库或Ac ...
给大家介绍款在线压缩JS的工具
首先说下该工具的域名:http://javascriptcompressor.com/ 进入后界面如下: 具体要讲下它的功能点:在线压缩 Javascript 源码可以分不同的压缩级别:比如,一般情况 ...
在线压缩JS的工具
给大家介绍款在线压缩JS的工具首先说下该工具的域名:http://javascriptcompressor.com/ 进入后界面如下: 具体要讲下它的功能点:在线压缩 Javascript 源码可以 ...
java zip API实现压缩和解压缩zip包
package zip; import java.io.BufferedInputStream; import java.io.BufferedOutputStream; import java.io ...
asp在线压缩和解压缩文件（文件夹）
<%'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'\\'\\ 1. c:\windows\system32\cmd.e ...
HTML/CSS/Javascript代码在线压缩、格式化(美化)工具
CSS 格式化 ProCSSor - http://procssor.com/ CSS 压缩 CSS Compressor - http://www.cssdrive.com/index.php/ ...
CSS在线压缩
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/ ...
【链接】在线压缩JS文件
在线压缩JS文件: http://yui.2clics.net/ https://refresh-sf.com/
Linux中解压、压缩 ZIP文件
解压 unzip -o -d /home/v-gazh myfile.zip # 把myfile.zip文件解压到 /home/v-gazh/ # -o:不提示的情况下覆盖文件: # -d:-d /h ...

随机推荐

Oracle language types(语言种类) 表的相关操作 DDL数据定义语言
数据定义语言 Data Definition Language Statements(DDL)数据操纵语言 Data Manipulation Language(DML) Statements事务控制 ...
常用 CSS 中文字体 Unicode 编码表
为什么要在CSS中设置字体用字体 Unicode 编码在 CSS 中设置字体名称,直接写中文是可以的.但是在文件编码(GB2312.UTF-8 等)不匹配时会产生乱码的错误. 为此,在 CSS直接使 ...
HDU 4441 Queue Sequence
http://acm.hdu.edu.cn/showproblem.php?pid=4441 题意:对于一个序列,每次有三种操作 insert pos 表示在pos插入一个数,这个数是最小的正数 ...
Netty4 自定义Decoder，Encoder进行对象传递
首先我们必须知道Tcp粘包和拆包的,TCP是个“流”协议,所谓流,就是没有界限的一串数据,TCP底层并不了解上层业务数据的具体含义,它会根据TCP缓冲区的实际数据进行包的划分,一个完整的包可能会被拆分 ...
POJ 3921 Destroying the bus stations 沿着最短路迭代加深搜索
题目:给出一个图,问最少删除多少个点,使得从点1到点n经过的点数超过k个. 分析: 上网搜了一下,发现很多人用网络流做的,发现我不会.再后来看到这篇说网络流的做法是错的,囧. 后来发现点数有点少,直接 ...
移动端开发，几个你可能不知道的CSS单位属性。
1. rem "em" 单位是我们开发中比较常用到的,它表示以当前元素的父元素的单位大小为基准来设置当前元素的大小:“rem” 中的 “r” 代表 “root”,它表示以根(即“h ...
HTML5游戏开发,剪刀石头布小游戏案例
剪刀石头布,非常可爱的小游戏,相信大家都非常的怀念这款小游戏,小时候也玩过很多次,陪伴着我的童年的成长,现在是不是还会玩一下,剪刀石头布游戏的规则我们都知道是:剪刀剪布,石头砸剪刀,布包石头.跟朋友. ...
微信小程序开发1
关于微信小程序的开发.对于我们这些没学过oc或者android的人来说,无疑是一个令人鸡冻的好消息.这段时间研究了微信小程序开发.关于小程序的注册,认证和基础环境的搭建,官方文档已经非常详细了.这里就 ...
FusionCharts 相关知识
FusionCharts1.平均线: <trendLines><line startValue='{0}' toolText='平均线' color='#FF0000' displa ...
经典算法系列--kmp
前言之前对kmp算法虽然了解它的原理,即求出P0···Pi的最大相同前后缀长度k:但是问题在于如何求出这个最大前后缀长度呢?我觉得网上很多帖子都说的不是很清楚,总感觉没有把那层纸戳破,后来翻看算法导 ...

在线压缩zip

在线压缩zip的更多相关文章

随机推荐

热门专题