文件删除函数

<%
‘’文件删除函数
function deletefile(filename)
if filename<>"" then
set fso=server.CreateObject("scripting.filesystemobject")
if fso.FileExists(filename) then
fso.DeleteFile filename
else
Response.Write "<script>alert(‘’该文件不存在‘’);</script>"
end if
end if
end function

strfile=server.MapPath("fileName")
deletefile(strfile)
%>

原文转自：http://www.ltesting.net