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

评论