ASP”触发器” 的简单实现
trigger函数主要是完成某部分程序(注释里面的需要触发的程序)一天只运行一次的功能,需要把这一函数放在每天都可能打开的页面上。
如果需要触发的程序运行速度不乐观,建议不要放在公共函数里面。否则总有人倒霉的~
这个可以让其自动执行某一个程序使用也是可以的,但是需要做些许的修改!
<%
sub trigger()
if application("trigerTime")="" then application("trigerTime")=date
if application("trigerTag")=true and FormatDateTime(application("trigerTime"),vbShortDate)>=FormatDateTime(date,vbShortDate) then
exit sub
else
application("trigerTag")=true
application("trigerTime")=date
'此处为需要触发程序
end if
end sub
Call trigger()
%>
sub trigger()
if application("trigerTime")="" then application("trigerTime")=date
if application("trigerTag")=true and FormatDateTime(application("trigerTime"),vbShortDate)>=FormatDateTime(date,vbShortDate) then
exit sub
else
application("trigerTag")=true
application("trigerTime")=date
'此处为需要触发程序
end if
end sub
Call trigger()
%>