<%
'========================================
' 常用方式一：单文件单点更新
'========================================
'定义变量
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()
'完成
%>