＜%

Function GetEmploymentStatusList

Dim d

d = Application(?EmploymentStatusList?)

If d = ?? Then

' FetchEmploymentStatusList 函数从数据库取数据,返回一个数组

d = FetchEmploymentStatusList()

Application(?EmploymentStatusList?) = d

End If

GetEmploymentStatusList = d

End Function

%＞