文件删除函数

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

本文地址：http://com.8s8s.com/it/it8801.htm