用實現ASP批量刪除目錄及文件的代碼
更新時間：2007年07月21日 00:00:00 作者：
函數過程：
<%
'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("目錄名")
%>
復制代碼 代碼如下:
<%
'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("目錄名")
%>
相關文章
這篇文章主要介紹了asp畫中畫廣告插入在每篇文章中的實現方法,需要的朋友可以參考下2016-01-01
在線掃描探測檢查asp站點木馬后門的程序...2007-03-03
今天在開發(fā)用戶留言，一份存到數據庫中，另外一份要發(fā)送到制定的郵箱中，因不知道服務器是否支持，如果支持則發(fā)送留言信息到email中。2010-12-12
正常ASP中對錄入內容的過濾僅僅是對左尖括號和右尖括號的HTML源碼的替換，所以在頁面中顯示為左右尖括號，而不是將尖括號作為HTML標簽執(zhí)行了。2008-12-12
個人網站如有會員注冊模塊+動網論壇的話，那網站要與動網論壇系統整合，實現不同Web系統之間的用戶信息同步更新、登錄等操作就不是件容易的事了2008-06-06
把RS.GetRows看得更清楚...2007-04-04
這篇文章主要介紹了ASP下通過Adodb.Stream實現多線程下載大文件,需要的朋友可以參考下2020-08-08
最近朋友網站需要將網站生成靜態(tài)，但有時候生成靜態(tài)會出現問題，特多整理了一些方法， 大家可以根據自己網站需要選擇。2011-05-05
asp下比較全面的獲取IP地址的代碼...2007-08-08
這里整理下asp頁面下出現亂碼的問題，好多ajax讀取的數據出現亂碼的解決方法，asp.net,php等語言的亂碼，解決原理都是一樣的。2007-12-12