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

参与评论