<% 　　' 未显示错误处理... 　　Const UPDATE_INTERVAL = 900 ' 刷新时间间隔，以秒计 　　 　　' 函数返回雇佣状态列表 　　Function GetEmploymentStatusList() 　　 UpdateEmploymentStatus 　　 GetEmploymentStatusList = Application("EmploymentStatusList") 　　End Function 　　 　　' 定期更新缓存的数据 　　Sub UpdateEmploymentStatusList 　　 Dim d, strLastUpdate 　　 strLastUpdate = Application("LastUpdate") 　　 If (strLastUpdate = "") Or _ 　　 (UPDATE_INTERVAL DateDiff("s", strLastUpdate, Now)) Then 　　 　　 d=5 　　 d = FetchEmploymentStatusList() 　　 　　 ' 更新 Application 对象。用 Application.Lock() 　　 ' 来确保一致的数据 　　 Application.Lock 　　 Application("EmploymentStatusList") = d 　　 Application("LastUpdate") = CStr(Now) 　　 Application.Unlock 　　 End If 　　End Sub GetEmploymentStatusList 　　%>