Ype html public "- // w3c // dtd html 4.0 transitional // en" "http://www.w3.org/tr/rec-html40/loose.dtd">
Ype html public "- // w3c // dtd html 4.0 transitional // en" "http://www.w3.org/tr/rec-html40/loose.dtd">
今天爱站小编就为大家带来一篇 asp 代码与页面的分离技术 ， 小编觉得挺不错的 ， 现在就分享给大家 ， 也给大家做个参考 ， 一起跟随小编过来看看吧。
每个进行过较大型的 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: kktemplateasp 页面模板对象
'Designby: 彭国辉
'Date: 2004-07-05
'Site Web: http: //kacarton.yeah.net/
'Courriel: [email protected]
'
'本对象中使用了 set_var 、 set_block 等命名方法是为了兼容 phplib
'===============================================================.
ClasskkTemplate
Privatem_filename, m_root, m_unknowns, m_lasterror, m_haltonerr
Privatem_valuuellist, m_blocklist
Privatem_regexp
'构造函数
PrivésubClass_Initialize
Setm_valualist = 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 = "retirer"
m_lasterror = ""
m_haltonerr = true
Fin
'析构函数
PrivésUbclass_termince
Setm_regexp = rien
Setm_blockmatches = rien
Setm_valuematches = rien
Fin
PublicPropertyGetClassName ()
ClassName = "kkTemplate"
Endproperty
PublicPropertyGetVersion ()
Version = "1.0"
Endproperty
PublicSubabout ()
Response.Write ("Kktemplateasp 页面模板类
"& vbcrlf & _
"程序设计 ： 彭国辉 2004-07-05
"& vbcrlf & _
"个人网站 ： http: //kacarton.yeah.net
"& vbcrlf & _
")
Fin
'检查目录是否存在
PublicFunctionfolderexist (ByValPath)
Dimfso
Setfso = createObject ("scripting.fileSystemObject")
FoldeRexist = fso.folderexists (server.mappath (path))
Setfso = rien
Finition de fin
'读取文件内容
PrivateFunctionloadFile ()
Dimfilename, fso, hndfile
FileName = M_ROOT
Ifright (nom de fichier, 1) "/" AndRight (nom de fichier, 1) "/" thenFileName = filename & "/"
Filename = server.mappath (filename & m_filename)
Setfso = createObject ("scripting.fileSystemObject")
Ifnotfso.fileexists (nom de fichier) thenshowerror ("模板文件" & m_filename & "不存在!")
sethndfile = fso.Opentextfile (nom de fichier)
Loadfile = hndfile.readall
Sethndfile = rien
Setfso = rien
IfLoadFile = "" thenshowerror ("不能读取模板文件" & m_filename & "或文件为空!")
Finition de fin
'处理错误信息
PrivéSubshowerror (BYVALMSG)
m_lasterror = msg
Réponse.WRITE "模板错误 ：" & msg & "
"
Ifm_haltonerrthenResponse.end
Fin
'设置模板文件默认目录
'Ex: kktremplate.set_root ("/ tmplate")
'kktremplate.root = "/ tmplate"
'root = kktremplate.get_root ()
'root = kktremplate.root
'使用类似 set_root 这样的命名方法是为了兼容 phplib ， 以下将不再重复说明
Publicsubset_root (ByValValue)
IfnotFoldeRexist (valeur) thenshowerror (valeur et "不是有效目录或目录不存在!")
m_root = valeur
Fin
PublicFunctionGet_Root ()
get_root = m_root
Finition de fin
PublicProperTyletRoot (ByValValue)
set_root (valeur)
Endproperty
PublicPropertyGetRoot ()
Root = m_root
Endproperty
'设置模板文件
'Ex: kkttemplate.set_file ("hndtpl", "index.htm")
'本类不支持多模板文件 ， Handle 为兼容 phplib 而保留
Publicsubset_file (ByvalHandle, ByValFilename)
m_filename = nom de fichier
m_blocklist.addhandle, loadfile ()
Fin
PublicFunctionGet_File ()
get_file = m_filename
Finition de fin
'PublicProperTyletFile (manche, nom de fichier)
'set_filehandle, nom de fichier
'EndProperty
'PublicPropertyGetFile ()
'File = m_filename
'EndProperty
'设置对未指定的标记的处理方式 ， 有 Continuez 、 Supprimer 、 Commentaire 三种
Publicsubset_unknowns (ByValunknowns)
m_unknowns = inconnues
Fin
PublicFunctionGet_unknowns ()
get_unknowns = m_unknowns
Finition de fin
PublicPropertyleTunknowns (ByValunknown)
m_unknowns = inconnu
Endproperty
PublicPropertygetUnkNowns ()
Inconnus = m_unknowns
Endproperty
PublicsubSet_Block (ByValparent, ByValBlockTag, ByValName)
Tabots
m_regexp.Pattern = " ([/ "
Ifnotm_blocklist.exists (parent) thenshowerror ("未指定的块标记" et parent)
setmatches = m_regexp.execcute (m_blocklist.item (parent))
Foreachmatchinmatches
m_blocklist.addblocktag, match.submatches (0)
m_blocklist.item (parent) = remplacer (m_blocklist.item (parent), match.value, "{" & name & "}")
Suivant
setmatches = rien
Fin
Publicsubset_var (ByValName, ByValValue, ByValappend)
Dimval
Ifisnull (valeur) thenval = "" elseval = valeur
Ifm_valuuellist.exists (nom) puis
IfApendThenm_valualist.item (name) = m_valuuellist.item (name) & val_
Elsem_valuuellist.item (nom) = val
Autre
m_valuuellist.addname, valeur
Endire
Fin
Publicsubunset_var (ByValName)
Ifm_valuuellist.exists (nom) thenm_valualist.remove (nom)
Fin
PrivateFonctionInstanceValue (ByValBlockTag)
Dimkeys, je
InstanceValue = m_blocklist.item (blocktag)
keys = m_valuuellist.keys
Fori = 0tom_valueList.Count-1
InstanceValue = Replace (instanceValue, "{" & keys (i) & "}", m_valuuellist.item (clés (i)))
Suivant
Finition de fin
PublicsubParse (ByValName, ByValBlocktag, ByValappend)
Ifnotm_blocklist.exists (blocktag) thenshowerror ("未指定的块标记" et parent)
Ifm_valuuellist.exists (nom) puis
IfApendThenm_valualist.item (name) = m_valualist.item (name) & instanceValue (blockTag) _
Elsem_valuuellist.item (name) = instanceValue (blocktag)
Autre
m_valueList.addname, instanceValue (BlockTag)
Endire
Fin
PrivateFunctionfinish (ByValContent)
Selectcasem_unknowns
Case "garder" finition = contenu
Cas "Supprimer"
m_regexp.pattern = "/ {[^ / t / r / n}] + /}"
finir = m_regexp.replace (contenu, "")
Cas "commentaire"
m_regexp.pattern = "/ {([^ / t / r / n}] +) /}"
finir = m_regexp.replace (contenu, " ")
CaseEelSefinish = Contenu
Se licez
Finition de fin
Publicsubp (ByValName)
Ifnotm_valuuellist.exists (nom) thenshowerror ("不存在的标记" & name)
Response.Write (Finish (m_valuuellist.item (nom))))
Fin
Classe de fin
%>
3 、使用例子
下面举三个例子进行说明。
1) 简单的值替换
模板文件为 Mytemple.tpl ， ：
祝贺！你赢了一辆 {some_color} 法拉利！
下面是 ASP 代码 （KKTTEmplate.inc.asp 就是上面给出的模板类 ：
dimmy_color, kkt
my_color = "红色的"
setkkt = newkkTemplate '创建模板对象
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 = rien '销毁模板对象
%>
：
祝贺！你赢了一辆红色的法拉利！
2) 循环块演示例子
模板文件 Mytemple2.tpl:
| 下面的动物您喜欢哪一种 |
| {animal} |
Asp 代码 ：
DiNanimal, Kkt, je
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), faux
kkt.parse "list", "animallist", vrai
suivant
kkt.parse "out", "hndkkttemp", false
kkt.p "out"
setkkt = rien
%>
：
| 下面的动物您喜欢哪一种 |
| 小猪 |
| 小狗 |
| 小强 |
3) 嵌套块演示
模板文件 Mytemple3.tpl:
| {myname} 测试 |
| ： |
| {animal} |
| {usine} |
Asp 代码 ：
dimmy_color, kkt, myname, animal, plante
setkkt = newkkttemplate
myName = "kkTemplateBlocktest ..."
animal = array ("动物", "植物")
plante = 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), faux
kkt.unset_var "p"
'kkt.set_var "p", "", false
forj = 0Toubound (plante (i))
kkt.set_var "plante", plante (i) (j), false
kkt.parse "p", "plantlist", vrai
suivant
kkt.parse "a", "animalliste", vrai
suivant
kkt.parse "out", "hndkkttemp", false
kkt.p "out"
%>
：
| kkTemplateBlocktest ... 测试 |
| ： |
| 动物 |
| 小猪 |
| 小白 |
| 小强 |
| 植物 |
| 玫瑰 |
| 向日葵 |
4 、小结
本文主要介绍了基于 ASP 利用模板类实现代码与页面分离的方法 ， 当然还有其它更好的解决方案。本文旨在抛砖引玉各位读者、 Web 开发参与进来 ， 多提宝贵意见 ， 多作交流 ， 同进步！同进步！