ASP中CACHE缓存技术

时间：2010-05-03 10:58:00　

我认为在ASP中最好的办法是用编程实现定时刷新Cache，也就是说给Application中储存的设一个过期时间。当然，在ASP中Application对象没有这样一个ExpireTime属性。这需要用程序实现。

Code

ASP：default.asp

<％@Language=VBScript％>
<％Option Explicit％>
<％Response.Buffer=True％>


<HTML>
    <HEAD>
        <TITLE>ASP Cache演示</TITLE>
        <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
    </HEAD>
    <BODY>
    <h4>每隔10秒刷新Cache：</h4>
    <％
    response.Flush
    GetHTMLStream
    response.Write
    HTMLStream
    ％>
    </body>
</html>

ASP：getcache.asp

<％
Const CACHE_DEFAULT_INTERVAL = 30 '每隔30秒刷新一次cache
Dim HTMLStream
Dim IsExpires
IsExpires = CacheExpires
Function CacheExpires
    Dim strLastUpdate
    Dim result strLastUpdate = Application("LastUpdate")
    If (strLastUpdate = "") Or (CACHE_DEFAULT_INTERVAL < DateDiff("s", strLastUpdate, Now)) Then
        result = true
        SetLastUpdateTime
    Else
        result = false
    End If
    CacheExpires = result
End Function
Sub SetLastUpdateTime
    Application.Lock
    Application("LastUpdate") = CStr(now())
    Application.UnLock
End Sub
Sub GetHTMLStream
    If IsExpires Then
        UpdateHTMLStream
    End If
    HTMLStream=Application("CACHE_HTMLStream")
End Sub
Sub UpdateHTMLStream
    dim d
    d = FetchHTMLStream
    Application.Lock
    Application("CACHE_HTMLStream") = d
    Application.UnLock
End Sub
Function FetchHTMLStream
    Dim rs ,strSQL, strHTML
    Set rs = CreateObject("ADODB.Recordset")
    strSQL = "select categoryID , categoryname from categories"
    rs.Open strSQL, strConn,adOpenForwardOnly,adLockReadOnly
    strHTML = strHTML & "<select name=""slt_search"">"
    while (not rs.EOF)
        strHTML = strHTML & "<option>"
        strHTML = strHTML & rs.Fields("categoryname")
        strHTML = strHTML & "</option>" rs.MoveNext
    wend
    strHTML = strHTML & "</select>"
    rs.Close
    Set rs = Nothing
    FetchHTMLStream = strHTML
End Function
％>

ASP：conn.asp

<％
dim strConn
strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind"
％>

标签：cache,缓存,asp

投稿

ASP中CACHE缓存技术

猜你喜欢

Python3 利用face_recognition实现人脸识别的方法

SQL Server小知识：Processor Affinity

TypeScript中泛型的使用详细讲解

浅谈Python之Django

Mysql数据库性能优化三（分表、增量备份、还原）

Asp函数介紹(37个常用函数)

在Vue项目中使用Typescript的实现

Python实现判断一个字符串是否包含子串的方法总结

使用Python来编写HTTP服务器的超级指南

Python全景系列之模块与包全面解读

Mysql误删除DELETE数据找回操作指南

PHP基于phpqrcode生成带LOGO图像的二维码实例

CSS 几条经典的 CSS Tips

JavaScript ES6 Class类实现原理详解

python 多线程实现检测服务器在线情况

解决给dom元素绑定click等事件无效问题的方法

纯numpy卷积神经网络实现手写数字识别的实践

mysql中json的使用方式详解

mysql主从服务器同步心得体会第1/2页

浅析C# web访问mysql数据库-整理归纳总结