asp 每天执行一次

<%
'   执行每天只需处理一次的事件
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

%>