1

私は、ユーザーがさまざまなセクションからのレポートを表示し、そこに最大 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>
4

1 に答える 1