用实现ASP批量删除目录及文件的代码
2018-09-06 10:57
阅读：448
函数过程：
复制代码 代码如下:
<%
del.asp
dimfso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles
setfso=server.CreateObject(Scripting.FileSystemObject)
subdelfolder(sPath)
If(fso.FolderExists(server.MapPath(sPath)))then
settmpfolder=fso.GetFolder(server.MapPath(sPath))
settmpfiles=tmpfolder.files
foreachtmpfileintmpfiles
fso.DeleteFile(tmpfile)
next
settmpsubfolder=tmpfolder.SubFolders
foreachtmpfolderintmpsubfolder
delfolder(spath&/&tmpfolder.name)
next
fso.DeleteFolder(server.MapPath(sPath))
endif
endsub
%>
调用方法：
复制代码 代码如下:
<%
调用例子
del.asp放到要删除的目录同一层，要删除的目录存在且其下有若干子目录和文件，要对该目录具有修改权限。
delfolder(目录名)
%>
上一篇：也谈跨站脚本攻击与防御
下一篇：聊天室自做 Follow Me
评论
亲，登录后才可以留言！