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

我想能够解压一个.zip文件使用ASP经典

我已经在谷歌上做了一点尝试，希望它能让我做到这一点，而且那里似乎有相当数量的图书馆。然而，就我所知，所有这些都要求我安装第三方DLL

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

有没有什么类库可以让我加入进来

---

谢谢你的时间

我不确定你是否能让它与ASP一起工作，但是在这里你会找到一种在VB中使用DLL解压的方法，但是你不需要注册DLL，只要把它放在类可以找到它的地方就行了

我在一个VB6编译的应用程序中使用过它，但也许你可以将它应用到ASP。不确定

这是您需要的代码：

---

希望有帮助。

我已经解决了我的问题。。。它相当混乱，远不是理想的，并且依赖于服务器设置，但是为了将来有类似问题的人和服务器，这里是我如何解决它的

基本上，我使用了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;
}

?>

在哪里

---

我相信一定有更好的方法可以做到这一点，但就目前我的情况而言，这似乎还可以（希望没有人会知道！）。

这看起来很有希望！我要试一试

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.