开发学院WEB开发ASP ASP通用模板类 阅读

ASP通用模板类

 2005-11-18 10:32:39 来源:WEB开发网   
核心提示:特性可设定私有缓存或公共缓存,提高效率可自由选择使用 Stream 组件或 fso 组件支持自定义文件编码可保存文件属性Name文本,ASP通用模板类,该模板名称,主要用于使用公共缓存时区分不同模板,从私有缓存载入,当开启并存在公共缓存时,Format文本,文件编码类型

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

Tags:ASP 通用 模板

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接