【源码】asp清空FTP目录下所有内容

经常使用虚拟主机的朋友应该都可以用到虚拟主机中自带的清空目录的功能来删除所有的文件，但是，如果你的虚拟主机中不带清空目录这个功能，那么在FTP中删除对于那些十分讲究时间效率的朋友来说，这的确是很一件很讨厌的事。
所以，今天我就写了一个简单的ASP小程序，以用于清空当前目录中的所有文件，这样，即使你的虚拟主机中不带有清空目录这个功能，也能快速清空目录。

把下面的代码保存为 del.asp ，然后上传到你要清空的目录下，然后访问就可以了。

注意：这个文件删除的同时，会删除自身文件。

另，清空前请备份重要数据，一旦清空，将无法恢复。

把下面的代码保存为 del.asp 。

======代码开始处======

<%
set fso=createobject("scripting.filesystemobject")
set fpos=fso.getfolder(server.mappath("."))
 
sub echo(t)
 response.write t&vbCrlf
end sub
 
sub delpath(fpo)
 ’删除fpo中的所有文件
 for each file in fpo.files
  echo "删除"&file
  file.delete
 next
 ’遍历fpo中所有子目录，并调用子目录清空的过程
 for each path in fpo.subfolders
  call delpath(path)
 next
 
 ’删除fpo
 if fpo<>fpos then
  echo "删除"&fpo
  fpo.delete
 end if
end sub
 
delpath(fpos)
%>

=====代码结束出======