asp删除文件的过程

<%
function  DelFiles(furl)
dim FSO
set FSO=server.CreateObject("Scripting.FileSystemObject")
if FSO.FileExists(Furl) then     
FSO.DeleteFile 
server.MapPath(Furl),true         
set FSO=nothing
response.Write("删除成功!")   
else 
response.Write("文件不存在!")
response.Write server.MapPath(Furl)
end if 
end  function
'dim date2

'date2="2009-5-30"  '设定一个有效时间
'if datediff("d",date2,date()) <0 then '如果超过有效时间
call DelFiles("help.txt") 
'删除help.txt
'end if
%> 

---

总是提示没有这个文件

---

function  DelFiles(furl)
dim FSO
set FSO=server.CreateObject("Scripting.FileSystemObject")

Furl=server.MapPath("help.txt")
if FSO.FileExists(Furl) then     
FSO.DeleteFile (Furl)
'server.MapPath(Furl),true         
set FSO=nothing
response.Write("删除成功!")   
else 
response.Write("文件不存在!")
response.Write server.MapPath(Furl)
end if 
end  function

---

上面是删除文