微软建议的ASP性能优化28条守则_ASP技巧

<%

Function GetEmploymentStatusList

Dim d

d = Application(?EmploymentStatusList?)

If d = ?? Then

' FetchEmploymentStatusList function (not shown)

' fetches data from DB, returns an Array

d = FetchEmploymentStatusList()

Application(?EmploymentStatusList?) = d

End If

GetEmploymentStatusList = d

End Function

%>

可以为所需要的每个数据块编写类似的函数。

应以什么格式存储数据？可以存储任何变体类型，因为所有脚本变量都是变体型。例如，您可以存储字符串、整数或数组。通常，您将以这些变量类型之一存储 ADO 记录集的内容。要从 ADO 记录集获取数据，您可以手工将数据复制到 VBScript 变量，一次一个字段。使用一个 ADO 记录集持久函数 GetRows()、GetString() 或 Save()(ADO 2.5)，可加快速度且更容易一些。其详细情况已超出本文所讨论的范围，但下面给出了一个函数举例，说明使用 GetRows() 返回记录集数据的一个数组：

' Get Recordset, return as an Array

Function FetchEmploymentStatusList

Dim rs

Set rs = CreateObject(?ADODB.Recordset?)

rs.Open ?select StatusName, StatusID from EmployeeStatus?, _

?dsn=employees;uid=sa;pwd=;?

FetchEmploymentStatusList = rs.GetRows() ? Return data as an Array

rs.Close

Set rs = Nothing

End Function

对上面举例做更进一步改进，可以将 HTML 缓存为列表，而不是数组。下面是简单的示例：

' Get Recordset, return as HTML Option list

Function FetchEmploymentStatusList

Dim rs, fldName, s

Set rs = CreateObject(?ADODB.Recordset?)

rs.Open ?select StatusName, StatusID from EmployeeStatus?, _

?dsn=employees;uid=sa;pwd=;?

s = ?<select name=??EmploymentStatus??>? & vbCrLf