文件删除函数

<%

'文件删除函数

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)

%>