Ype html public "-// w3c // dtd html 4.0 transitional // en" "http://www.w3.org/tr/trec-html40/loose.dtd">
Ype html public "-// w3c // dtd html 4.0 transitional // en" "http://www.w3.org/tr/trec-html40/loose.dtd">
今天爱站小编就为大家带来一篇 ASP 代码与页面的分离技术 ， 小编觉得挺不错的 ， 现在就分享给大家 ， 也给大家做个参考 ， 一起跟随小编过来看看吧。 一起跟随小编过来看看吧。
每个进行过较大型的 Asp-Web ： ： Asp 代码与页面 html 混淆难分 ， ， 使得代码难以理解、难以修改；程序编写必须在美工之后 ， 成为项目瓶颈；整合的程序代码和 html 静态页面时 ， 花费大量的时间才能得到理想的效果 兼作了美工。的确 ， 用脚本语言开发 用脚本语言开发 应用不容易将数据的处理和数据的显示分开 但在多人合作的情况下 但在多人合作的情况下 如果无法将数据和显示分开 ， 将大大影响开发的效率 将大大影响开发的效率 ， 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 用脚本语言开发 用脚本语言开发 用脚本语言开发 成为项目瓶颈；整合的程序代码和 ， ， 将大大影响开发的效率 ， 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 用脚本语言开发 用脚本语言开发 成为项目瓶颈；整合的程序代码和 成为项目瓶颈；整合的程序代码和 ， 将大大影响开发的效率 ， 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 用脚本语言开发 用脚本语言开发 成为项目瓶颈；整合的程序代码和 成为项目瓶颈；整合的程序代码和 ， 将大大影响开发的效率 ， 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 用脚本语言开发 用脚本语言开发 成为项目瓶颈；整合的程序代码和 ， ， 将大大影响开发的效率 ， 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 用脚本语言开发 ， 成为项目瓶颈；整合的程序代码和 如果无法将数据和显示分开 将大大影响开发的效率 ， 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 用脚本语言开发 用脚本语言开发 ， 成为项目瓶颈；整合的程序代码和 ， 将大大影响开发的效率 ， 专业分工的发挥。 专业分工的发挥。 用脚本语言开发 用脚本语言开发 用脚本语言开发 用脚本语言开发 成为项目瓶颈；整合的程序代码和 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 用脚本语言开发 用脚本语言开发 用脚本语言开发 用脚本语言开发 用脚本语言开发 用脚本语言开发 用脚本语言开发 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。 专业分工的发挥。
其它的脚本语言 ， 如 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: kkttemPlateEsp 页面模板对象
'Designby: 彭国辉
'Datum: 2004-07-05
'Website: http: //kacarton.yeah.net/
'E -Mail: [email protected]
''
'本对象中使用了 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_UUNKNOWNS = "Entfernung"
m_lasterror = ""
M_Haltonerr = true
Ende
'析构函数
PrivateSubclass_terate
SetM_regexp = nichts
SetM_blockmatches = nichts
SetM_valuematches = nichts
Ende
PublicPropertyGetClassName ()
ClassName = "kkttemplate"
Endproperschaft
PublicPropertyGetversion ()
Version = "1.0"
Endproperschaft
Publicsubabout ()
Response.write ("kkttemplateEsp 页面模板类
"& vbcrlf & _
"程序设计 ： ： 2004-07-05
"& vbcrlf & _
"个人网站 ： http: //kacarton.yeah.net
"& vbcrlf & _
"电子邮件 ： [email protected]
"))
Ende
'检查目录是否存在
PublicFunctionFoderexist (Byvalpath)
Dimfso
Setfso = createObject ("scripting.filesystemObject")
Ordneexist = fso.molderexists (server.MAppath (Pfad))
Setfso = nichts
Endfunktion
'读取文件内容
PrivateFunctionloadfile ()
DimFileName, FSO, Hndfile
Dateiname = m_root
IFright (Dateiname, 1) "/" und right (Dateiname, 1) "/" thenFileName = Dateiname & "/"
Dateiname = Server.Mappath (Dateiname & M_FileName)
Setfso = createObject ("scripting.filesystemObject")
Ifnotfso.fileExists (Dateiname) Thenshowerror ("模板文件" & m_filename & "不存在!")
SetndndFile = fso.opentextfile (Dateiname)
LoadFile = hndfile.readall
Setndndfile = nichts
Setfso = nichts
Ifloadfile = "" thenhowerror ("不能读取模板文件" & m_filename & "或文件为空!")
Endfunktion
'处理错误信息
PrivateSubshowerror (byvalmsg)
m_lasterror = msg
Antwort.Write "模板错误 ：" & msg & "
"
IFM_HALTONERRThenResponse.end
Ende
'设置模板文件默认目录
'Ex: kkttemplate.set_root ("/tmplate")
'kkttemplate.root = "/tmplate"
'root = kkttemplate.get_root ()
'root = kkttemplate.root
'使用类似 set_root 这样的命名方法是为了兼容 phplib ， 以下将不再重复说明
Publicsubset_root (byvalvalue)
IfnotFoReRexist (Wert) Thenshowerror (Wert & "不是有效目录或目录不存在!")
m_root = Wert
Ende
PublicFunctionget_root ()
get_root = m_root
Endfunktion
PublicPropertyletroot (ByvalValue)
set_root (Wert)
Endproperschaft
PublicPropertygetroot ()
Root = m_root
Endproperschaft
'设置模板文件
'Ex: kkttemplate.set_file ("hndtpl", "index.htm")
'本类不支持多模板文件 ， Handle 为兼容 Phplib 而保留
Publicsubset_file (Byvalhandle, ByvalFileName)
M_FileName = Dateiname
m_blocklist.addhandle, loadFile ()
Ende
PublicFunctionget_file ()
get_file = m_filename
Endfunktion
'PublicPropertylletfile (Handle, Dateiname)
'set_FileHandle, Dateiname
'Endproperty
'PublicPropertyGetfile ()
'File = m_fileName
'Endproperty
'设置对未指定的标记的处理方式 ， 有 有 Bleib 、 、 、 Kommentar 三种
Publicsubset_unkynowns (byvalunkNowns)
M_UUNKNOWNS = Unbekannte
Ende
PublicFunctionGet_UunkNOWNS ()
get_unkNowns = m_UunkNowns
Endfunktion
PublicPropertyletunnowns (Byvalunknown)
M_UUNKNOWNS = UNNAKT
Endproperschaft
PublicPropertyGetunnowns ()
Unbekannte = M_UKNNOWNS
Endproperschaft
Publicsubset_block (byvalparent, byvalblocktag, byvalname)
Dimmatches
m_regexp.pattern = " ([/s/s. weise)) "
Ifnotm_blocklist.exists (übergeordnet) thenhowerror ("未指定的块标记" & übergeordnet)
setMatches = m_regexp.execute (m_blocklist.item (übergeordnet)))
ForeachMatchInmatches
m_blocklist.addblocktag, match.submatches (0)
m_blocklist.item (übergeordnet) = ersetzen (m_blocklist.item (übergeordnet), match.value, "{" & name & "}")
Nächste
setMatches = nichts
Ende
Publicsubset_var (byvalname, byvalvalue, byvalappend)
Dimval
Ifisnull (Wert) thenval = "" Elseval = Wert
Ifm_valuelist.exists (name) dann
IfAppendthenm_valuelist.Item (Name) = m_valuelist.Item (Name) & val_
Elsem_valuelist.item (name) = val
Anders
m_valuelist.addname, Wert
Endif
Ende
Publicsubunset_var (byvalname)
Ifm_valuelist.exists (Name) thenm_valuelist.remove (Name)
Ende
PrivatfunktionInstanceValue (Byvalblocktag)
Dimkeys, ich
InstanceValue = m_blocklist.item (blocktag)
keys = m_valuelist.keys
Fei = 0tom_valuelist.count-1
InstanceValue = ersetzen (InstanceValue, "{" & keys (i) & "}", m_valuelist.item (keys (i)))
Nächste
Endfunktion
PublicsubParse (Byvalname, ByvalblockTag, Byvalappend)
Ifnotm_blocklist.exists (blocktag) thenshowerror ("未指定的块标记" & übergeordnet)
Ifm_valuelist.exists (name) dann
IfAppendthenm_valuelist.Item (name) = m_valuelist.item (name) & instanceValue (blocktag) _
Elsem_valuelist.Item (Name) = InstanceValue (Blocktag)
Anders
m_valuelist.addname, InstanceValue (Blocktag)
Endif
Ende
Privatfunktionfinish (Byvalcontent)
SelectCasem_unkynowns
Fall "Keep" Finish = Inhalt
Fall "Entfernen"
m_regexp.pattern = "/{[^/t/r/n}]+/}"
fund = m_regexp.replace (Inhalt, "")
Fall "Kommentar"
m_regexp.pattern = "/{([^/t/r/n}]+)/}"
Finish = M_REGEXP.REPLACE (Inhalt, "," "))
CaseLsefinish = Inhalt
Endauswahl
Endfunktion
Publicsubp (Byvalname)
Ifnotm_valuelist.exists (Name) Thenshowerror ("不存在的标记" & Name)
Antwort.Write (Finish (m_valuelist.Item (Name))))
Ende
Endschicht
%>
3 、使用例子
下面举三个例子进行说明。
1) 简单的值替换
模板文件为 mytemple.tpl ， ： ：
祝贺！你赢了一辆 {son_color} 法拉利！
下面是 ASP 代码（ kkttemplate.inc.asp 就是上面给出的模板类） ：
DIMMY_COLOR, KKT
my_color = "红色的"
setKKT = newkkttemplate '创建模板对象
kkt.set_file "hndkkttemp", "mytemple.tpl" '设置并读取模板文件 mytemple.tpl
kkt.set_var "slow_color", my_color, false '设置模板变量 son_color = my_color 的值
kkt.parse "out", "hndkkttemp", false '模板变量 out = 处理后的文件
kkt.p "out" '输出 out 的内容
setkkt = nichts '销毁模板对象
%>
执行后输出为 ：
祝贺！你赢了一辆红色的法拉利！
2) 循环块演示例子
模板文件 mytemple2.tpl ：
| 下面的动物您喜欢哪一种 |
| {Tier} |
ASP 代码 ：
Dimanimal, Kkt, ich
Animal = Array ("小猪", "小狗", "小强")
setKKT = newkkttemplate
kkt.set_file "hndkkttemp", "mytemple2.tpl"
kkt.set_block "hndkkttemp", "Animallist", "Liste"
fei = 0toubund (Tier)
kkt.set_var "Tier", Tier (i), falsch
Kkt.Parse "Liste", "Animallist", wahr
nächste
kkt.parse "out", "hndkkttemp", false
kkt.p "out"
setkkt = nichts
%>
执行结果 ：
| 下面的动物您喜欢哪一种 |
| 小猪 |
| 小狗 |
| 小强 |
3) 嵌套块演示
模板文件 mytemple3.tpl ：
| {myName} 测试 |
| 我的动植物园 ： |
| {Tier} |
| {Anlage} |
ASP 代码 ：
DIMMY_COLOR, KKT, MyName, Tier, Pflanze
setKKT = newkkttemplate
myName = "kkttemplateBllockTest ..."
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"
fei = 0toubund (Tier)
kkt.set_var "Tier", Tier (i), falsch
kkt.unset_var "p"
'kkt.set_var "p", "", falsch
fürj = 0Toubund (Pflanze (i))
kkt.set_var "pflanzlich", pflanzlich (i) (j), falsch
Kkt.Parse "P", "Plantlist", wahr
nächste
Kkt.Parse "a", "Animallist", wahr
nächste
kkt.parse "out", "hndkkttemp", false
kkt.p "out"
%>
执行结果 ：
| KKTTemplateBlockTest ... 测试 |
| 我的动植物园 ： |
| 动物 |
| 小猪 |
| 小白 |
| 小强 |
| 植物 |
| 玫瑰 |
| 向日葵 |
4 、小结
本文主要介绍了基于 ASP 利用模板类实现代码与页面分离的方法 ， 当然还有其它更好的解决方案。本文旨在抛砖引玉各位读者、 当然还有其它更好的解决方案。本文旨在抛砖引玉各位读者、 开发参与进来 ， 多提宝贵意见 ， 多作交流 ， 同进步！ 同进步！ 同进步！ 同进步！ 同进步！ 同进步！