在使用VBScript時(shí)，我們可以用Application緩存數(shù)組來(lái)實(shí)現(xiàn)緩存，例：
程序代碼：
復(fù)制代碼 代碼如下:
Dim rs,arr
rs.Open conn,sql,1,1
arr=rs.GetRows()
Application.Lock()
Application("cache")=arr
Applicatoin.UnLock()
在VBScript里，數(shù)組是可以存到Application對(duì)象里的，但是如果ASP的語(yǔ)言選擇為JScript的話，那么就有些不妙了，我們?cè)谑褂肁pplication儲(chǔ)存一個(gè)數(shù)組時(shí)，會(huì)出現(xiàn)以下錯(cuò)誤：
引用內(nèi)容：
Application object, ASP 0197 (0x80004005)
Disallowed object use
Cannot add object with apartment model behavior to the application intrinsic object.
在微軟的知識(shí)庫(kù)可以找到具體原因如下：
引用內(nèi)容：
JScript arrays are considered to be "Apartment" COM components. Only Component Object Model (COM) components that aggregate the Free Threaded Marshaler (FTM) can be assigned to Application scope within an Internet Information Server (IIS) 5.0 ASP page. Because an "Apartment" component cannot aggregate the FTM (it cannot allow a direct pointer to be passed to its clients, unlike a "Both with FTM" object), JScript arrays do not aggregate the FTM. Therefore, JScript arrays cannot be assigned to Application scope from an ASP page.
以上描述引用自：PRB: Error When You Store a JScript Array in Application Scope in IIS 5.0
因此，為了解決這個(gè)問(wèn)題，在Google里找了一大會(huì)，終于找到了一篇文章《Application對(duì)象的Contents和StaticObjects做Cache的一些結(jié)論》，解決了這個(gè)問(wèn)題，方法就是使用Application.StaticObject存放一個(gè)Scripting.Dictionary對(duì)象，然后再使用Scripting.Dictionary對(duì)象來(lái)存放需要緩存的數(shù)據(jù)。
據(jù)此，寫了一個(gè)操作緩存的類，實(shí)現(xiàn)put、get、remove和clear方法，使用之前，需要在global.asa中添加一個(gè)object：
程序代碼：
object id="xbsCache" runat="server" scope="Application" progid="Scripting.Dictionary">/object>
類的實(shí)現(xiàn)如下：
復(fù)制代碼 代碼如下:
script language="JScript" runat="server">
/**
Title: cache operate class
Description: operate system cache
@Copyright: Copyright (c) 2007
@Author: xujiwei
@Website: http://www.xujiwei.cn/
@Version: 1.0
@Time: 2007-06-29 12:03:45
**/
var xbsCache = {
get: function(key) {
return Application.StaticObjects("xbsCache").Item("Cache."+key);
},
put: function(key, data) {
Application.Lock();
Application.StaticObjects("xbsCache").Item("Cache."+key)=data;
Application.UnLock();
},
remove: function(key) {
Application.Lock();
Application.StaticObjects("xbsCache").Remove("Cache."+key);
Application.UnLock();
},
clear: function() {
Application.Lock();
Application.StaticObjects("xbsCache").RemoveAll();
Application.UnLock();
}
}
/script>
如此，就完成了ASP中使用JScript時(shí)的緩存實(shí)現(xiàn)。
您可能感興趣的文章:- 使用jscript實(shí)現(xiàn)二進(jìn)制讀寫腳本代碼
- JScript中調(diào)用ActiveX獲取訪客網(wǎng)卡MAC地址實(shí)現(xiàn)代碼
- 使用 JScript 創(chuàng)建 .exe 或 .dll 文件的方法
- JScript 腳本實(shí)現(xiàn)文件下載 一般用于下載木馬
- JScript中使用ADODB.Stream判斷文件編碼的代碼
- 解決 JScript 中使用日期類型數(shù)據(jù)時(shí)出現(xiàn)類型錯(cuò)誤的問(wèn)題
- 解讀IE和firefox下JScript和HREF的執(zhí)行順序
- jscript讀寫二進(jìn)制文件的方法
