Classic ASP 仅归档功能归档拳头文件

Question

问题

我有一个 ASP 函数，它应该根据用户检查来存档文件。由于某种原因，它只归档第一个文件。

例如，如果用户检查文件 BD_Test1.txt 和 Test2.txt，压缩文件将只包含 BD_Test1.txt.

HTML代码

<form method="post">
    Resume 1 <input type="checkbox" name=check1 value="BD_Test1.txt"><br>
    Resume 2 <input type="checkbox" name=check1 value="BD_Test2.txt"><br>
    Resume 3 <input type="checkbox" name=check1 value="BD_Test3.txt"><br>
    Resume 4 <input type="checkbox" name=check1 value="BD_Test4.txt"><br>
    Resume 5 <input type="checkbox" name=check1 value="BD_Test5.txt"><br>
    Resume 6 <input type="checkbox" name=check1 value="BD_Test6.txt"><br>
    Resume 7 <input type="checkbox" name=check1 value="BD_Test7.txt"><br>
    Resume 8 <input type="checkbox" name=check1 value="BD_Test8.txt"><br>
    Resume 9 <input type="checkbox" name=check1 value="BD_Test9.txt"><br>
    Resume 10 <input type="checkbox" name=check1 value="BD_Test10.txt"><br>
    <br><input type = "submit" name="zipFile" value = "Download"/><br>
</form>

<br><br>

<%
If (Request.Form("zipFile") <> "") Then
    Call archiveFile()
End If
%>

ASP代码

Function archiveFile()
    Dim request_Value, request_File
    Dim compress_Zip
    Dim i

    request_Value = Request("check1")
    request_File = split(request_Value,",")

    Set compress_Zip = Server.CreateObject("XStandard.Zip")

    For i = LBound(request_File) to UBound(request_File)
        compress_Zip.pack Server.MapPath("resumes/" & request_File(i)), Server.MapPath("compressed/BD_Compressed.zip")
    Next

    Set compress_Zip = Nothing
End Function

Answer 1

我找到了这个问题，对于任何有同样问题的人...

ASP 代码 request_File = split(request_Value,",") 仅拆分为逗号，而不是命令和 space。因此，request_File 输出 Test1.txt Test2.txt 应该是 Test1.txtTest2.txt

这是告诉代码压缩不存在的文件。

Classic ASP 仅归档功能归档拳头文件

Classic ASP Archive Function Only Archiving Fist File

checkbox

zip

post

asp-classic

问题

HTML代码

ASP代码