文件删除函数
网络整理 - 07-26
<%''文件删除函数
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)
%>