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

%>