---

说明下。默认是操作UTF-8格式的模版的，编码也是UTF-8的。如果你要操作ANSI和GB2312编码文件。注意设置好编码设置。
模版读取是用ADODB.STREAM读的。自动判断是否缓存，如果没有缓存就读取文件内容并缓存到Application




以下是模版类部分注释。因没有包含生成类文件SetCreate 方法请设为OFF就不会操作生成步骤。
'/**
' * 公用函数操作类
' * 文件名：cls_Template.asp
' * @copyright CopyRight (c) 2006-12-15 BlueChen
' * @author BlueChen (chen-star@sohu.com)
' * @version
' * @
' * 最后修改时间 2006-12-23 18:52:26
' */

'*******************************************************************************************************
' 模版操作类说明
'*******************************************************************************************************

'/**
' * 公用函数类函数列表及功能说明
' *
' * 调用示例：
' * Dim TClass
' * Set TClass = New TemplateEngine
' * TClass.CharSet = "UTF-8"
' *
' * TClass.SetCache "ON"
' * TClass.SetCreate "OFF"
' *
' * TClass.SetTemplateDir "Template/"
' * TClass.SetTemplate "ListInfo.html"
' * TClass.TagO = "<!--资源标题标识-开始-->"
' * TClass.TagC = "<!--资源标题标识-结束-->"
' * TClass.ReplaceBlock "要更新替换成的内容"
' *
' * TClass.ReplaceBlockFile "替换文件内容的文件路径，如:/Common/Foot.html"
' *
' * TClass.ReplaceVar "{$PageTitle}","要替换成的标题内容" '说明：此方法不依赖于开始标记和结束标记，完全独立的内容变量替换，但依赖于首先设置的模版方法。
' *
' * TClass.SetSavePath "/2006/12/19/65001.html"
' * TClass.Save
' *
' * TClass.SaveAs "/backup/2006/12/19/65001.html"
' *
' * Set TClass = Nothing
' *
' *
' *
' *
' *
' *
' * code by BlueChen 2006-12-16 19:16:06
'*/



以下是缓存类部分注释。
<%
'// +---------------------------------------------------------------+
'// │ 这个文件是缓存操作类，参考部分网上代码修改而成 │
'// │ CopyRight (c) 2006-12-15 BlueChen (QQ：2880127) │
'// │ Http://www.zfhu.com │
'// +---------------------------------------------------------------+

'/**
' * 公用函数操作类
' * 文件名：cls_CacheLib.asp
' * @copyright CopyRight (c) 2006-12-15 BlueChen
' * @author BlueChen (chen-star@sohu.com)
' * @version
' * @
' * 最后修改时间 2006-12-21 12:14:48
' */

'*******************************************************************************************************
' 缓存操作类说明
'*******************************************************************************************************

'/**
' * 公用函数类函数列表及功能说明
' * doCache(strName,strC,ExpireTime,ReloadFlag)
' * GetCacheData(strName)
' * DelCache(strName)
' * DelAllCache() SUB
' * ChkCache(strName)
' * ChangeReloadFlag(strName,intReloadFlag) SUB
' * CacheNum()
' *
' *
' *
' * code by BlueChen 2006-12-17
'*/



以上两个类可以拆开独立使用。模版类的缓存部分就是调用下边的缓存类处理的。
缓存类是可以单独拿出来独立使用的。
以下是代码下载连接。