每个进行过较大型的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）PublicSubset_root(ByValValue)　设定模板默认目录
　　2）PublicSubset_file(ByValhandle,ByValfilename)　读取文件
　　3）PublicSubset_var(ByValName,ByValValue,ByValAppend)　设置映射数据-替换变量
　　4）PublicSubunset_var(ByValName)　取消数据映射
　　5）PublicSubset_block(ByValParent,ByValBlockTag,ByValName)　设置数据块
　　6）PublicSubset_unknowns(ByValunknowns)　设定未指定映射的标记处理方式
　　7）PublicSubparse(ByValName,ByValBlockTag,ByValAppend)　执行模板文件与数据的结合
　　8）PublicSubp(ByValName)　输出处理结果

实现代码：
<%
'=======================================================================
'CLASSNAME:kktTemplateASP页面模板对象
'DESIGNBY:彭国辉
'DATE:2004-07-05
'WEBSITE:http://kacarton.yeah.net/
'EMAIL:kacarton@sohu.com
'
'本对象中使用了set_var、set_block等命名方法是为了兼容phplib
'=======================================================================

ClasskktTemplate

Privatem_FileName,m_Root,m_Unknowns,m_LastError,m_HaltOnErr
Privatem_ValueList,m_BlockList
Privatem_RegExp
'构造函数
PrivateSubClass_Initialize
Setm_ValueList=CreateObject("Scripting.Dictionary")
Setm_BlockList=CreateObject("Scripting.Dictionary")
setm_RegExp=NewRegExp
m_RegExp.IgnoreCase=True
m_RegExp.Global=True
m_FileName=""
m_Root=""
m_Unknowns="remove"
m_LastError=""
m_HaltOnErr=true
EndSub

'析构函数
PrivateSubClass_Terminate
Setm_RegExp=Nothing
Setm_BlockMatches=Nothing
Setm_ValueMatches=nothing
EndSub

PublicPropertyGetClassName()
ClassName="kktTemplate"
EndProperty

PublicPropertyGetVersion()
Version="1.0"
EndProperty

PublicSubAbout()
Response.Write("kktTemplateASP页面模板类<br>"&vbCrLf&_
"程序设计：彭国辉2004-07-05<br>"&vbCrLf&_
"个人网站：<ahref='http://kacarton.yeah.net'>http://kacarton.yeah.net<;/a><br>"&vbCrLf&_
"电子邮件：<ahref='mailto:kacarton@sohu.com'>kacarton@sohu.com</a><br>")
EndSub

'检查目录是否存在
PublicFunctionFolderExist(ByValpath)
Dimfso
Setfso=CreateObject("Scripting.FileSystemObject")
FolderExist=fso.FolderExists(Server.MapPath(path))
Setfso=Nothing
EndFunction
'读取文件内容
PrivateFunctionLoadFile()
DimFilename,fso,hndFile
Filename=m_Root
IfRight(Filename,1)<>"/"AndRight(Filename,1)<>"\"ThenFilename=Filename&"/"
Filename=Server.MapPath(Filename&m_FileName)
Setfso=CreateObject("Scripting.FileSystemObject")
IfNotfso.FileExists(Filename)ThenShowError("模板文件"&m_FileName&"不存在!")
sethndFile=fso.OpenTextFile(Filename)
LoadFile=hndFile.ReadAll
SethndFile=Nothing
Setfso=Nothing
IfLoadFile=""ThenShowError("不能读取模板文件"&m_FileName&"或文件为空!")
EndFunction

'处理错误信息
PrivateSubShowError(ByValmsg)
m_LastError=msg
Response.Write"<fontcolor=redstyle='font-size;14px'><b>模板错误："&msg&"</b></font><br>"
Ifm_HaltOnErrThenResponse.End
EndSub

'设置模板文件默认目录
'Ex:kktTemplate.set_root("/tmplate")
'kktTemplate.Root="/tmplate"
'root=kktTemplate.get_root()
'root=kktTemplate.Root
'使用类似set_root这样的命名方法是为了兼容phplib，以下将不再重复说明
PublicSubset_root(ByValValue)
IfNotFolderExist(Value)ThenShowError(Value&"不是有效目录或目录不存在!")
m_Root=Value
EndSub
PublicFunctionget_root()
get_root=m_Root
EndFunction
PublicPropertyLetRoot(ByValValue)
set_root(Value)
EndProperty
PublicPropertyGetRoot()
Root=m_Root
EndProperty

'设置模板文件
'Ex:kktTemplate.set_file("hndTpl","index.htm")
'本类不支持多模板文件，handle为兼容phplib而保留
PublicSubset_file(ByValhandle,ByValfilename)
m_FileName=filename
m_BlockList.AddHandle,LoadFile()
EndSub
PublicFunctionget_file()
get_file=m_FileName
EndFunction
'PublicPropertyLetFile(handle,filename)
'set_filehandle,filename
'EndProperty
'PublicPropertyGetFile()
'File=m_FileName
'EndProperty

'设置对未指定的标记的处理方式，有keep、remove、comment三种
PublicSubset_unknowns(ByValunknowns)
m_Unknowns=unknowns
EndSub
PublicFunctionget_unknowns()
get_unknowns=m_Unknowns
EndFunction
PublicPropertyLetUnknowns(ByValunknown)
m_Unknowns=unknown
EndProperty
PublicPropertyGetUnknowns()
Unknowns=m_Unknowns
EndProperty

PublicSubset_block(ByValParent,ByValBlockTag,ByValName)
DimMatches
m_RegExp.Pattern="<!--\s+BEGIN"&BlockTag&"\s+-->([\s\S.]*)<!--\s+END"&BlockTag&"\s+-->"
IfNotm_BlockList.Exists(Parent)ThenShowError("未指定的块标记"&Parent)
setMatches=m_RegExp.Execute(m_BlockList.Item(Parent))
ForEachMatchInMatches
m_BlockList.AddBlockTag,Match.SubMatches(0)
m_BlockList.Item(Parent)=Replace(m_BlockList.Item(Parent),Match.Value,"{"&Name&"}")
Next
setMatches=nothing
EndSub

PublicSubset_var(ByValName,ByValValue,ByValAppend)
DimVal
IfIsNull(Value)ThenVal=""ElseVal=Value
Ifm_ValueList.Exists(Name)Then
IfAppendThenm_ValueList.Item(Name)=m_ValueList.Item(Name)&Val_
Elsem_ValueList.Item(Name)=Val
Else
m_ValueList.AddName,Value
EndIf
EndSub

PublicSubunset_var(ByValName)
Ifm_ValueList.Exists(Name)Thenm_ValueList.Remove(Name)
EndSub

PrivateFunctionInstanceValue(ByValBlockTag)
Dimkeys,i
InstanceValue=m_BlockList.Item(BlockTag)
keys=m_ValueList.Keys
Fori=0Tom_ValueList.Count-1
InstanceValue=Replace(InstanceValue,"{"&keys(i)&"}",m_ValueList.Item(keys(i)))
Next
EndFunction

PublicSubparse(ByValName,ByValBlockTag,ByValAppend)
IfNotm_BlockList.Exists(BlockTag)ThenShowError("未指定的块标记"&Parent)
Ifm_ValueList.Exists(Name)Then
IfAppendThenm_ValueList.Item(Name)=m_ValueList.Item(Name)&InstanceValue(BlockTag)_
Elsem_ValueList.Item(Name)=InstanceValue(BlockTag)
Else
m_ValueList.AddName,InstanceValue(BlockTag)
EndIf
EndSub

PrivateFunctionfinish(ByValcontent)
SelectCasem_Unknowns
Case"keep"finish=content
Case"remove"
m_RegExp.Pattern="\{[^\t\r\n}]+\}"
finish=m_RegExp.Replace(content,"")
Case"comment"
m_RegExp.Pattern="\{([^\t\r\n}]+)\}"
finish=m_RegExp.Replace(content,"<!--TemplateVariable$1undefined-->")
CaseElsefinish=content
EndSelect
EndFunction

PublicSubp(ByValName)
IfNotm_ValueList.Exists(Name)ThenShowError("不存在的标记"&Name)
Response.Write(finish(m_ValueList.Item(Name)))
EndSub
EndClass
%>

3、使用例子
　　下面举三个例子进行说明。
1)简单的值替换
模板文件为myTemple.tpl，内容：
<html><title>ASP模板简单替换</title><body>
祝贺！你赢了一辆{some_color}法拉利！
</body>

下面是ASP代码（kktTemplate.inc.asp就是上面给出的模板类）：
<!--#INCLUDEVIRTUAL="kktTemplate.inc.asp"-->
<%
dimmy_color,kkt
my_color="红色的"
setkkt=newkktTemplate'创建模板对象
kkt.set_file"hndKktTemp","myTemple.tpl"'设置并读取模板文件myTemple.tpl
kkt.set_var"some_color",my_color,false'设置模板变量some_color=my_color的值
kkt.parse"out","hndKktTemp",false'模板变量out=处理后的文件
kkt.p"out"'输出out的内容
setkkt=nothing'销毁模板对象
%>

执行后输出为：
<html><title>ASP模板简单替换</title><body>
祝贺！你赢了一辆红色的法拉利！
</body>


2)循环块演示例子
模板文件myTemple2.tpl：
<html><title>ASP模板－块的演示</title><body>
<tablecellspacing="2"border="1"><tr><td>下面的动物您喜欢哪一种</td></tr>
<!--BEGINAnimalList-->
<tr><td><inputtype="radio"name="chk">{animal}</td></tr>
<!--ENDAnimalList-->
</table>
</body>

ASP代码：
<!--#INCLUDEVIRTUAL="kktTemplate.inc.asp"-->
<%
dimanimal,kkt,i
animal=Array("小猪","小狗","小强")
setkkt=newkktTemplate
kkt.set_file"hndKktTemp","myTemple2.tpl"
kkt.set_block"hndKktTemp","AnimalList","list"
fori=0toUBound(animal)
kkt.set_var"animal",animal(i),false
kkt.parse"list","AnimalList",true
next
kkt.parse"out","hndKktTemp",false
kkt.p"out"
setkkt=nothing
%>

执行结果：
<html><title>ASP模板－块的演示</title><body>
<tablecellspacing="2"border="1"><tr><td>下面的动物您喜欢哪一种</td></tr>
<tr><td><inputtype="radio"name="chk">小猪</td></tr>
<tr><td><inputtype="radio"name="chk">小狗</td></tr>
<tr><td><inputtype="radio"name="chk">小强</td></tr>
</table>
</body>


3)嵌套块演示
模板文件myTemple3.tpl：
<html><title>ASP模板－嵌套块演示</title>
<body><tablewidth="400"border="1"bordercolor="#000000">
<tr><td><divalign="center">{myname}测试</div></td></tr>
<tr><td>我的动植物园：</td></tr>
<!--BEGINanimalList-->
<tr><td>{animal}</td></tr>
<!--BEGINplantList-->
<tr><td>{plant}</td></tr>
<!--ENDplantList-->
<!--ENDanimalList-->
</table>
</body>
</html>

ASP代码：
<!--#INCLUDEVIRTUAL="kktTemplate.inc.asp"-->
<%
dimmy_color,kkt,myname,animal,plant
setkkt=newkktTemplate
myname="kktTemplateblocktest..."
animal=array("动物","植物")
plant=array(array("小猪","小白","小强"),array("玫瑰","向日葵"))

kkt.set_file"hndKktTemp","myTemple3.tpl"
kkt.set_var"myname",myname,false
kkt.set_block"hndKktTemp","animalList","a"
kkt.set_block"animalList","plantList","p"

fori=0toUBound(animal)
kkt.set_var"animal",animal(i),False
kkt.unset_var"p"
'kkt.set_var"p","",false
forj=0toUBound(plant(i))
kkt.set_var"plant",plant(i)(j),false
kkt.parse"p","plantList",true
next
kkt.parse"a","animalList",true
next
kkt.parse"out","hndKktTemp",false
kkt.p"out"
%>

执行结果：
<html><title>ASP模板－嵌套块演示</title>
<body><tablewidth="400"border="1"bordercolor="#000000">
<tr><td><divalign="center">kktTemplateblocktest...测试</div></td></tr>
<tr><td>我的动植物园：</td></tr>
<tr><td>动物</td></tr>
<tr><td>小猪</td></tr>
<tr><td>小白</td></tr>
<tr><td>小强</td></tr>
<tr><td>植物</td></tr>
<tr><td>玫瑰</td></tr>
<tr><td>向日葵</td></tr>
</table>
</body>
</html>


本文提及的所有代码可从此处下载：http:///kacarton/web/kktTemplate.rar(3.53K)


4、小结
　　本文主要介绍了基于ASP利用模板类实现代码与页面分离的方法，当然还有其它更好的解决方案。本文旨在抛砖引玉各位读者、WEB开发参与进来，多提宝贵意见，多作交流，共同进步！