📄 deletefiles.asp
字号:
<!-- AspUpload Code samples: DirectoryListing.asp -->
<!-- Delete arbitrary files from a directory on the server -->
<!-- Copyright (c) 2001 Persits Software, Inc. -->
<!-- http://www.persits.com -->
<HTML>
<BODY>
<H3>File Deletion</H3>
<P>
For security reasons the command <B>Upload.DeleteFile</B> (line 26)
is commented out. Un-comment it to make this sample functional.
Notice that this will make your root directory vulnerable
to an outside attack as anyone will be able to delete files from it.
<P>
<%
Directory = "c:\" ' initial directory
Set Upload = Server.CreateObject("Persits.Upload.1")
Set Dir = Upload.Directory( Directory & "*.*", Request("sortby"))
' perform deletions if this is a form submission
If Request("Delete") <> "" Then
For Each Item in Request("FileName")
Response.Write "<B>Deleting File " & Item & "</B><BR>"
' uncomment next line to enable deletions.
' Upload.DeleteFile Directory & Item
Next
End If
%>
<h3><% = Dir.Path %></h3>
<FORM ACTION="DeleteFiles.asp" METHOD="POST">
<TABLE BORDER="1" CELLSPACING="0" CELLPADDING="0" STYLE="font-size: 8pt;">
<TR><TH> </TH>
<TH><A HREF="DeleteFiles.asp?sortby=1">Name</A></TH>
<TH><A HREF="DeleteFiles.asp?sortby=3">Size</A></TH>
<TH><A HREF="DeleteFiles.asp?sortby=2">Type</A></TH>
<TH><A HREF="DeleteFiles.asp?sortby=5">Date</A></TH></TR>
<% For Each File in Dir %>
<% If Not File.IsSubdirectory Then %>
<TR>
<TD><INPUT TYPE="CHECKBOX" VALUE="<% = Server.HTMLEncode(File.FileName)%>" NAME="FileName"></TD>
<TD><% = File.FileName %></TD>
<TD><% = File.Size %></TD>
<TD><% = File.FileType %></TD>
<TD><% = File.LastWriteTime %></TD>
</TR>
<% End If
Next %>
<TR>
<TD COLSPAN="5">
<INPUT TYPE="HIDDEN" NAME="sortby" VALUE="<% = Request("sortby") %>">
<INPUT TYPE="SUBMIT" NAME="Delete" VALUE="Delete selected files">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -