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

文章出处:编程手札
http://blog.csdn.net/nhconch 请大家多多支持.

每个进行过较大型的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) 输出处理结果

实现代码：

 1   
 2'=======================================================================   
 3' 本对象中使用了set_var、set_block等命名方法是为了兼容phplib   
 4'=======================================================================   
 5'www.knowsky.com 
 6
 7Class kktTemplate   
 8  
 9Private m_FileName, m_Root, m_Unknowns, m_LastError, m_HaltOnErr   
10Private m_ValueList, m_BlockList   
11Private m_RegExp   
12' 构造函数   
13Private Sub Class_Initialize   
14Set m_ValueList = CreateObject("Scripting.Dictionary")   
15Set m_BlockList = CreateObject("Scripting.Dictionary")   
16set m_RegExp = New RegExp   
17m_RegExp.IgnoreCase = True   
18m_RegExp.Global = True   
19m_FileName = ""   
20m_Root = ""   
21m_Unknowns = "remove"   
22m_LastError = ""   
23m_HaltOnErr = true   
24End Sub   
25  
26' 析构函数   
27Private Sub Class_Terminate   
28Set m_RegExp = Nothing   
29Set m_BlockMatches = Nothing   
30Set m_ValueMatches = nothing   
31End Sub   
32  
33Public Property Get ClassName()   
34ClassName = "kktTemplate"   
35End Property   
36  
37Public Property Get Version()   
38Version = "1.0"   
39End Property   
40  
41Public Sub About()   
42Response.Write("kktTemplate ASP页面模板类

<br/>

1" & vbCrLf &_   
2"程序设计：彭国辉 2004-07-05

<br/>

1" & vbCrLf &_   
2"个人网站：

<a href="http://kacarton.yeah.net">http://kacarton.yeah.net</a>

<br/>

1" & vbCrLf &_   
2"电子邮件：

<a href="mailto:[email protected]">[email protected]</a>

<br/>

 1")   
 2End Sub   
 3  
 4'检查目录是否存在   
 5Public Function FolderExist(ByVal path)   
 6Dim fso   
 7Set fso = CreateObject("Scripting.FileSystemObject")   
 8FolderExist = fso.FolderExists(Server.MapPath(path))   
 9Set fso = Nothing   
10End Function   
11'读取文件内容   
12Private Function LoadFile()   
13Dim Filename, fso, hndFile   
14Filename = m_Root   
15If Right(Filename, 1)<>"/" And Right(Filename, 1)<>"\" Then Filename = Filename & "/"   
16Filename = Server.MapPath(Filename & m_FileName)   
17Set fso = CreateObject("Scripting.FileSystemObject")   
18If Not fso.FileExists(Filename) Then ShowError("模板文件" & m_FileName & "不存在!")   
19set hndFile = fso.OpenTextFile(Filename)   
20LoadFile = hndFile.ReadAll   
21Set hndFile = Nothing   
22Set fso = Nothing   
23If LoadFile = "" Then ShowError("不能读取模板文件" & m_FileName & "或文件为空!")   
24End Function   
25  
26'处理错误信息   
27Private Sub ShowError(ByVal msg)   
28m_LastError = msg   
29Response.Write "

<font color="red" style="font-size;14px"><b>模板错误：" &amp; msg &amp; "</b></font>

<br/>

  1"   
  2If m_HaltOnErr Then Response.End   
  3End Sub   
  4  
  5'设置模板文件默认目录   
  6'Ex: kktTemplate.set_root("/tmplate")   
  7' kktTemplate.Root = "/tmplate"   
  8' root = kktTemplate.get_root()   
  9' root = kktTemplate.Root   
 10'使用类似set_root这样的命名方法是为了兼容phplib，以下将不再重复说明   
 11Public Sub set_root(ByVal Value)   
 12If Not FolderExist(Value) Then ShowError(Value & "不是有效目录或目录不存在!")   
 13m_Root = Value   
 14End Sub   
 15Public Function get_root()   
 16get_root = m_Root   
 17End Function   
 18Public Property Let Root(ByVal Value)   
 19set_root(Value)   
 20End Property   
 21Public Property Get Root()   
 22Root = m_Root   
 23End Property   
 24  
 25'设置模板文件   
 26'Ex: kktTemplate.set_file("hndTpl", "index.htm")   
 27'本类不支持多模板文件，handle为兼容phplib而保留   
 28Public Sub set_file(ByVal handle,ByVal filename)   
 29m_FileName = filename   
 30m_BlockList.Add Handle, LoadFile()   
 31End Sub   
 32Public Function get_file()   
 33get_file = m_FileName   
 34End Function   
 35' Public Property Let File(handle, filename)   
 36' set_file handle, filename   
 37' End Property   
 38' Public Property Get File()   
 39' File = m_FileName   
 40' End Property   
 41  
 42'设置对未指定的标记的处理方式，有keep、remove、comment三种   
 43Public Sub set_unknowns(ByVal unknowns)   
 44m_Unknowns = unknowns   
 45End Sub   
 46Public Function get_unknowns()   
 47get_unknowns = m_Unknowns   
 48End Function   
 49Public Property Let Unknowns(ByVal unknown)   
 50m_Unknowns = unknown   
 51End Property   
 52Public Property Get Unknowns()   
 53Unknowns = m_Unknowns   
 54End Property   
 55  
 56Public Sub set_block(ByVal Parent, ByVal BlockTag, ByVal Name)   
 57Dim Matches   
 58m_RegExp.Pattern = "
 59<!--\s+BEGIN " & BlockTag & "\s+-->
 60([\s\S.]*)
 61<!--\s+END " & BlockTag & "\s+-->
 62"   
 63If Not m_BlockList.Exists(Parent) Then ShowError("未指定的块标记" & Parent)   
 64set Matches = m_RegExp.Execute(m_BlockList.Item(Parent))   
 65For Each Match In Matches   
 66m_BlockList.Add BlockTag, Match.SubMatches(0)   
 67m_BlockList.Item(Parent) = Replace(m_BlockList.Item(Parent), Match.Value, "{" & Name & "}")   
 68Next   
 69set Matches = nothing   
 70End Sub   
 71  
 72Public Sub set_var(ByVal Name, ByVal Value, ByVal Append)   
 73Dim Val   
 74If IsNull(Value) Then Val = "" Else Val = Value   
 75If m_ValueList.Exists(Name) Then   
 76If Append Then m_ValueList.Item(Name) = m_ValueList.Item(Name) & Val _   
 77Else m_ValueList.Item(Name) = Val   
 78Else   
 79m_ValueList.Add Name, Value   
 80End If   
 81End Sub   
 82  
 83Public Sub unset_var(ByVal Name)   
 84If m_ValueList.Exists(Name) Then m_ValueList.Remove(Name)   
 85End Sub   
 86  
 87Private Function InstanceValue(ByVal BlockTag)   
 88Dim keys, i   
 89InstanceValue = m_BlockList.Item(BlockTag)   
 90keys = m_ValueList.Keys   
 91For i=0 To m_ValueList.Count-1   
 92InstanceValue = Replace(InstanceValue, "{" & keys(i) & "}", m_ValueList.Item(keys(i)))   
 93Next   
 94End Function   
 95  
 96Public Sub parse(ByVal Name, ByVal BlockTag, ByVal Append)   
 97If Not m_BlockList.Exists(BlockTag) Then ShowError("未指定的 块标记" & Parent)   
 98If m_ValueList.Exists(Name) Then   
 99If Append Then m_ValueList.Item(Name) = m_ValueList.Item(Name) & InstanceValue(BlockTag) _   
100Else m_ValueList.Item(Name) = InstanceValue(BlockTag)   
101Else   
102m_ValueList.Add Name, InstanceValue(BlockTag)   
103End If   
104End Sub   
105  
106Private Function finish(ByVal content)   
107Select Case m_Unknowns   
108Case "keep" finish = content   
109Case "remove"   
110m_RegExp.Pattern = "\\{[^ \t\r\n}]+\\}"   
111finish = m_RegExp.Replace(content, "")   
112Case "comment"   
113m_RegExp.Pattern = "\\{([^ \t\r\n}]+)\\}"   
114finish = m_RegExp.Replace(content, "
115<!-- Template Variable $1 undefined -->
116")   
117Case Else finish = content   
118End Select   
119End Function   
120  
121Public Sub p(ByVal Name)   
122If Not m_ValueList.Exists(Name) Then ShowError("不存在的标记" & Name)   
123Response.Write(finish(m_ValueList.Item(Name)))   
124End Sub   
125End Class

3、使用例子
下面举三个例子进行说明。
1)简单的值替换
模板文件为myTemple.tpl，内容：

1<html><title>ASP模板简单替换</title><body>   
2祝贺！你赢了一辆{some_color}法拉利！   
3</body>
4
5下面是ASP代码（kktTemplate.inc.asp就是上面给出的模板类）：   
6<!--#INCLUDE VIRTUAL="kktTemplate.inc.asp"-->

dim my_color, kkt
my_color = "红色的"
set kkt = new kktTemplate '创建模板对象
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的内容
set kkt = nothing '销毁模板对象

 1
 2执行后输出为：   
 3<html><title>ASP模板简单替换</title><body>   
 4祝贺！你赢了一辆红色的法拉利！   
 5</body>
 6
 7  
 82)循环块演示例子   
 9模板文件myTemple2.tpl：   
10<html><title>ASP模板－块的演示</title><body>
11<table border="1" cellspacing="2"><tr><td>下面的动物您喜欢哪一种</td></tr>
12<!-- BEGIN AnimalList -->
13<tr><td><input name="chk" type="radio"/>{animal}</td></tr>
14<!-- END AnimalList -->
15</table>
16</body>
17
18ASP代码：   
19<!--#INCLUDE VIRTUAL="kktTemplate.inc.asp"-->

dim animal, kkt, i
animal = Array("小猪","小狗","小强")
set kkt = new kktTemplate
kkt.set_file "hndKktTemp", "myTemple2.tpl"
kkt.set_block "hndKktTemp", "AnimalList", "list"
for i=0 to UBound(animal)
kkt.set_var "animal", animal(i), false
kkt.parse "list", "AnimalList", true
next
kkt.parse "out", "hndKktTemp", false
kkt.p "out"
set kkt = nothing

 1  
 2执行结果：   
 3<html><title>ASP模板－块的演示</title><body>
 4<table border="1" cellspacing="2"><tr><td>下面的动物您喜欢哪一种</td></tr>
 5<tr><td><input name="chk" type="radio"/>小猪</td></tr>
 6<tr><td><input name="chk" type="radio"/>小狗</td></tr>
 7<tr><td><input name="chk" type="radio"/>小强</td></tr>
 8</table>
 9</body>   
10
11
123)嵌套块演示   
13模板文件myTemple3.tpl：   
14<html><title>ASP模板－嵌套块演示</title>
15<body><table border="1" bordercolor="#000000" width="400">
16<tr><td><div align="center">{myname}测试</div></td></tr>
17<tr><td>我的动植物园：</td> </tr>
18<!-- BEGIN animalList -->
19<tr><td>{animal}</td></tr>
20<!-- BEGIN plantList -->
21<tr><td>  {plant}</td></tr>
22<!-- END plantList -->
23<!-- END animalList -->
24</table>
25</body>
26</html>
27
28ASP代码：   
29<!--#INCLUDE VIRTUAL="kktTemplate.inc.asp"-->

dim my_color, kkt, myname, animal, plant
set kkt = new kktTemplate
myname = "kktTemplate block test..."
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"

for i=0 to UBound(animal)
kkt.set_var "animal", animal(i), False
kkt.unset_var "p"
'kkt.set_var "p", "", false
for j=0 to UBound(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"

 1
 2执行结果：   
 3<html><title>ASP模板－嵌套块演示</title>
 4<body><table border="1" bordercolor="#000000" width="400">
 5<tr><td><div align="center">kktTemplate block test...测试</div></td></tr>
 6<tr><td>我的动植物园：</td> </tr>
 7<tr><td>动物</td></tr>
 8<tr><td>  小猪</td></tr>
 9<tr><td>  小白</td></tr>
10<tr><td>  小强</td></tr>
11<tr><td>植物</td></tr>
12<tr><td>  玫瑰</td></tr>
13<tr><td>  向日葵</td></tr>
14</table>
15</body>
16</html>
17
18  
19本文提及的所有代码可从此处下载： http://www.freewebs.com/kacarton/web/kktTemplate.rar 
20
21  
224、小结   
23本文主要介绍了基于ASP利用模板类实现代码与页面分离的方法，当然还有其它更好的解决方案。本文旨在抛砖引玉各位读者、WEB开发参与进来，多提宝贵意见，多作交流，共同进步！</html></html></html></html>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus