[转载] ASP模板类[实现一维循环和二维循环，可以从文件、数据库、变量取摸板]

1. <%
   
2. '=========================================================
   
3. ' File: class_template.asp
   
4. ' Version:1.0
   
5. ' Date: 2004-5-7
   
6. ' Script Written by R.H
   
7. ' Description: ASP Template Class
   
8. '=========================================================
   
9. ' Copyright (C) 2004 Interflower Studios. All rights reserved.
   
10. ' Web: http://www.interflower.cn
    
11. ' Need help? Contact: ranhuan@msn.com
    
12. '=========================================================
    
13. '=========================================================
    
14. '模板中替换的部分用{{%}}表示
    
15. '模板中的循环用<!-- BEGIN % -->开始 <!-- END % -->结束 支持一次嵌套
    
16. 
    
17. Class Template
    
18. Private tmp
    
19. Private tpl_dir, tpl, tpl_blk
    
20. Private var_list, blk_list, blk_var_list
    
21. Private re, match, matchs
    
22. Private Sub class_Initialize
    
23. sql = ""
    
24. tpl_dir = "templates/"
    
25. tpl = ""
    
26. blk=""
    
27. Set var_list = Server.CreateObject("Scripting.Dictionary")
    
28. Set blk_list = Server.CreateObject("Scripting.Dictionary")
    
29. Set blk_var_list = Server.CreateObject("Scripting.Dictionary")
    
30. Set re = New RegExp
    
31. End Sub
    
32. '取得主体模板
    
33. '========================
    
34. '从变量取出
    
35. Public Sub SetTpl(tplvar)
    
36. tpl = tplvar
    
37. End Sub
    
38. ' 从DB中取出，自己修改sql语句
    
39. Public Sub SetTplDb(tplname)
    
40. Dim sql, rs
    
41. Set rs = Server.CreateObject("ADODB.RecordSet")
    
42. sql = "SELECT content FROM templates WHERE name = '"&tplname&"'"
    
43. rs.Open sql,conn,1,1
    
44. If rs.RecordCount <> 1 Then
    
45.   Response.Write("数据库错误！<br>")
    
46.   Response.End()
    
47. End If
    
48. tpl = rs("content")
    
49. rs.Close
    
50. Set rs = Nothing
    
51. End Sub
    
52. '从文件取出
    
53. Public Sub SetTplFile(tplfile)
    
54. Dim FSO, oFile
    
55. Set FSO = Server.Createobject("Scripting.FileSystemObject")
    
56. If FSO.FileExists(Server.Mappath(tpl_dir & tplfile)) then
    
57.   Set oFile = FSO.OpenTextFile(Server.Mappath(tpl_dir & tplfile))
    
58.   tpl = oFile.ReadAll
    
59.   oFile.Close
    
60.   Set oFile = Nothing
    
61. Else
    
62.   Response.Write "模板文件不存在！<br>"
    
63. End if
    
64. Set FSO = nothing
    
65. End Sub
    
66. '取得区块模板
    
67. '========================
    
68. '从变量取出
    
69. Public sub SetBlk(blkname, tplvar)
    
70. re.IgnoreCase = True
    
71. re.Global = True
    
72. re.Pattern = {{ & blkname & }}
    
73. tpl = re.Replace(tpl, tplvar)
    
74. rs.Close
    
75. End Sub
    
76. '从数据库取出
    
77. Public sub SetBlkDb(blkname, tplname)
    
78. Dim sql, rs
    
79. Set rs = Server.CreateObject("ADODB.RecordSet")
    
80. sql = "SELECT * FROM templates WHERE name = '"&tplname&"'"
    
81. rs.Open sql,conn,1,1
    
82. tmp = rs("content")
    
83. rs.Close
    
84. SetBlk blkname, tmp
    
85. set rs = Nothing
    
86. End Sub
    
87. '从文件取出
    
88. Public sub SetBlkFile(blkname, tplfile)
    
89. Dim FSO, oFile
    
90. Set FSO = createobject("Scripting.FileSystemObject")
    
91. If FSO.FileExists(server.mappath(tpl_dir &tplfile)) Then
    
92.   Set oFile = FSO.OpenTextFile(Server.MapPath(tpl_dir &tplfile))
    
93.   tmp = oFile.ReadAl
    
94.   SetBlock blkname, tmp
    
95.   oFile.Close
    
96.   set oFile = Nothing
    
97. Else
    
98.   Response.Write "区块模板文件不存在！<br>"
    
99. End If
    
100. Set FSO = Nothing
     
101. End Sub
     
102. '设置变量替换值
     
103. '========================
     
104. '简单替换
     
105. '已定义var_list是一个Scripting.Dictionary对象
     
106. Public Sub SetVar(sName, sValue)
     
107. If var_list.Exists(sName) then
     
108.   var_list.Remove sName
     
109.   var_list.Add sName, sValue
     
110. Else
     
111.   var_list.Add sName, sValue
     
112. End if
     
113. End Sub
     
114. '简单替换 追加数据
     
115. Public Sub AppendVar(sName, sValue)
     
116. If var_list.Exists(sName) then
     
117.   tmp = var_list.Item(sName) & sValue
     
118.   var_list.Remove sName
     
119.   var_list.Add sName, tmp
     
120. Else
     
121.   var_list.Add sName, sValue
     
122. End If
     
123. End Sub
     
124. '循环替换
     
125. '========================
     
126. '一维循环开始
     
127. Public Sub UdBlk(BlkName)
     
128. tpl_blk = BlkName
     
129. re.IgnoreCase = True
     
130. re.Global = True
     
131. re.Pattern = "<!--\s+BEGIN\s+(" & BlkName & ")\s+-->([\s\S.]*)<!--\s+END\s+\1\s+-->"
     
132. Set Matches = re.Execute(tpl)
     
133. If Matches.Count > 0 Then
     
134. Set match = Matches
     
135. For Each match In Matches
     
136. blk_list.Add BlkName, match.SubMatches(1)
     
137. var_list.Add BlkName, ""
     
138. tpl = re.Replace(tpl, "{{"&BlkName&"}}")
     
139. next
     
140. Else
     
141. Response.Write "Block " & BlkName & " does not exists!"
     
142. End If
     
143. end sub
     
144. '一维循环结束
     
145. Public Sub PsBlk(BlkName)
     
146. tmp = blk_list.Item(BlkName)
     
147. re.IgnoreCase = True
     
148. re.Global = True
     
149. re.Pattern = "(" & p_var_tag_o & ")([^}]+)" & p_var_tag_c
     
150. Set Matches = re.Execute(tmp)
     
151. for each match in Matches
     
152. if blk_var_list.Exists(match.SubMatches(1)) then
     
153. re.Pattern = match.value
     
154. tmp = re.Replace(tmp, blk_var_list.Item(match.SubMatches(1)))
     
155. end if
     
156. next
     
157. tmp = var_list.Item(BlkName) & tmp
     
158. var_list.Remove BlkName
     
159. var_list.Add BlkName, tmp
     
160. blk_var_list.RemoveAll
     
161. End Sub
     
162. '二维循环开始
     
163. Public Sub UdBlk2(BlkName)
     
164. tmp = blk_list.Item(tpl_blk)
     
165. re.IgnoreCase = True
     
166. re.Global = True
     
167. re.Pattern = "<!--\s+BEGIN\s+(" & BlkName & ")\s+-->([\s\S.]*)<!--\s+END\s+\1\s+-->"
     
168. Set Matches = re.Execute(tmp)
     
169. If Matches.Count > 0 Then
     
170. Set match = Matches
     
171. For Each match In Matches
     
172. blk_list.Add BlkName, match.SubMatches(1)
     
173. 'response.Write match.SubMatches(1)
     
174. blk_var_list.Add BlkName, ""
     
175. tmp = re.Replace(tmp, "{{"&BlkName&"}}")
     
176. blk_list.ReMove tpl_blk
     
177. blk_list.Add tpl_blk, tmp
     
178. next
     
179. Else
     
180. Response.Write "Block " & BlkName & " does not exists!"
     
181. End If
     
182. end sub
     
183. '二维循环结束
     
184. Public Sub PsBlk2(BlkName)
     
185. tmp = blk_list.Item(BlkName)
     
186. re.IgnoreCase = True
     
187. re.Global = True
     
188. re.Pattern = "(" & p_var_tag_o & ")([^}]+)" & p_var_tag_c
     
189. Set Matches = re.Execute(tmp)
     
190. for each match in Matches
     
191. if blk_var_list.Exists(match.SubMatches(1)) then
     
192. re.Pattern = match.value
     
193. tmp = re.Replace(tmp, blk_var_list.Item(match.SubMatches(1)))
     
194. end if
     
195. next
     
196. tmp = blk_var_list.Item(BlkName) & tmp
     
197. blk_var_list.RemoveAll
     
198. blk_var_list.Add BlkName, tmp
     
199. End Sub
     
200. '循环中的替换
     
201. Public Sub SetBlkVar(s, v)
     
202. If blk_var_list.Exists(s) then
     
203. blk_var_list.Remove s
     
204. blk_var_list.Add s, v
     
205. Else
     
206. blk_var_list.Add s, v
     
207. End if
     
208. End Sub
     
209. '解析模板和输出内容
     
210. '========================
     
211. '执行解析
     
212. '可以通过下面的过程取得网页内容，结合fso可以生成静态页面
     
213. Public Property GetTpl
     
214. re.IgnoreCase = True
     
215. re.Global = True
     
216. re.Pattern = "(" & {{ & ")([^}]+)" & }}
     
217. Set Matches = re.Execute(tpl)
     
218. for each match in Matches
     
219. if var_list.Exists(match.SubMatches(1)) then
     
220. re.Pattern = match.Value
     
221. tpl = re.Replace(tpl, var_list.Item(match.SubMatches(1)))
     
222. end if
     
223. next
     
224. GetTpl = tpl
     
225. End Property
     
226. '输出内容
     
227. Public Sub Parse
     
228. Response.Write tpl
     
229. End Sub
     
230. End Class
     
231. %>

复制代码