亚洲免费不卡_在线视频精品_国产尤物精品_久久久久网址_久久精品91_欧美va天堂在线_狠狠入ady亚洲精品_亚洲午夜精品福利_国产精品草草_午夜精品久久99蜜桃的功能介绍

用asp寫了一個函數,asp刪除指定文件夾里面的所有內容,看看能看懂么?

<%@language="vbscript"%>

<%Option Explicit%>

<%

'asp獲取當前物理路徑

Dim foraspcnbase,foraspcndelpath,foraspcntemp,foraspcntemp_array

Dim foraspcnFos'

Set foraspcnFos = server.CreateObject("scripting.filesystemobject")

If not IsObject(foraspcnFos) Then response.write ("不支持FOS!,結束!"),response.End()

foraspcnbase = request.ServerVariables("APPL_PHYSICAL_PATH")'獲取當前站點物理路徑

Function Foraspcn(path)

Dim path_folder,path_array,temp_path,filename,filename_array

If not foraspcnFos.FolderExists(path) Then

Foraspcn = False

Exit Function

End if

'如果是文件夾則開始遍歷

Set path_folder = foraspcnFos.GetFolder(path)

set path_array = path_folder.Subfolders'

For each temp_path In path_array

If foraspcn(temp_path) Then

foraspcnFos.DeleteFolder(temp_path)

End if

Next

'刪除目前所屬文件夾內文件

Set filename = path_folder.files

For each filename_array In filename

foraspcnFos.DeleteFile path&"\"&filename_array.name

Next

Foraspcn = true

End Function

foraspcndelpath = foraspcnbase&"a"'刪除根目錄下的a文件夾以及里面所有內容

If foraspcn(foraspcndelpath) Then

response.write "刪除成功"

Else

response.write "刪除失敗"

End if

%>

這個有個缺陷是不能刪除自身所屬文件夾(這理指的是a),再考慮寫個新的asp刪除文件夾

更多信息請查看IT技術專欄