使用模板实现ASP代码与页面分离_ASP教程-查字典教程网

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

摘要：每个进行过较大型的ASP-Web应用程序设计的开发人员大概都有如下的经历：ASP代码与页面HTML混淆难分，业务逻辑与显示方式绞合，使得代码...

每个进行过较大型的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="<>([sS.]*)<>"

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&"}")

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)))

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="{[^trn}]+}"

finish=m_RegExp.Replace(content,"")

Case"comment"

m_RegExp.Pattern="{([^trn}]+)}"

finish=m_RegExp.Replace(content,"<>")

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就是上面给出的模板类）：

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>

<tr><td><inputtype="radio"name="chk">{animal}</td></tr>

</table>

</body>

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

kkt.parse"out","hndKktTemp",false

kkt.p"out"

setkkt=nothing

执行结果：

<html><title>ASP模板－块的演示</title><body>

<tablecellspacing="2"border="1"><tr><td>下面的动物您喜欢哪一种</td></tr>

</table>

</body>

3)嵌套块演示

模板文件myTemple3.tpl：

<html><title>ASP模板－嵌套块演示</title>

<tr><td><divalign="center">{myname}测试</div></td></tr>

<tr><td>我的动植物园：</td></tr>

<tr><td>{animal}</td></tr>

<tr><td>{plant}</td></tr>

</table>

</body>

</html>

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

kkt.parse"a","animalList",true

kkt.parse"out","hndKktTemp",false

kkt.p"out"

执行结果：

<html><title>ASP模板－嵌套块演示</title>

<tr><td><divalign="center">kktTemplateblocktest...测试</div></td></tr>

<tr><td>我的动植物园：</td></tr>

</table>

</body>

</html>

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

4、小结

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

【使用模板实现ASP代码与页面分离】相关文章：

★ ASP辅助代码

★ 一次性下载远程页面上的所有内容第1/2页

★ asp:生成静态页面函数

★ ASP关于页面缓存清除的方法小结

上一篇：使用类，实现模块化

下一篇：获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP

学习工具