zoukankan      html  css  js  c++  java
  • TSYS:Tkl_TemplateClass 类调用详解

          最近好多人对tsys很感兴趣,其实大家不知道的是tsys的asp版本早就已经停止开发了,为了不想让如此优秀的东西被埋没所以我在tsys的asp版 本的基础上使用PHP重新开发了一个功能更强的cms,名字是blackhand,这个版本保留了tsys所有的优点,另外屏蔽了tsys的缺点,还增加 了诸多很棒的功能,大家如果感兴趣可以看一下.
         另外,因为tsys的asp版本就要求站长会编写asp脚本,同样的,为了灵活性所以呢这个PHP版本就要求站长会写PHP脚本,只有如此才能更灵活,才能用它去做别的cms不敢涉及或永远做不到的功能.这才是tsys的真谛!
    PHP版本的tsys浏览页面:http://hi.baidu.com/see7di/blog/item/4daf1955bd555bc8b745ae93.html
    PHP版本的tsys下载地址:http://download.csdn.net/source/3248406
    <%

    '========================================
    ' 常用方式一:单文件单点更新
    '========================================
    '定义变量
    Dim TemplateFilePath , TClass , strHtml
    '创建Tkl_TemplateClass实例
    Set TClass=New Tkl_TemplateClass
    strHtml = ""
    '指定文件物理地址
    TemplateFilePath = Server.MapPath("/folder/file_01.htm")
    '打开文件
    TClass.OpenTemplate(TemplateFilePath)

    '设定生成点block(01)
    TClass.StartElement = "<!-- block(01):start -->"
    TClass.EndElement = "<!-- block(01):end -->"
    '设置在该点的生成内容
    TClass.Value = strHtml

    '开始替换
    TClass.ReplaceTemplate()
    '保存文件
    TClass.Save()
    '完成
    %>

    <%
    '========================================
    ' 常用方式二:单文件多点更新
    '========================================
    '定义变量
    Dim TemplateFilePath , TClass , strHtml , strHtml2 , strHtml3
    '创建Tkl_TemplateClass实例
    Set TClass=New Tkl_TemplateClass
    strHtml = ""
    '指定文件物理地址
    TemplateFilePath = Server.MapPath("/folder/file_01.htm")
    '打开文件
    TClass.OpenTemplate(TemplateFilePath)

    '设定生成点block(01)
    TClass.StartElement = "<!-- block(01):start -->"
    TClass.EndElement = "<!-- block(01):end -->"
    '设置在该点的生成内容
    TClass.Value = strHtml

    '设定生成点block(02)
    TClass.StartElement = "<!-- block(02):start -->"
    TClass.EndElement = "<!-- block(02):end -->"
    '设置在该点的生成内容
    TClass.Value = strHtml2

    '设定生成点block(03)
    TClass.StartElement = "<!-- block(03):start -->"
    TClass.EndElement = "<!-- block(03):end -->"
    '设置在该点的生成内容
    TClass.Value = strHtml3

    '开始替换
    TClass.ReplaceTemplate()
    '保存文件
    TClass.Save()
    '完成
    %>

    <%
    '========================================
    ' 常用方式三:多文件更新
    '========================================
    '定义变量
    Dim TemplateFilePath , TemplateFilePath2 , TClass , strHtml , strHtml2
    '创建Tkl_TemplateClass实例
    Set TClass=New Tkl_TemplateClass
    strHtml = ""
    '指定文件物理地址
    TemplateFilePath = Server.MapPath("/folder/file_01.htm")
    TemplateFilePath2 = Server.MapPath("/folder/file_02.htm")

    '打开文件file_01.htm
    TClass.OpenTemplate(TemplateFilePath)
    '设定生成点block(01)
    TClass.StartElement = "<!-- block(01):start -->"
    TClass.EndElement = "<!-- block(01):end -->"
    '设置在该点的生成内容
    TClass.Value = strHtml
    '开始替换
    TClass.ReplaceTemplate()
    '保存文件
    TClass.Save()
    '完成

    '打开文件file_02.htm
    TClass.OpenTemplate(TemplateFilePath2)
    '设定生成点block(02)
    TClass.StartElement = "<!-- block(01):start -->"
    TClass.EndElement = "<!-- block(01):end -->"
    '设置在该点的生成内容
    TClass.Value = strHtml2
    '开始替换
    TClass.ReplaceTemplate()
    '保存文件
    TClass.Save()
    '完成
    %>
  • 相关阅读:
    zabbix通过简单shell命令监控elasticsearch集群状态
    zabbix通过简单命令监控elasticsearch集群状态
    生产环境elasticsearch5.0.1和6.3.2集群的部署配置详解
    执行update语句mysql5.6报错ERROR 1292 (22007): Truncated incorrect DOUBLE value: '糖糖的坤大叔'
    aliyun添加数据盘后的物理分区和lvm逻辑卷两种挂载方式
    aliyun添加数据盘parted方式分区格式化和lvm挂载及数据盘的扩容
    Zabbix Agent active批量调整客户端为主动模式监控
    aliyun服务器ecs被ddos后无法被zabbix-server监控的处理
    centos环境自动化批量安装jdk软件脚本
    centos环境自动化批量安装软件脚本
  • 原文地址:https://www.cnblogs.com/see7di/p/2239997.html
Copyright © 2011-2022 走看看