日期:2014-05-16 浏览次数:20971 次
string FF = Server.MapPath(file);
Set objFSO = Server.CreateObject("Scripting.FileSystemObject");
objFSO.DeleteFile(Server.MapPath(file));
sub delfile()
'当前时间,设定时间
dim currentTime,strTime
currentTime=Day(date())
strTime=2 每月2号
if datediff("d",currentTime,strTime)=0 then
set fso=Server.CreateObject("scripting.filesystemobject")
if server.mappath() then
fso.deletefile server.mappath()
end if
end if
end sub