ASP 高级模板引擎实现类

<div class="codetitle"><a class="copybut" data="90057" id="copybut90057">复制代码</a> 代码如下:</div><div class="codebody" id="code90057"> Class template     Private c_Char, c_Path, c_FileName, c_Content, c_PageUrl, c_CurrentPage, c_PageStr, ReplacePageStr     Private TagName     ' ***************************************     '    设置编码     ' ***************************************     Public Property Let Char(ByVal Str)         c_Char = Str     End Property     Public Property Get Char         Char = c_Char     End Property     ' ***************************************     '    设置模板文件夹路径     ' ***************************************     Public Property Let Path(ByVal Str)         c_Path = Str     End Property     Public Property Get Path         Path = c_Path     End Property     ' ***************************************     '    设置模板文件名     ' ***************************************     Public Property Let FileName(ByVal Str)         c_FileName = Str     End Property     Public Property Get FileName         FileName = c_FileName     End Property     ' ***************************************     '    获得模板文件具体路径     ' ***************************************     Public Property Get FilePath         If Len(Path) > 0 Then Path = Replace(Path, "\", "/")         If Right(Path, 1) <> "/" Then Path = Path & "/"         FilePath = Path & FileName     End Property     ' ***************************************     '    设置分页URL     ' ***************************************     Public Property Let PageUrl(ByVal Str)         c_PageUrl = Str     End Property     Public Property Get PageUrl         PageUrl = c_PageUrl     End Property     ' ***************************************     '    设置分页当前页     ' ***************************************     Public Property Let CurrentPage(ByVal Str)         c_CurrentPage = Str     End Property     Public Property Get CurrentPage         CurrentPage = c_CurrentPage     End Property     ' ***************************************     '    输出内容     ' ***************************************     Public Property Get Flush         Response.Write(c_Content)     End Property     ' ***************************************     '    类初始化     ' ***************************************     Private Sub Class_Initialize         TagName = "pjblog"         c_Char = "UTF-8"         ReplacePageStr = Array("", "")     End Sub     ' ***************************************     '    过滤冲突字符     ' ***************************************     Private Function doQuote(ByVal Str)         doQuote = Replace(Str, Chr(34), """)     End Function     ' ***************************************     '    类终结     ' ***************************************     Private Sub Class_Terminate     End Sub     ' ***************************************     '    加载文件方法 <br