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