特性
可设定私有缓存或公共缓存，提高效率
可自由选择使用 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
ccStrFile = ccStrFile_in
End If
End Property

Public Property Let SaveDirection(ccStrSaveDirection_in)
ccStrSaveDirection = ccStrSaveDirection_in
End Property

Public Property Let SaveFile(ccStrSaveFile_in)
If ccStrSaveFile_in <> "" Then
ccStrSaveFile = ccStrSaveFile_in
End If
End Property

Public Property Get Code
Code = ccStrCode
End Property

Public Property Get Storage
Storage = ccStrStorage
End Property

Public Sub ClearCache
Call ClearPrivateCache
Call ClearPublicCache
End Sub

Public Sub ClearPrivateCache
ccStrCacheCode = ""
End Sub

Public Sub ClearPublicCache
Application(ccStrCookieName&ccStrName) = ""
End Sub

Public Sub ClearStorage
ccStrStorage = ""
End Sub

Public Sub ClearCode
ccStrCode = ""
End Sub

Public Sub SaveFront
ccStrStorage = ccStrCode & ccStrStorage
End Sub

Public Sub SaveLast
ccStrStorage = ccStrStorage & ccStrCode
End Sub

Public Sub SaveCode
Call SaveToFile(1)
End Sub

Public Sub SaveStorage
Call SaveToFile(2)
End Sub

Public Sub SetVar(ccStrTag_in,ccStrValue_in)
ccStrCode = RePlace(ccStrCode,ccStrTag_in,ccStrValue_in)
End Sub

Private Sub SaveToFile(ccIntCode_in)
Dim ccStrSaveCode
If ccIntCode_in = 1 Then
ccStrSaveCode = ccStrCode
Else
ccStrSaveCode = ccStrStorage
End If
If ccIntObject = 1 Then
Set ccObjStream = Server.CreateObject("ADODB.Stream")
With ccObjStream
.Type = 2
.Mode = 3
.Open
.Charset = ccStrFormat
.Position = ccObjStream.Size
.WriteText ccStrSaveCode
.SaveToFile ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2
.Close
End With
Set ccObjStream = Nothing
Else
Set ccObjFSO = CreateObject("Scripting.FileSystemObject")
If ccObjFSO.FileExists(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile) = True Then
ccObjFSO.DeleteFile(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile)
End If
Set ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2,True,ccIntFormat)
ccObjText.Write ccStrSaveCode
Set ccObjText = Nothing
Set ccObjFSO = Nothing
End If
ccStrSaveCode = ""
End Sub

Public Sub Load
ccStrCode = ""
If ccBlnPrivateCache = True Then
If ccFncIsEmpty(ccStrCacheCode) = False Then
ccStrCode = ccStrCacheCode
Exit Sub
End If
End If
If ccBlnPublicCache = True Then
If ccFncIsEmpty(Application(ccStrCookieName&ccStrName)) = False Then
ccStrCode = Application(ccStrCookieName&ccStrName)
Exit Sub
End If
End If
If ccIntObject = 1 Then
Set ccObjStream = Server.CreateObject("ADODB.Stream")
With ccObjStream
.Type = 2
.Mode = 3
.Open
.Charset = ccStrFormat
.Position = ccObjStream.Size
.LoadFromFile ccStrPath & ccStrDirection & "" & ccStrFile
ccStrCode = .ReadText
.Close
End With
Set ccObjStream = Nothing
Else
Set ccObjFSO = CreateObject("Scripting.FileSystemObject")
If ccObjFSO.FileExists(ccStrPath & ccStrDirection & "" & ccStrFile) = True Then
Set ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrDirection & "" & ccStrFile,1,False,ccIntFormat)
ccStrCode = ccObjText.ReadAll
Set ccObjText = Nothing
End If
Set ccObjFSO = Nothing
End If
If ccBlnPrivateCache = True Then
ccStrCacheCode = ccStrCode
End If
If ccBlnPublicCache = True Then
Application(ccStrCookieName&ccStrName) = ccStrCode
End If
End Sub

End Class

Function ccFncIsEmpty(ByRef ccStrValue_in)
If IsNull(ccStrValue_in) Or IsEmpty(ccStrValue_in) Or ccStrValue_in = "" Then
ccFncIsEmpty = True
Else
ccFncIsEmpty = False
End If
End Function




实例


模板文件内容



<#test#>

ASP程序代码


Dim objTemplate
Set objTemplate = New ccClsTemplate
objTemplate.Name = "Test"
objTemplate.Format = "UTF-8"
\'开启缓存
objTemplate.PublicCache = True
objTemplate.PrivateCache = True
\'设置模板目录和文件名
objTemplate.Direction = "test"
objTemplate.File = "test.html"
\'设置保存文件目录和文件名
objTemplate.SaveDirection = "test"
objTemplate.SaveFile = "test3.html"
\'载入模板
Call objTemplate.Load
\'进行文本替换
Call objTemplate.SetVar("<#test#>","Hello world.")
\'将文本保存至Storage暂存
Call objTemplate.SaveLast
\'重新载入模板,此时将从私有缓存重新装载,提高效率
Call objTemplate.Load
\'替换为其他值
Call objTemplate.SetVar("<#test#>"," By Cloudream.")
\'保存至Storage结尾暂存
Call objTemplate.SaveLast
\'保存Code至文件
Call objTemplate.SaveCode
Response.Write objTemplate.Storage

Set objTemplate = Nothing


显示结果


Hello world. By Cloudream.

保存文件结果


By Cloudream.