<%

'   执行每天只需处理一次的事件

Call   BrandNewDay()

'   ============================================

'   执行每天只需处理一次的事件

'   ============================================

Sub   BrandNewDay()

  Dim   sDate

  sDate   =   Date()

  If   Application( "date_today ")   =   sDate   Then   Exit   Sub

  '   具体操作

  Application.Lock

  Application( "date_today ")   =   sDate

  Application.Unlock

End   Sub

%>