Ype html public "-// w3c // dtd html 4.0 transitório // pt" "http://www.w3.org/tr/rec-html40/loose.dtd">
Ype html public "-// w3c // dtd html 4.0 transitório // pt" "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: Kkttemplateasp 页面模板对象
'Designby: 彭国辉
Data: 2004-07-05
'Site: 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 ("script.dictionary")
setm_regexp = newRegexp
m_regexp.ignorecase = true
m_regexp.global = true
m_filename = ""
m_root = ""
m_unknowns = "Remover"
M_LASTERROR = ""
m_haltonerr = true
Endsub
'析构函数
Privatesubclass_termine
Setm_regexp = nada
SetM_blockMatches = nada
SetM_Valuematches = nada
Endsub
PublicPropertyGetClassName ()
ClassName = "Kkttemplate"
EndProperty
PublicPropertyGetVersion ()
Versão = "1.0"
EndProperty
Publicsubabout ()
Response.Write ("Kkttemplateasp 页面模板类
"& Vbcrlf & _
"程序设计 ： ： 彭国辉 2004-07-05
"& Vbcrlf & _
"个人网站: http: //kacarton.yeah.net
"& Vbcrlf & _
"电子邮件: [email protected]
")
Endsub
'检查目录是否存在
PublicFunctionFoldErexist (ByValpath)
Dimfso
Setfso = createObject ("script.filesystemoBject")
Dobraxist = fso.olderexists (server.mappath (caminho))
Setfso = nada
Função final
'读取文件内容
PrivateFunctionLoadFile ()
Dimfilename, FSO, hndfile
Nome do arquivo = m_root
SeRright (nome do arquivo, 1) "/" Andright (nome do arquivo, 1) "/" thenfileName = FileName & "/"
FileName = Server.mappath (nome do arquivo e m_filename)
Setfso = createObject ("script.filesystemoBject")
Ifnotfso.fileExists (nome do arquivo) thenshowerror ("模板文件" & m_filename & "不存在!")
sethndfile = fso.opentExtfile (nome do arquivo)
Loadfile = hndfile.readall
Sethndfile = nada
Setfso = nada
Ifloadfile = "" ThensHowerRor ("不能读取模板文件" & m_filename & "或文件为空!")
Função final
'处理错误信息
PrivatesubShowerRor (BYVALMSG)
M_LASTERROR = MSG
Response.Write "模板错误 模板错误:" & msg & "
"
Ifm_haltonerrThenResponse.end
Endsub
'设置模板文件默认目录
'Ex: kkttemplate.set_root ("/tmplate")
'kkttemplate.root = "/tmplate"
'root = kkttemplate.get_root ()
'root = kkttemplate.root
'使用类似 set_root 这样的命名方法是为了兼容 phplib ， 以下将不再重复说明
Publicsubset_root (ByValValue)
IfnotFoldErexist (value) ThensHowerRor (Valor & "不是有效目录或目录不存在!")
m_root = valor
Endsub
PublicFunctionGet_root ()
get_root = m_root
Função final
PublicProperTyLeleTroot (ByValValue)
set_root (valor)
EndProperty
PublicPropertyGeGroot ()
Raiz = m_root
EndProperty
'设置模板文件
'Ex: kkttemplate.set_file ("hndtpl", "index.htm")
本类不支持多模板文件 ， ， Handle 为兼容 phplib 而保留
Publicsubset_file (ByValHandle, ByValFilename)
m_filename = nome do arquivo
m_blocklist.addhandle, loadfile ()
Endsub
PublicFunctionGet_File ()
get_file = m_filename
Função final
'PublicProperTyLetFile (Handle, FileName)
'set_fileHandle, nome do arquivo
'EndProperty
'PublicPropertyGetFile ()
'Arquivo = m_filename
'EndProperty
'设置对未指定的标记的处理方式 ， 有 Mantenha 、 Remova 、 Comentário 三种
Publicsubset_unknowns (Byvalunknowns)
m_unknowns = incógnitas
Endsub
PublicFunctionGet_unknowns ()
get_unknowns = m_unknowns
Função final
PublicPropertyletunknowns (Byvalunknown)
m_unknowns = desconhecido
EndProperty
PublicPropertyGetUnkNowns ()
Desconhecido = m_unknowns
EndProperty
Publicsubset_block (BYVALPARENT, BYVALBLOCKTAG, BYVALNAME)
Dimmatches
m_regexp.pattern = " ([/s/s. ]*) "
Ifnotm_blocklist.exists (pai) thenshowerror ("未指定的块标记" e pai)
setMatches = m_regexp.execute (m_blocklist.item (pai))
ForeachMatchinMatches
m_blocklist.addblocktag, match.submatches (0)
m_blocklist.item (pai) = substituir (m_blocklist.item (pai), match.value, "{" & name & "}")
Próximo
setMatches = nada
Endsub
Publicsubset_var (ByValName, ByValValue, ByValappend)
Dimval
Ifisnull (value) thenval = "" elseval = value
Ifm_valuelist.exists (nome) então
Ifappendthenm_valuelist.item (nome) = m_valuelist.item (nome) e val_
Elsem_valuelist.item (nome) = val
Outro
m_valuelist.addname, valor
Endif
Endsub
Publicsubunset_var (ByValName)
Ifm_valuelist.exists (nome) thenm_valuelist.remove (nome)
Endsub
PrivateFunctionInstanceValue (ByValBlockTag)
Dimkeys, i
InstanceValue = m_blocklist.item (BlockTag)
chaves = m_valuelist.keys
Fori = 0tom_valuelist.count-1
InstanceValue = Substitua (InstanceValue, "{" & keys (i) & "}", m_valuelist.item (keys (i)))
Próximo
Função final
PublicsubParse (ByValName, ByValBlockTag, ByValappend)
Ifnotm_blocklist.exists (blocktag) thenshowerror ("未指定的块标记" e pai)
Ifm_valuelist.exists (nome) então
Ifappendthenm_valuelist.item (nome) = m_valuelist.item (nome) e instância (blocktag) _
Elsem_valuelist.item (nome) = InstanceValue (BlockTag)
Outro
m_valuelist.addname, InstanceValue (BlockTag)
Endif
Endsub
PrivateFunctionFinish (ByValContent)
SelectCasem_unknowns
Case "mantenha" acabamento = conteúdo
Caso "Remover"
m_regexp.pattern = "/{[^/t/r/n}]+/}"
acabamento = m_regexp.replace (conteúdo, "")
Caso "comentário"
m_regexp.pattern = "/{([^/t/r/n}]+)/}"
acabamento = m_regexp.replace (conteúdo, " ")
Caseelsefinish = content
EndSelect
Função final
Publicsubp (ByValName)
Ifnotm_valuelist.exists (nome) thenshowerror ("不存在的标记" e nome)
Response.Write (finalização (m_valuelist.item (nome)))
Endsub
Endclass
%>
3 、使用例子
下面举三个例子进行说明。
1) 简单的值替换
模板文件为 mytemple.tpl ， 内容:
祝贺！你赢了一辆 {Some_Color} 法拉利！
下面是 Asp 代码 （kkttemplate.inc.asp 就是上面给出的模板类） ： ：
Dimmy_color, Kkt
my_color = "红色的"
setkkt = newkkttemplate '创建模板对象
kkt.set_file "hndkkttemp", "mytemple.tpl" '设置并读取模板文件 mytemple.tpl
kkt.set_var "algum_color", my_color, false '设置模板变量 algum_color = my_color 的值
kkt.parse "out", "hndkkttemp", false '模板变量 out = 处理后的文件
kkt.p "out" '输出 out 的内容
setkkt = nada '销毁模板对象
%>
执行后输出为
祝贺！你赢了一辆红色的法拉利！
2) 循环块演示例子
模板文件 MyTemple2.tpl:
| 下面的动物您喜欢哪一种 |
| {animal} |
ASP 代码:
Dimanimal, Kkt, i
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), falso
Kkt.parse "List", "Animallist", True
próximo
kkt.parse "Out", "hndkkttemp", false
kkt.p "Out"
setkkt = nada
%>
执行结果
| 下面的动物您喜欢哪一种 |
| 小猪 |
| 小狗 |
| 小强 |
3) 嵌套块演示
模板文件 MyTemple3.TPL:
| {MyName} 测试 |
| 我的动植物园 |
| {animal} |
| {plantar} |
ASP 代码:
Dimmy_Color, Kkt, MyName, Animal, Plant
setkkt = newkkttemplate
MyName = "KkttemplateBlockTest ..."
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"
fori = 0Toubound (animal)
kkt.set_var "animal", animal (i), falso
kkt.unset_var "p"
'kkt.set_var "p", "", false
forj = 0Toubound (planta (i))
kkt.set_var "planta", planta (i) (j), false
kkt.parse "p", "plantlist", verdadeiro
próximo
kkt.parse "A", "Animallist", verdadeiro
próximo
kkt.parse "Out", "hndkkttemp", false
kkt.p "Out"
%>
执行结果
| KKTTemplateBlockTest ... 测试 |
| 我的动植物园 |
| 动物 |
| 小猪 |
| 小白 |
| 小强 |
| 植物 |
| 玫瑰 |
| 向日葵 |
4 、小结
本文主要介绍了基于 Asp 利用模板类实现代码与页面分离的方法 ， 当然还有其它更好的解决方案。本文旨在抛砖引玉各位读者、 web 开发参与进来 ， 多提宝贵意见 ， 多作交流 ， 同进步！同进步！