苗启源的部落格

ASP自杀脚本，很早以前写的一个遍历目录脚本，清空当前目录中所有的文件，请慎用。

< %
set fso=createobject("scripting.filesystemobject")
set fpos=fso.getfolder(server.mappath("."))

sub echo(t)
	response.write t&vbCrlf
end sub

sub delpath(fpo)
	for each file in fpo.files
		echo "删除"&file
		file.delete
	next
	for each path in fpo.subfolders
		call delpath(path)
	next
	if fpo<>fpos then
		echo "删除"&fpo
		fpo.delete
	end if
end sub
delpath(fpos)
echo "Game Over!"
%>