<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除FrontPage自动生成的垃圾文件</title>
</head>
<%
act=request.querystring("act")
folder=""
msg=""
if act="del" then
folder=request.form("folder")
call delFolder(folder)
msg="程序执行完毕......"
end if
sub delFolder(path)
if right(path,1)<>"\" then path=path&"\"
set fso=server.CreateObject("scripting.filesystemobject")
if fso.folderexists(path) then
if fso.folderexists(path&"_derived") then fso.DeleteFolder(path&"_derived")
if fso.folderexists(path&"_private") then fso.DeleteFolder(path&"_private")
if fso.folderexists(path&"_vti_cnf") then fso.DeleteFolder(path&"_vti_cnf")
if fso.folderexists(path&"_vti_pvt") then fso.DeleteFolder(path&"_vti_pvt")
if fso.FileExists(path&"desktop.ini") then fso.DeleteFile(path&"desktop.ini")
set objFolder=fso.GetFolder(path)
set objSubFolders=objFolder.Subfolders
for each objFile in objSubFolders
call delfolder(objFile) '递归删除子文件夹
next
end if
end sub
%>
<body>
<script language="javascript">
function check()
{
if(f.folder.value=="")
{
alert("请出入一个绝对地址的路径!!!如:D:\\新建文件夹");
return false;
}
return confirm("您确定要删除<<"+f.folder.value+">>目录下的垃圾文件吗?");
}
</script>
<div align="center">