<% Dim rveoCn, runTime, i, ii runTime = Timer() ' 读取当前时间戳 If request.QueryString("load") = "66" Then ' 清空缓存 Application.Lock Application("rveo.Com") = "" Application.UnLock response.write ("缓存已清空,本次显示是直接操作<br/>") Else response.write ("缓存已应用,本次显示是读取缓存<br/>") 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 & "<br/>" End If Next ' 写入缓存 rveoCn = ii Application.Lock Application("rveo.Com") = ii Application.UnLock End If response.write ("程序运行费时 "& FormatNumber( Timer - runTime, 4, -1 ) &" 秒<br/><a href=""?load=77"">点此刷新</a> | <a href=""?load=66"">清空缓存</a><br/>") response.write ( rveoCn ) %>