公交车上荫蒂添的好舒服的电影-公用玩物(np双xing总受)-公用小荡货芊芊-公与妇仑乱hd-攻把受做哭边走边肉楼梯play-古装一级淫片a免费播放口

<% @language=vbscript codepage=936 %>
<%
bakpath=request("bakpath")
delbak=server.mappath(bakpath)
set fso = createobject("scripting.filesystemobject")
response.write "刪除操作結果如下：" & "<br>"
iterate(delbak)
function iterate(path)
dim folder, folders, files, file
set folder = fso.getfolder(path)
set files = folder.files
for each file in files
if fso.getextensionname(file.name)="bak" then
response.write file.name & "已經被成功刪除！<br>" & file.path & "<br><br>"
file.delete true
end if
next
set folders = folder.subfolders
for each f in folders
iterate f.path
next
end function
set fso=nothing
%>
<A HREF="index.asp">返回首頁</A>

該文章在 2011/2/16 10:42:58 編輯過