ASP提高数据显示效率-缓存探幽

0
　　If temp1 > 0 And retVal <> "" Then
　　''本函数返回记录数
　　DisplayCachedRecords = retVal
　　Response.Write "<b><font color=""green"">利用缓存读取数据"
　　Response.Write " ... (" & temp1 & " 秒剩余)</font></b>"
　　Response.Write "<br><br>"
　　Else
　　''retVal 是空的话,就赋予DisplayRecords的值给变量temp2
　　Dim temp2
　　temp2 = DisplayRecords()
　　''保存到Application.------------------>重点
　　Application.Lock
　　Application("cache_demo") = temp2
　　Application("cache_demo_date") = DateAdd("s",Secs,Now)
　　Application.UnLock
　　DisplayCachedRecords = temp2
　　'' 这里随便写上了记录的缓存的过去时间,相对总秒数倒差 :
　　Response.Write "<b><font color=""red"">刷新缓存显示 ..."
　　Response.Write "</font></b><br><br>"
　　End If
　　End Function
　　%>

　　说明完毕.

　　以下为完整无注释代码

　　调用方法:<%=DisplayCachedRecords(20)%>

　　写在后面的话:如果你感觉你的服务器内存不够大的话,不要大量使用缓存.