• 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
  • 当前位置: 山茶花美文网 > 友情文章 > 正文

    英语作文通用模板【ASP通用模板类】

    时间:2020-05-27来源:山茶花美文网 本文已影响 山茶花美文网手机站

    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

    • 英语作文通用模板【ASP通用模板类】 相关文章:
    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全