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()
'完成
%>