<%
'文件删除函数
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)
%>