Question

ASP删除文件代码

我想用一个ASP文件,只要打开这个网页就会删除指定的文件,要完整代码,就是说一个文件的全部代码,最好简单化,不要那些IF什么的,比如说我有一个11.ASP文件,上传到网站上,打开XXX/11.ASP就会删除我指定的一个文件,比如是删除同一目录的MM.TXT文件,最好是隐藏打开.谢谢

Answer 1

<%
On Error Resume Next
filepath="MM.txt" '要删除的文件相对路径
set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.MapPath(filepath))
if err.Number<>0 then
Response.Write "删除失败！错误信息："&err.description
else
Response.Write"删除成功！"
end if
Set fso = nothing
%>

Answer 2

'程序名：delfile.asp
'关键参数：struploadfiles 文件名称
例：<a href="/delfile.asp?action=test.rar">删除test.rar文件</a>

<%
struploadfiles=trim(request.querystring("struploadfiles"))
action=trim(request.querystring("action"))
response.write "成功删除<font color=red>"&struploadfiles&"</font>文件!"
call delfiles(struploadfiles & "")
sub delfiles(struploadfiles)
if struploadfiles="" then exit sub
dim fso,arruploadfiles,i
set fso = createobject("scripting.filesystemobject")
fso.deletefile(server.mappath("" & struploadfiles))
set fso = nothing
response.write"<script language=javascript>alert('成功删除文件,将返回上一页!');"
response.write"this.location.href='javascript:history.back();'</script>"
end sub
%>

Answer 3

那就是删除文件夹咯~
利用FSO
假设路径文件夹所在路径是path
Dim
fso
Set
fso
=
CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(path)
path必须是绝对路径，则可以用server.MapPath将相对路径转成绝对路径