ASP中CACHE技术

发表日期：2016/7/19 16:37:50　浏览次数:

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

Code

ASP：default.asp

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


        </SPAN>ASP Cache演示<SPAN class=blue>
        HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">

每隔10秒刷新Cache：

    <%
    response.Flush
    GetHTMLStream
    response.Write
    HTMLStream
    %>

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 & ""
    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"
%>

服务内容

客户案例

推荐文章

热门内容

最新案例

ASP中CACHE技术

Code

每隔10秒刷新Cache：