我继承了一个系统,允许用户查看各个部分的报告,然后将其留在那里长达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>
答案 0 :(得分:0)
我认为你只是“确认行动”功能。如果是这样的话,你可以做一个小学校的JS。
<强>头强>
<script type="text/javascript">
function popupConfirmMsg(msg) {
document.your_returnValue = confirm(msg)
}
</script>
按钮强>
然后将按钮更改为以下内容:
<input name="button" type="submit" id="button" onclick="popupConfirmMsg('Are you sure you want to do this?');return document.your_returnValue" value="Next" />
这应该提示用户确认操作。如果他们点击取消它将关闭弹出框。如果他们点击OK,那么它将执行POST。唯一真正的缺点是,如果他们的浏览器设置中关闭了JavaScript,但现在大多数人都有这个,因为如果没有它,HTML5 / CSS / jQuery将无法正常工作!