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

发布于:作者:
分类: Script

每个进行过较大型的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. ' CLASS NAME: kktTemplate ASP页面模板对象    
  4. ' DESIGN BY : 彭国辉    
  5. ' DATE: 2004-07-05    
  6. ' WEBSITE: http://kacarton.yeah.net/    
  7. ' BLOG: http://blog.csdn.net/nhconch    
  8. ' EMAIL: kacarton@sohu.com    
  9. '    
  10. ' 本对象中使用了set_var、set_block等命名方法是为了兼容phplib    
  11. '文章为作者原创，转载前请先与本人联系，转载请注明文章出处、保留作者信息，谢谢支持！    
  12. '================================================================    
  13. Class kktTemplate    
  14. Private m_FileName, m_Root, m_Unknowns, m_LastError, m_HaltOnErr    
  15. Private m_ValueList, m_BlockList    
  16. Private m_RegExp    
  17. ' 构造函数    
  18. Private Sub Class_Initialize    
  19. Set m_ValueList = CreateObject("Scripting.Dictionary")    
  20. Set m_BlockList = CreateObject("Scripting.Dictionary")    
  21. set m_RegExp = New RegExp    
  22. m_RegExp.IgnoreCase = True    
  23. m_RegExp.Global = True    
  24. m_FileName = ""    
  25. m_Root = ""    
  26. m_Unknowns = "remove"    
  27. m_LastError = ""    
  28. m_HaltOnErr = true    
  29. End Sub    
  30. ' 析构函数    
  31. Private Sub Class_Terminate    
  32. Set m_RegExp = Nothing    
  33. Set m_BlockMatches = Nothing    
  34. Set m_ValueMatches = nothing    
  35. End Sub    
  36. Public Property Get ClassName()    
  37. ClassName = "kktTemplate"    
  38. End Property    
  39. Public Property Get Version()    
  40. Version = "1.0"    
  41. End Property    
  42. Public Sub About()    
  43. Response.Write("kktTemplate ASP页面模板类<br>" & vbCrLf &_    
  44. "程序设计：彭国辉 2004-07-05<br>" & vbCrLf &_    
  45. "个人网站：<a href=''http://kacarton.yeah.net''>http://kacarton.yeah.net</a><br>" & vbCrLf &_    
  46. "电子邮件：<a href=''mailto:kacarton@sohu.com''>kacarton@sohu.com</a><br>")    
  47. End Sub    
  48. '检查目录是否存在    
  49. Public Function FolderExist(ByVal path)    
  50. Dim fso    
  51. Set fso = CreateObject("Scripting.FileSystemObject")    
  52. FolderExist = fso.FolderExists(Server.MapPath(path))    
  53. Set fso = Nothing    
  54. End Function    
  55. '读取文件内容    
  56. Private Function LoadFile()    
  57. Dim Filename, fso, hndFile    
  58. Filename = m_Root    
  59. If Right(Filename, 1)<>"/" And Right(Filename, 1)<>"" Then Filename = Filename & "/"    
  60. Filename = Server.MapPath(Filename & m_FileName)    
  61. Set fso = CreateObject("Scripting.FileSystemObject")    
  62. If Not fso.FileExists(Filename) Then ShowError("模板文件" & m_FileName & "不存在!")    
  63. set hndFile = fso.OpenTextFile(Filename)    
  64. LoadFile = hndFile.ReadAll    
  65. Set hndFile = Nothing    
  66. Set fso = Nothing    
  67. If LoadFile = "" Then ShowError("不能读取模板文件" & m_FileName & "或文件为空!")    
  68. End Function    
  69. '处理错误信息    
  70. Private Sub ShowError(ByVal msg)    
  71. m_LastError = msg    
  72. Response.Write "<font color=red style=''font-size;14px''><b>模板错误：" & msg & "</b></font><br>"    
  73. If m_HaltOnErr Then Response.End    
  74. End Sub    
  75. '设置模板文件默认目录    
  76. 'Ex: kktTemplate.set_root("/tmplate")    
  77. ' kktTemplate.Root = "/tmplate"    
  78. ' root = kktTemplate.get_root()    
  79. ' root = kktTemplate.Root    
  80. '使用类似set_root这样的命名方法是为了兼容phplib，以下将不再重复说明    
  81. Public Sub set_root(ByVal Value)    
  82. If Not FolderExist(Value) Then ShowError(Value & "不是有效目录或目录不存在!")    
  83. m_Root = Value    
  84. End Sub    
  85. Public Function get_root()    
  86. get_root = m_Root    
  87. End Function    
  88. Public Property Let Root(ByVal Value)    
  89. set_root(Value)    
  90. End Property    
  91. Public Property Get Root()    
  92. Root = m_Root    
  93. End Property    
  94. '设置模板文件    
  95. 'Ex: kktTemplate.set_file("hndTpl", "index.htm")    
  96. '本类不支持多模板文件，handle为兼容phplib而保留    
  97. Public Sub set_file(ByVal handle,ByVal filename)    
  98. m_FileName = filename    
  99. m_BlockList.Add Handle, LoadFile()    
  100. End Sub    
  101. Public Function get_file()    
  102. get_file = m_FileName    
  103. End Function    
  104. ' Public Property Let File(handle, filename)    
  105. ' set_file handle, filename    
  106. ' End Property    
  107. ' Public Property Get File()    
  108. ' File = m_FileName    
  109. ' End Property    
  110. '设置对未指定的标记的处理方式，有keep、remove、comment三种    
  111. Public Sub set_unknowns(ByVal unknowns)    
  112. m_Unknowns = unknowns    
  113. End Sub    
  114. Public Function get_unknowns()    
  115. get_unknowns = m_Unknowns    
  116. End Function    
  117. Public Property Let Unknowns(ByVal unknown)    
  118. m_Unknowns = unknown    
  119. End Property    
  120. Public Property Get Unknowns()    
  121. Unknowns = m_Unknowns    
  122. End Property    
  123. Public Sub set_block(ByVal Parent, ByVal BlockTag, ByVal Name)    
  124. Dim Matches    
  125. m_RegExp.Pattern = "<!--s+BEGIN " & BlockTag & "s+-->([sS.]*)<!--s+END " & BlockTag & "s+-->"    
  126. If Not m_BlockList.Exists(Parent) Then ShowError("未指定的块标记" & Parent)    
  127. set Matches = m_RegExp.Execute(m_BlockList.Item(Parent))    
  128. For Each Match In Matches    
  129. m_BlockList.Add BlockTag, Match.SubMatches(0)    
  130. m_BlockList.Item(Parent) = Replace(m_BlockList.Item(Parent), Match.Value, "{" & Name & "}")    
  131. Next    
  132. set Matches = nothing    
  133. End Sub    
  134. Public Sub set_var(ByVal Name, ByVal Value, ByVal Append)    
  135. Dim Val    
  136. If IsNull(Value) Then Val = "" Else Val = Value    
  137. If m_ValueList.Exists(Name) Then    
  138. If Append Then m_ValueList.Item(Name) = m_ValueList.Item(Name) & Val _    
  139. Else m_ValueList.Item(Name) = Val    
  140. Else    
  141. m_ValueList.Add Name, Value    
  142. End If    
  143. End Sub    
  144. Public Sub unset_var(ByVal Name)    
  145. If m_ValueList.Exists(Name) Then m_ValueList.Remove(Name)    
  146. End Sub    
  147. Private Function InstanceValue(ByVal BlockTag)    
  148. Dim keys, i    
  149. InstanceValue = m_BlockList.Item(BlockTag)    
  150. keys = m_ValueList.Keys    
  151. For i=0 To m_ValueList.Count-1    
  152. InstanceValue = Replace(InstanceValue, "{" & keys(i) & "}", m_ValueList.Item(keys(i)))    
  153. Next    
  154. End Function    
  155. Public Sub parse(ByVal Name, ByVal BlockTag, ByVal Append)    
  156. If Not m_BlockList.Exists(BlockTag) Then ShowError("未指定的 块标记" & Parent)    
  157. If m_ValueList.Exists(Name) Then    
  158. If Append Then m_ValueList.Item(Name) = m_ValueList.Item(Name) & InstanceValue(BlockTag) _    
  159. Else m_ValueList.Item(Name) = InstanceValue(BlockTag)    
  160. Else    
  161. m_ValueList.Add Name, InstanceValue(BlockTag)    
  162. End If    
  163. End Sub    
  164. Private Function finish(ByVal content)    
  165. Select Case m_Unknowns    
  166. Case "keep" finish = content    
  167. Case "remove"    
  168. m_RegExp.Pattern = "{[^ trn}]+}"    
  169. finish = m_RegExp.Replace(content, "")    
  170. Case "comment"    
  171. m_RegExp.Pattern = "{([^ trn}]+)}"    
  172. finish = m_RegExp.Replace(content, "<!-- Template Variable $1 undefined -->")    
  173. Case Else finish = content    
  174. End Select    
  175. End Function    
  176. Public Sub p(ByVal Name)    
  177. If Not m_ValueList.Exists(Name) Then ShowError("不存在的标记" & Name)    
  178. Response.Write(finish(m_ValueList.Item(Name)))    
  179. End Sub    
  180. End Class    
  181. %>   

3、使用例子

　　下面举三个例子进行说明。

1)简单的值替换

模板文件为myTemple.tpl，内容： 

  1. <html><title>ASP模板简单替换</title><body>    
  2.   
  3. 祝贺！你赢了一辆{some_color}法拉利！    
  4.   
  5. </body>    
  6.   
  7. 下面是ASP代码（kktTemplate.inc.asp就是上面给出的模板类）：    
  8.   
  9. <!--#INCLUDE VIRTUAL="kktTemplate.inc.asp"-->    
  10.   
  11. <%    
  12.   
  13. dim my_color, kkt    
  14.   
  15. my_color = "红色的"    
  16.   
  17. set kkt = new kktTemplate ''创建模板对象    
  18.   
  19. kkt.set_file "hndKktTemp", "myTemple.tpl" ''设置并读取模板文件myTemple.tpl    
  20.   
  21. kkt.set_var "some_color", my_color, false ''设置模板变量 some_color = my_color的值    
  22.   
  23. kkt.parse "out", "hndKktTemp", false ''模板变量 out = 处理后的文件    
  24.   
  25. kkt.p "out" ''输出out的内容    
  26.   
  27. set kkt = nothing ''销毁模板对象    
  28.   
  29. %>   

执行后输出为：
<html><title>ASP模板简单替换</title><body>
祝贺！你赢了一辆红色的法拉利！
</body>
2)循环块演示例子
模板文件myTemple2.tpl：
<html><title>ASP模板－块的演示</title><body>
<table cellspacing="2" border="1"><tr><td>下面的动物您喜欢哪一种</td></tr>
<!– BEGIN AnimalList –>
<tr><td><input type="radio" name="chk">{animal}</td></tr>
<!– END AnimalList –>
</table>
</body>
ASP代码：
<!–#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
%>
执行结果：
<html><title>ASP模板－块的演示</title><body>
<table cellspacing="2" border="1"><tr><td>下面的动物您喜欢哪一种</td></tr>
<tr><td><input type="radio" name="chk">小猪</td></tr>
<tr><td><input type="radio" name="chk">小狗</td></tr>
<tr><td><input type="radio" name="chk">小强</td></tr>
</table>
</body>
3)嵌套块演示
模板文件myTemple3.tpl：
<html><title>ASP模板－嵌套块演示</title>
<body><table width="400" border="1" bordercolor="#000000">
<tr><td><div align="center">{myname}测试</div></td></tr>
<tr><td>我的动植物园：</td> </tr>
<!– BEGIN animalList –>
<tr><td>{animal}</td></tr>
<!– BEGIN plantList –>
<tr><td>&nbsp;&nbsp;{plant}</td></tr>
<!– END plantList –>
<!– END animalList –>
</table>
</body>
</html>
ASP代码：
<!–#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"
%>
执行结果：
<html><title>ASP模板－嵌套块演示</title>
<body><table width="400" border="1" bordercolor="#000000">
<tr><td><div align="center">kktTemplate block test…测试</div></td></tr>
<tr><td>我的动植物园：</td> </tr>
<tr><td>动物</td></tr>
<tr><td>&nbsp;&nbsp;小猪</td></tr>
<tr><td>&nbsp;&nbsp;小白</td></tr>
<tr><td>&nbsp;&nbsp;小强</td></tr>
<tr><td>植物</td></tr>
<tr><td>&nbsp;&nbsp;玫瑰</td></tr>
<tr><td>&nbsp;&nbsp;向日葵</td></tr>
</table>
</body>
</html>

留下评论

您的电子邮箱地址不会被公开。 必填项已用 * 标注