六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

ASP中Cache技術(shù)的應用

發(fā)表時間：2024-06-09 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]ASP從發(fā)布至今已經(jīng)7年了，使用ASP技術(shù)已經(jīng)相當成熟，自從微軟推出了ASP.NET之后就逐漸停止了對ASP版本的更新。但是由于有很多人仍然習慣使用ASP來開發(fā)網(wǎng)站，所以，再次我將以一個簡單的例子來說明在ASP中如何使用Cache。 　　簡單的說使用Cache基本原理是，把經(jīng)常需要且獲得代價昂貴的...
ASP從發(fā)布至今已經(jīng)7年了，使用ASP技術(shù)已經(jīng)相當成熟，自從微軟推出了ASP.NET之后就逐漸停止了對ASP版本的更新。但是由于有很多人仍然習慣使用ASP來開發(fā)網(wǎng)站，所以，再次我將以一個簡單的例子來說明在ASP中如何使用Cache。

　　簡單的說使用Cache基本原理是，把經(jīng)常需要且獲得代價昂貴的數(shù)據(jù)在內(nèi)存中持續(xù)保存一定時間，以供這些數(shù)據(jù)可以被直接地全局地訪問。例如，有一些數(shù)據(jù)需要從數(shù)據(jù)庫多個表中查詢獲得，且?guī)缀趺總�頁面都要調(diào)用這些數(shù)據(jù)。

　　這種情況下的最佳實現(xiàn)就是將這部分數(shù)據(jù)Cache起來，在ASP中的簡單實現(xiàn)就是將這些數(shù)據(jù)的最終表達形式（例如HTML流）封裝在string中然后存入ASP內(nèi)置對象Application中（本文主要討論的是動態(tài)Cache，簡單的ASP 應用就省略）。這樣做的好處是，在整個網(wǎng)站中可以全局調(diào)用這段HTML，而且Application是存在內(nèi)存中，所以不用再去查詢數(shù)據(jù)庫，從而加快了響應時間并節(jié)省了服務器負荷。當然這是以消耗內(nèi)存為代價的，是一個典型的以空間換時間的實例。

　　使用這種方法雖然有很多好處，但是再遇到頻繁變化的數(shù)據(jù)源（數(shù)據(jù)庫）的時候，這種方法就可能不再適用，因為ASP Application對象有一個缺點，就是不能自動隨數(shù)據(jù)源的變化而變化，或者控制刷新間隔。所以就需要開發(fā)人員編程來實現(xiàn)動態(tài)Cache。當然在程序設計的時候可以在所有進行改變數(shù)據(jù)源（數(shù)據(jù)庫）操作時，就更新一次Appliction。從而使數(shù)據(jù)源（數(shù)據(jù)庫）始終保持一致。這樣做在編程上要考慮的問題會比較多，容易遺漏細節(jié)。所以除了特定情況我不推薦使用這種方法。

　　我認為在ASP中最好的辦法是用編程實現(xiàn)定時刷新Cache，也就是說給Application中儲存的設一個過期時間。當然，在ASP中Application對象沒有這樣一個ExpireTime屬性。這需要用程序?qū)崿F(xiàn)。

　　Code
　　ASP：default.asp

<%@Language=VBScript%>
　　<%Option  Explicit%>
　　<%Response.Buffer=True%>
　　<!--#include file = "conn.asp"-->
　　<!--#include file = "GetCache.asp"-->
　　<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


[page_break]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

<!--METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"-->
　　<%
　　dim strConn
　　strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind"
　　%> 





相關(guān)文章
主站蜘蛛池模板： 四虎影视在线影院在线观看 | 欧美性理论片在线观看片免费 | 日本天天射 | 青娱乐激情 | 亚州视频在线 | 最近更新免费韩国视频 | 五月天丁香婷婷综合久久 | 日韩美一区二区三区 | 日本日本在线观看视频 | 亚洲男人在线 | 午夜影院视频 | 天堂影视网 | 午夜视频免费在线观看 | 欧美亚洲人成网站在线观看刚交 | 日韩中文字幕免费观看 | 性荡视频在线播放视频 | 色噜噜在线 | 一区精品麻豆入口 | 欧美亚洲专区 | 最近新韩国日本免费看 | 天堂网www在线资源链接 | 偷拍第1页 | 在线久草视频 | 日韩手机看片福利精品 | 亚洲欧美综合另类 | 人人婷婷色综合五月第四人色阁 | 午夜免费看 | 天堂资源中文在线 | 亚洲男人的天堂在线播放 | 欧美综合专区 | 天天干天天拍天天操 | 日日天天夜夜 | 日韩欧美伊人久久大香线蕉 | 天天澡天天碰天天狠伊人五月 | 日本欧美中文字幕 | 色聚网久久综合 | 青娱乐精品视频在线观看 | 天干天夜啪天天碰 | 日本一二三区在线视频 | 日韩视频久久 | 亚洲国产天堂久久综合 |