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