用实现ASP批量删除目录及文件的代码

　　<%

　　'del.asp

　　dim fso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles

　　set fso=server.CreateObject("Scripting.FileSystemObject")

　　sub delfolder(sPath)

　　If (fso.FolderExists(server.MapPath (sPath))) then

　　set tmpfolder=fso.GetFolder(server.MapPath (sPath))

　　set tmpfiles=tmpfolder.files

　　for each tmpfile in tmpfiles

　　fso.DeleteFile (tmpfile)

　　next

　　set tmpsubfolder=tmpfolder.SubFolders

　　for each tmpfolder in tmpsubfolder

　　response.Write spath&"/"&tmpfolder.name&"<br>"

　　delfolder(spath&"/"&tmpfolder.name )

　　next

　　fso.DeleteFolder (server.MapPath (sPath))

　　end if

　　end sub

　　%>

　　<%

　　'调用例子

　　'del.asp放到要删除的目录同一层，要删除的目录存在且其下有若干子目录和文件，要对该目录具有修改权限。

　　delfolder("目录名")

　　%>