ASP通用模板类

2008-02-23 05:32:26来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

特性
可设定私有缓存或公共缓存,提高效率
可自由选择使用 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) = ""

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:关于解决商务平台ASP程序的源代码泄漏设想与思考

下一篇:Javascript利用xmlhttp获得服务器时钟的方法