Application.asp

原创于 2010-02-06 14:18:00 发布 · 369 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#application #timer #数据库

Asp 专栏收录该内容

22 篇文章

订阅专栏

本文通过一个具体的ASP示例展示了如何使用Application对象进行缓存管理，包括缓存的读取与更新过程。该示例首先检查是否存在缓存数据，若不存在则执行耗时操作并将其保存到缓存中，最后输出缓存内容。

<% Dim rveoCn, runTime, i, ii runTime = Timer() ' 读取当前时间戳 If request.QueryString("load") = "66" Then ' 清空缓存 Application.Lock Application("rveo.Com") = "" Application.UnLock response.write ("缓存已清空，本次显示是直接操作 ") Else response.write ("缓存已应用，本次显示是读取缓存 ") End If rveoCn = Application("rveo.Com") ' 把 Application 的数据放到变量里操作，减少操作内存 If rveoCn = "" Then For i = 0 To 5000 ' 费时操作，假设是从数据库里读取数据 ii = ii & request.QueryString("load") If i mod 10 = 0 Then ii = ii & " " End If Next ' 写入缓存 rveoCn = ii Application.Lock Application("rveo.Com") = ii Application.UnLock End If response.write ("程序运行费时 "& FormatNumber( Timer - runTime, 4, -1 ) &" 秒 <a href=""?load=77"">点此刷新</a> | <a href=""?load=66"">清空缓存</a> ") response.write ( rveoCn ) %>