两个很有用的ASP的类文件，模版处理类和缓存处理类
点击次数：24 次 发布日期：2008-12-01 16:58:26 作者：源代码网
|
模版读取是用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 "*/ 以上两个类可以拆开独立使用。模版类的缓存部分就是调用下边的缓存类处理的。 缓存类是可以单独拿出来独立使用的。 以下是代码下载连接。 源代码网供稿. |
