asp删除文件的函数（三个）

<%
”文件删除函数
function del&#101;tefile(filename)
if filename<>”” then
set fso=server.Cr&#101;ateObject(“scripting.filesystemobject”)
if fso.FileExists(filename) then
fso.Del&#101;teFile filename
else
Response.Write “<script>alert(”该文件不存在”);</script>”
end if
end if
end function

strfile=server.MapPath(“fileName”)
del&#101;tefile(strfile)
%>

‘程序名：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>”&amp;struploadfiles&amp;”</font>文件!”
call delfiles(struploadfiles &amp; “”)
sub delfiles(struploadfiles)
if struploadfiles=”” then exit sub
dim fso,arruploadfiles,i
set fso = cr&#101;ateobject(“scripting.filesystemobject”)
fso.del&#101;tefile(server.mappath(“” &amp; struploadfiles))
set fso = nothing
response.write”<script language=javascript>alert(‘成功删除文件,将返回上一页!’);”
response.write”this.location.href=’javascript:history.back();'</script>”
end sub
%>

<%
”文件删除函数
function del&#101;tefile(filename)
if filename<>”” then
set fso=server.Cr&#101;ateObject(“scripting.filesystemobject”)
if fso.FileExists(filename) then
fso.Del&#101;teFile filename
else
Response.Write “<script>alert(”该文件不存在”);</script>”
end if
end if
end function

strfile=server.MapPath(“fileName”)
del&#101;tefile(strfile)
%>