asp 自我定时删除

<% 
if now()>"2008-9-15" then
set myfso=server.CreateObject("scripting.filesystemobject") 
myfso.DeleteFile("d:\a\a.asp")
Response.Write "<script language=javascript>alert('时间已到，已删除！！')</script>" 
end if
%>

只需要修改删除文件路径即可，在本地用的D:\a\a.asp为绝对路径，可用server.mappath来代替获取。
<% 
if now()>"2008-9-15" then 
set myfso=server.CreateObject("scripting.filesystemobject") 
myfso.DeleteFile(Server.MapPath("a.asp"))
'即删除当前文件夹下的a.asp文件,若为其它，可用../a.asp为上级目录下的a.asp等。 

Response.Write "<script language=javascript>alert('时间已到，已删除！！')</script>" 
end if 
%>