何时将数据装载到Application 或 Session 对象中去？

程序如下：

＜％
Function GetEmploymentStatusList
Dim d
d = Application(?EmploymentStatusList?)
If d = ?? Then
' FetchEmploymentStatusList 函数从数据库取数据,返回一个数组
d = FetchEmploymentStatusList()
Application(?EmploymentStatusList?) = d
End If
GetEmploymentStatusList = d
End Function
％＞

当然，我们还可以为所需要的每个数据块编写类似的函数。