程序代码
'===========================================================
'函数名称:ActivationSystem
'功能描述:asp时间触发器
'作 者:GIDOT
'参数说明:appname时间触发器名,keeptime触发过程的时限(单位:秒),subname所触发的过程。
'例 程:call ActivationSystem("Artlist",2000,"loadArtlist")
'----------------------------------------------------------
sub ActivationSystem(appname,keeptime,subname)
if Application(appname &"_dat") = "" then
execute subname
application(appname &"_dat") = now()
else
if datediff("s",Application(appname &"_dat"),now) >= keeptime then
execute subname
application(appname &"_dat") = now()
end if
end if
end sub
'===========================================================
上面是我写的时间触发器,参数appname是为了实现同一网站可触发多个时间而给每个触发命名(任意命名,可使用中文),keeptime参数为每次触发的周期时间,subname为所触发的过程名。例子:
call ActivationSystem("首页新闻",300,"printout")
sub printout()
'从数据库读取数据,并生成首页静态文件。
end sub
这么写,就实现了每间隔5分钟便自动更新一次首页的效果。