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