中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

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

更多信息請查看IT技術專欄