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