asp删除文件函数

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