是否有一种（免费）方法可以在 ASP Classic 中解压 .zip 文件而不使用 .DLL

Question

我希望能够使用 ASP classic 解压 .zip 文件。

我在谷歌上搜索了一些可以让我做到这一点的东西，并且似乎有相当数量的库在那里。然而，据我所知，所有这些都要求我安装第三方 DLL。

将部署此脚本的服务器（或更准确地说是控制所述服务器的 IT 部门）将不允许我使用这些来扩展 ASP 的功能并执行我被要求执行的操作（完全自相矛盾！）。

是否有任何类库可供我作为包含项添加？

谢谢你的时间

Answer 1

不确定是否可以使其与 ASP 一起使用，但在此 项目< /a> 你会找到一种在 VB 中使用 DLL 来解压的方法，但你不需要注册 DLL，只需将它放在类可以找到它的地方即可。

我已经在 VB 6 编译的应用程序中使用了它，但也许您可以将其改编为 ASP。没有把握。

这是您需要的代码：UnZip.cls< br>
希望有帮助。

Answer 2

我已经解决了我的问题......它非常混乱，远非理想，并且依赖于服务器设置，但为了将来遇到类似问题和服务器的任何人，这里是我解决它的方法。

基本上，我使用了 PHP 的 ZIP 库，该库似乎安装在我正在处理的服务器上，并制作了一个 unzip.php 文件：

<?PHP

$infile = $_REQUEST['infile'];
$outfile = $_REQUEST['outfile'];

$input_folder = "uploads";
$output_folder = "templates";

echo "false";

$zip = zip_open($input_folder."/".$infile);
if ($zip) {
  while ($zip_entry = zip_read($zip)) {
    $fp = fopen($output_folder."/".$outfile."/".zip_entry_name($zip_entry), "w");
    if (zip_entry_open($zip, $zip_entry, "r")) {
      $buf = zip_entry_read($zip_entry, zip_entry_filesize($zip_entry));
      fwrite($fp,"$buf");
      zip_entry_close($zip_entry);
      fclose($fp);
    } else {
    echo "false";
    exit;
    }
  }
    echo "true";
  zip_close($zip);
} else {
    echo "false";
    exit;
}

?>

然后，我想在我的 ASP 脚本中调用它，我将 HTTPXML 发送到同一位置上的 PHP 文件位置服务器将我的变量作为查询字符串的一部分。

Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://" & strdomain & "/unzip.php?infile="& filename &"&outfile=" & out_foldername, False
xml.Send
if xml.responseText = "true" then
    SaveFiles = SaveFiles & "(unzip successful!)"
else
    SaveFiles = SaveFiles & "(unzip failed!)"
end if
Set xml = Nothing
next

我确信一定有一种更好的方法来做到这一点

filename     =   The name of the file that you want to unzip
out_folder   =   The name of the folder that you want put your unzipped files into
strdomain    =   Request.ServerVariables("HTTP_HOST")
SaveFiles    =   my return variable.

，但目前在我的情况下，这似乎工作正常（希望没有人会知道！）。