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