作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

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

相关软件：