che
s = s & ? <option>? & fldName & ?</option>? & vbCrLf
rs.MoveNext
Loop
s = s & ?</select>? & vbCrLf
rs.Close
Set rs = Nothing ' See Release Early
FetchEmploymentStatusList = s ' Return data as a String
End Function


在适当的条件下，可以将 ADO 记录集本身缓存在 Application 或 Session 作用域中。有两个警告：

必须将 ADO 标记为自由线程
必须使用断开连接的记录集。
如果不能保证满足这两个要求，则不要缓存 ADO 记录集。在下面的“非敏捷组件”和“不要缓存连接”技巧中，我们将讨论将 COM 对象存储在 Application 或 Session 作用域中的危险性。

当您将数据存储在 Application 或 Session 作用域时，数据将保留在那里，直到您以编程方式改变它、Session 过期或 Web 应用程序重新启动为止。如果数据需要更新怎么办？要手工强制对 Application 数据进行更新，您可以访问只有管理员才可访问的 ASP 页来更新数据。或者，您可以通过函数定期自动刷新数据。下面例子存储带有缓存数据的时间戳，并隔一段时间后刷新数据。

<%
' error handing not shown...
Const UPDATE_INTERVAL = 300 ' Refresh interval, in seconds

' Function to return the employment status list
Function GetEmploymentStatusList
UpdateEmploymentStatus
GetEmploymentStatusList = Application(?EmploymentStatusList?)
End Function

' Periodically update the cached data
Sub UpdateEmploymentStatusList
Dim d, strLastUpdate
strLastUpdate = Application(?LastUpdate?)
If (strLastUpdate = ??) Or _
(UPDATE_INTERVAL < DateDiff(?s?, strLastUpdate, Now)) Then

' Note: two or more calls might get in here. This is okay and will simply
' result in a few unnecessary fetches (there is a workaround for this)

' FetchEmploymentStatusList function (not shown)
' fetches data from DB, returns an Array
d = FetchEmploymentStatusList()

' Update the Application object. Use Application.Lock()
' to en

上一页  [1] [2] [3] [4] 下一页

在google里搜索更多微软建议的ASP性能优化28条守则(1)

	Web www.51ec.org

上一篇信息学院： 微软建议的ASP性能优化28条守则(2)

下一篇信息学院： ASP实用大全-实战ASP(8)