ASP 通用模板類。
適合存在較少循環的模板。未實現內部循環,需要使用正則表達式,較浪費資源和時間,如需使用可參考這篇文章.
特性
可設定私有緩存或公共緩存，提高效率
可自由選擇使用 Stream 組件或 FSO 組件
支持自定義文件編碼
可保存文件
屬性
Name
文本，該模板名稱，主要用於使用公共緩存時區分不同模板。
Format
文本，文件編碼類型，可設置值。
Object
文本，使用組件，可設置值：
Stream
FSO
PublicCache
布爾值，使用公共緩存，開啟時模板文件將保存到Application對象，其他引用此模板類的對象設置相同Name值並同樣打開公共緩存即可從緩存讀取。(Load方法)
PrivateCache
布爾值，使用私有緩存，開啟時模板文件將保存到對象內部變量，同一引用此模板類的對象可讀取。(Load方法)
Direction
文本，模板文件所在目錄，前後無需斜槓或反斜槓，如：template/default
File
文本，模板文件名，前邊無需斜槓或反斜槓，如：default.html
SaveDirection
文本，保存文件所在目錄，前後無需斜槓或反斜槓，如：html/default
SaveFile
文本，保存文件名，前邊無需斜槓或反斜槓，如：default.html
對象
Code
文本，當前文本，使用SetVar方法時對此對象進行替換，使用Load方法時將模板重載到此對象
Storage
文本，已保存文本，使用SaveFront或SaveLast方法時將Code對象中文本保存到此對象的開頭或結尾，可用於循環後得到所有代碼
方法
ClearCache
清除公共緩存和私有緩存(強制從文件重載模板)
ClearPublicCache
清除公共緩存
ClearPrivateCache
清除私有緩存
ClearCode
清除Code對象
ClearStorage
清除Storage對象
SaveFront
將當前Code對象中文本保存到Storage對象開頭
SaveLast
將當前Code對象中文本保存到Storage對象結尾
SaveCode
將當前Code對象中文本保存到文件
SaveStorage
將當前Storage對象中文本保存到文件
SetVar
對當前Code對象中文本進行替換
參數：需要被替換的文本，欲替換後的文本
Load
將模板文件載入Code對象，當開啟並存在私有緩存時，從私有緩存載入，當開啟並存在公共緩存時，從公共緩存載入，若無緩存則從文件載入
內部變量
ccStrPath
默認根目錄
ccStrCookieName
默認Application對象名前綴
代碼
Class ccClsTemplate
Private ccStrCode,ccStrStorage
Private ccStrCacheCode
Private ccBlnPublicCache,ccBlnPrivateCache
Private ccStrName,ccStrCookieName
Private ccStrDirection,ccStrSaveDirection,ccStrFile,ccStrSaveFile,ccStrPath
Private ccObjStream,ccObjFSO,ccStrFormat,ccIntObject,ccObjText,ccIntFormat
Private Sub Class_Initialize
ccStrName = "default" '默認名稱
ccBlnPublicCache = False
ccBlnPrivateCache = False
ccStrFile = "cache.html"
ccStrSaveFile = "save_cache.html"
ccStrCookieName = "ccClass_Template" 'Application對象名前綴
ccStrFormat = "UTF-8" 'UTF-8|ASCII|GB2312|BIG5
ccIntFormat = -1
ccIntObject = 1 '默認讀取/保存模板組件 1:ADODB.Stream 2:FSO
ccStrPath = Server.MapPath("./")&"" '默認根路徑
End Sub
Public Property Let Name(ccStrName_in)
ccStrName = LCase(Trim(ccStrName_in))
End Property
Public Property Let Format(ccStrFormat_in)
ccStrFormat = ccStrFormat_in
If InStr(LCase(Trim(ccStrFormat_in)),"utf") > 0 Then
ccIntFormat = -1
Else
ccIntFormat = 0
End If
End Property
Public Property Let Object(ccStrObject_in)
ccStrObject_in = LCase(Trim(ccStrObject_in))
If InStr(ccStrObject_in,"fso") > 0 Then
ccIntObject = 2
Else
ccIntObject = 1
End If
End Property
Public Property Let PublicCache(ccBlnPublicCache_in)
If ccBlnPublicCache_in = True Then
ccBlnPublicCache = True
Else
ccBlnPublicCache = False
End If
End Property
Public Property Let PrivateCache(ccBlnPrivateCache_in)
If ccBlnPrivateCache_in = True Then
ccBlnPrivateCache = True
Else
ccBlnPrivateCache = False
End If
End Property
Public Property Let Direction(ccStrDirection_in)
ccStrDirection = ccStrDirection_in
End Property
Public Property Let File(ccStrFile_in)
If ccStrFile_in <> "" Then
