使用模板实现ASP代码与页面分离

每个进行过较大型的ASP-Web应用程序设计的开发人员大概都有如下的经历：ASP代码与页面HTML混淆难分，业务逻辑与显示方式绞合，使得代码难以理解、难以修改；程序编写必须在美工之后，成为项目瓶颈；整合的程序代码和HTML静态页面时，花费大量的时间才能得到理想的效果，兼作了美工。的确，用脚本语言开发Web应用不容易将数据的处理和数据的显示分开，但在多人合作的情况下，如果无法将数据和显示分开，将大大影响开发的效率，专业分工的发挥。

　　其它的脚本语言，如JSP、PHP都有自己的解决方案，ASP的后一代产品ASP.NET也实现了代码与页面，似乎直接过渡到ASP是不错的选择。但是总有这样或那样的原因让我们不能或暂时不能放弃ASP直奔.NET大营。从公司角度来看，转换语言是一笔不少的投资，包括雇佣熟手.NET程序员、培训原有程序员、开发工具的转型、开发风格的转型、界面风格转变、接口风格、软件架构、文档、开发流程等等；这还意味着原有的代码必须在新语言环境里重写以实现最佳的效果和稳定性；同时将直接影响这段时间内项目的进度，更有可能导致个别程序员出走。由此看来在您决定转换语言之前，在原基础上寻求一种解决方案，才是最好的选择。

　　PHP通过模板实现代码与页面，可供选择的有FastTemplate、PHPLIB、Smarty等多种，其中PHPLIB的影响最大、使用最多。既然如此，我们直接把它搬到ASP来，对于同时使用PHP和ASP的公司还有很有好处：一、美工处理页面时，不管将要套用PHP还是ASP，处理方式是一样，无须经过培训；二、程序员编写代码时，两种语言间的思路接近或一致，相同功能在两种语言实现时，只需拷贝过来略作修改即可，保证了工作效率和项目进度。

　　1、模板类的设计

　　实现代码封装成为模板类，即是为了与PHPLIB兼容，也使得代码方便管理与扩展。
　　模板类要实现的目标为：从模板文件中读入显示的HTML代码，将这些显示代码中需要动态数据的地方替换为ASP程序运算所得出的数据，然后按照一定的顺序输出。其中，替换的部分可以自由的设定。因此它必须完成如下任务：
 
 
 
 
·从模板文件中读取显示用的HTML代码。
 
 
 
 
·将模板文件和实际生成的数据结合，生成输出的结果。
 
 
 
 
·允许同时处理多个模板。
 
 
 
 
·允许模板的嵌套。
 
 
 
 
·允许对模板中的某个单独的部分进行处理。

　　实现方法：

 
 
 
 
采用FSO读取模板文件
 
 
 
 
采用正则替换实现模板文件和数据的结合
 
 
 
 
处理多个模板用数组存储来实现。

 
 
 
 
模板的嵌套的实现主要的想法是：将模板和输出（任何中间的分析结果）一视同仁，都可拿来做替换，即可实现。

 
 
 
 
单独部分的处理的通过在模板文件中设定标注，然后在正则替换中结合标注来控制，实现部分替换。

　　2、模板类的实现

　　给出具体代码之前，先把主要函数列出，用过PHPLIB的朋友应该对此很熟悉了：
　　1）Public 
Sub 
set_root(ByVal 
Value)　设定模板默认目录
　　2）Public 
Sub 
set_file(ByVal 
handle,ByVal 
 
filename)　读取文件
　　3）Public 
Sub 
set_var(ByVal 
Name, 
ByVal 
Value, 
ByVal 
Append)　设置映射数据-替换变量
　　4）Public 
Sub 
unset_var(ByVal 
Name)　取消数据映射
　　5）Public 
Sub 
set_block(ByVal 
Parent, 
ByVal 
BlockTag, 
ByVal 
Name)　设置数据块
　　6）Public 
Sub 
set_unknowns(ByVal 
unknowns)　设定未指定映射的标记处理方式
　　7）Public 
Sub 
parse(ByVal 
Name, 
ByVal 
BlockTag, 
ByVal 
Append)　执行模板文件与数据的结合
　　8）Public 
Sub 
p(ByVal 
Name)　输出处理结果

实现代码：
<
%
&
#39
================================================================
&
#39
 
CLASS 
NAME: 
 
kktTemplate 
ASP页面模板对象
&
#39
 
DESIGN 
BY 
: 
 
 
 
 
彭国辉
&
#39
 
DATE: 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
2004-07-05
&
#39
 
WEBSITE: 
 
 
 
 
 
 
 
 
 
http://kacarton.yeah.net/
&
#39
 
BLOG: 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
http://blog.csdn.net/nhconch
&
#39
 
EMAIL: 
 
 
 
 
 
 
 
 
 
 
 
 
 
kacarton@sohu.com
&
#39

&
#39
 
本对象中使用了set_var、set_block等命名方法是为了兼容phplib
&
#39
文章为作者支持！
&
#39
================================================================

Class 
kktTemplate
 
 
 

 
 
 
 
Private 
m_FileName, 
m_Root, 
m_Unknowns, 
m_LastError, 
m_HaltOnErr
 
 
 
 
Private 
m_ValueList, 
m_BlockList
 
 
 
 
Private 
m_RegExp 
 
 

 
 
 
 
&
#39
 
构造函数
 
 
 
 
Private 
Sub 
Class_Initialize
 
 
 
 
 
 
 
 
Set 
m_ValueList 
 
 
 
 
= 
CreateObject("
Scripting.Dictionary"
)
 
 
 
 
 
 
 
 
Set 
m_BlockList 
 
 
 
 
= 
CreateObject("
Scripting.Dictionary"
)
 
 
 
 
 
 
 
 
set 
m_RegExp 
 
 
 
 
 
 
 
= 
New 
RegExp
 
 
 
 
 
 
 
 
m_RegExp.IgnoreCase 
= 
True
 
 
 
 
 
 
 
 
m_RegExp.Global 
 
 
 
 
= 
True
 
 
 
 
 
 
 
 
m_FileName 
 
 
 
 
 
 
 
 
 
= 
"
"

 
 
 
 
 
 
 
 
m_Root 
 
 
 
 
 
 
&nb