＜%
Function GetEmploymentStatusList
Dim d
d = Application(?EmploymentStatusList?)
If d = ?? Then
' FetchEmploymentStatusList 函数从数据库取数据,返回一个数组
d = FetchEmploymentStatusList()
Application(?EmploymentStatusList?) = d
End If
GetEmploymentStatusList = d
End Function
%＞<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
