在线压缩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 字符设备驱动模型
一.使用字符设备驱动程序 1. 编译/安装驱动在Linux系统中,驱动程序通常采用内核模块的程序结构来进行编码.因此,编译/安装一个驱动程序,其实质就是编译/安装一个内核模块 2. 创建设备文件通 ...
.net导出Word的一种方法
由于ActiveX控件只支持IE(好像FF可以通过安装插件支持),所以js导出word的方式就比较局限可是如果当页面经过js修改以后,.net是无法获取到的,所以要通过js获取到最新的html并传给 ...
Part 18 Indexes in sql server
Indexes in sql server Clustered and nonclustered indexes in sql server Unique and Non Unique Indexes ...
SQL中char、varchar、nvarchar
char char是定长的,也就是当你输入的字符小于你指定的数目时,char(8),你输入的字符小于8时,它会再后面补空值.当你输入的字符大于指定的数时,它会截取超出的字符. nvarcha ...
Struts2基本包作用详解
asm-3.3.jar作用:操作java字节码的类库包路径及主要类:未提供 asm-commons-3.3.jar作用:提供了基于事件的表现形式包路径及主要类:未提供 asm-tree-3.3.jar ...
ASP.Net 类(CS)文件怎样获取Web应用程序的路径
Web应用程序,写了一个线程CS类别,这个类别将会放于Global.asax文件中执行,主要是监控程序下某一个文件是否有异动,而作出相应警示动作,如发送邮件等. 实现运行过程中,也许会有一个情况出现, ...
Cocos2d-x移植到WindowsPhone8移植问题-libNetwork库移植问题
Cocos2d-x提供了libNetwork库的源代码,而且还提供了libNetwork库的源代码Visual Studio 2012工程文件libNetwork.vcxproj,这样就更方便移植了. ...
继承关系在内存和DB中的映射
使用将若干相似的类映射为单表,对拥有许多特殊数据的类使用具体表继承. 对高层次使用类表继承,对低层次使用具体表继承. Single Table Inheritance 在DB中将类继承层次设计为一个 ...
15个web前端的美轮美奂的 jQuery 图片特效
jQuery是一个非常优秀的 JavaScript 框架,使用简单灵活,同时还有许多成熟的插件可供选择.其中,jQuery 最令人印象深刻的应用之一就是对图片的处理,它可以让帮助你在你的项目中加入各种 ...

在线压缩zip

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

随机推荐

热门专题