<%
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
%>
