日期:2014-05-17 浏览次数:20975 次
<%
Sub CheckTask
Application.Lock
Dim check
check = False
'如果Application("task")为空,表示没有进行过操作
If IsEmpty(Application("task")) Then
check = True
End If
'如果Application("task")值为假,表示没有进行过操作
If Not check And Not Application("task") Then
check = True
End If
'如果时间没到或已经操作过,则跳出判断
If Time() < CDate("16:00:00") Or Not check Then
Exit Sub
End If
'执行你期望的操作
'调用其他过程等
Application.UnLock
End Sub
%>
------解决方案--------------------
如果是自己机器就可以。schedule能帮你。