我继承了一个系统,该系统允许用户查看各个部分的报告,然后将它们留在那里长达 1 年(服务器会自行删除它们),或者如果他们愿意,可以继续删除单个文件。问题是目前完成的方式是用户必须单击每个单独的文件并确认删除。我希望将此设置作为一个表单,以便他们可以选中他们希望删除的每个文件旁边的框,然后确认要删除的列表,所有这些都将立即完成。
不过,当谈到如何执行此操作时,我是在画一个空白。我目前已将其设置为文件名是每个复选框的值。我认为这可以与 javascript 警报一起用于确认删除以及处理删除过程时。
<form>
<%
Dim sMasterFolder
Dim oMasterFolder
Dim oFSO
sMasterFolder=Server.MapPath(Session("HOMEFOLDER")+"/reports")
Set oFSO=Server.CreateObject("Scripting.FileSystemObject")
' ** CHECK TO SEE IF ANY FILES ARE TO BE DELETED **
If Request("sDel")<>"" Then
oFSO.DeleteFile (Request("sDel"))
End If
%>
<div class="section_heading_2">
File Name
</div>
<%
Set oMasterFolder=oFSO.getFolder(sMasterFolder)
'Response.Write sMasterFolder & "<br /><br />"
For each File in oMasterFolder.Files
'Response.Write "<a href=delfile.asp?sDel=" & (replace(File.Path," ","%20")) &" onclick=""return confirmdelete()"">" & File.Name & "</a><br />"
Response.Write "<input type='checkbox' value='" & File.Path & File.Name & "'> " & File.Name & "<br />"
Next
Set oMasterFolder = nothing
Set oFSO = nothing
%>
<br />
<input type="submit" value="Delete">
</form>