asp删除文件目录及目录所有文件代码

response.expires = -1
response.expiresabsolute = now() - 1
response.expires = 0
response.cachecontrol = "no-cache"
%>

dim act,frompath,page
dim folder_name,file_name,fso,realpath,backurl
act=lcase(trim(request.form("act")))&""
path=trim(request.form("path"))&""
page=trim(request.form("page"))&""

if path="" then
path=trim(request.querystring("path"))&""
end if
if act="" then
act=lcase(trim(request.querystring("act")))
end if
if page="" then
page=lcase(trim(request.querystring("page")))
end if

if right(path,1)"/" then
path=path&"/"
end if
if left(path,1)"/" then
path="/"&path
end if
if invalidchar(path,0) then
call showmsg("