在线压缩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 ...

随机推荐

linux 文件系统（inode和block）
linux文件系统(inode block superblock) 先说一下格式化:每种操作系统所设置的文件属性/权限并不相同,为了存放这些文件所需的数据,因此就需要将分区格式化,以成为操作系统能 ...
Sqlite3笔记
.tables 查看表.databases 创建数据库alter table 表名 RENAME TO 新表名ALTER TABLE 表名 add column 列名 datatype [DEFAUL ...
DNA电荷转移：电阻的计算公式 & Marcus电子转移理论
更新:26 APR 2016 参考文献: [1] Mechanisms for DNA Charge Transport. Chem. Rev. 2010, 110, 3, 1642-1662 [电子 ...
Mac下kernel_task占用大量CPU怎么办？
我们都知道要想让电脑运行的快速,那么就要尽量的保持内存和CPU的充足.不过一些MAC用户发现MAC系统中的Kernel_task会占用大量的CPU,导致电脑发热变卡.这个问题该怎么解决呢? 具体操作步 ...
java 获取数组(二维数组)长度实例程序
我们可能知道 js有个length函数,java也有啊length函数例如果数组是data[],则data.length 代码如下复制代码 byte[] phone =new byte[81]; ...
C#反射技术的简单操作(读取和设置类的属性)
public class A { public int Property1 { get; set; } } static void Main(){ A aa = new A(); Type type ...
java中serializable
java中serializable是一个对象序列化的接口,一个类只有实现了Serializable接口,它的对象才是可序列化的.因此如果要序列化某些类的对象,这些类就必须实现Serializable接 ...
cocos2dx注册场景使用CCEditBox实现输入框
我们在开始玩一个游戏时,通常要做的第一件事就是注册账号,下面就让我们来制作一个简单的注册场景,我所使用的cocos2dx版本为2.2.2 在这个场景中最主要的元素就是输入框和按钮,我从网上找了一些素材 ...
fread 和 fwrite 函数用法示例以及注意事项
1.函数功能用来读写一个数据块. 2.一般调用形式 fread(buffer,size,count,fp); fwrite(buffer,size,count,fp); 3.说明 ( ...
杭电ACM2096--小明A+B
http://acm.hdu.edu.cn/showproblem.php?pid=2096 本来就是很简单.但是数据的大小有要求. (a%100+b%100)%100和(a+b)%100本来没有什么 ...

在线压缩zip

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

随机推荐

热门专题