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 、 pintar 等多种 ， 其中 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: KKTTempLateEasp 页面模板对象
'Designby: 彭国辉
'Tanggal: 2004-07-05
'Situs web: http: //kacarton.yeah.net/
'Email: [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_unknowns = "hapus"
m_lasterror = ""
m_haltonerr = true
Endsub
'析构函数
Privatesubclass_terminate
Setm_regexp = tidak ada
Setm_blockmatches = tidak ada
Setm_valueMatches = tidak ada
Endsub
PublicPropertyGetClassName ()
Classname = "kkttemplate"
Endproperty
PublicpropertygetVersion ()
Versi = "1.0"
Endproperty
Publicsubabout ()
Response.write ("kkttemplateasp 页面模板类
"& vbcrlf & _
"程序设计 ： 彭国辉 2004-07-05
"& vbcrlf & _
"个人网站 ： http: //kacarton.yeah.net
"& vbcrlf & _
"电子邮件 ： [email protected]
")
Endsub
'检查目录是否存在
PublicFuncheFolderExist (Byvalpath)
Dimfso
SetFSO = createObject ("Scripting.FilesystemObject")
FolderExist = fso.folderexists (server.mappath (path))
Setfso = tidak ada
Fungsi endfungsi
'读取文件内容
PrivateFunctionLoadFile ()
Dimfilename, FSO, Hndfile
Nama file = m_root
Ifright (nama file, 1) "/" andright (nama file, 1) "/" thenfileName = nama file & "/"
FileName = server.mappath (nama file & m_filename)
SetFSO = createObject ("Scripting.FilesystemObject")
Ifnotfso.fileexists (nama file) thenshowerror ("模板文件" & m_filename & "不存在!")
setHndfile = fso.opentextFile (nama file)
LoadFile = hndfile.readall
Sethndfile = tidak ada
Setfso = tidak ada
Ifloadfile = "" thenshowerror ("不能读取模板文件" & m_filename & "或文件为空!")
Fungsi endfungsi
'处理错误信息
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 (nilai) thenshowerror (nilai & "不是有效目录或目录不存在!")
m_root = nilai
Endsub
Publicfunctionget_root ()
get_root = m_root
Fungsi endfungsi
PublicPropertyletroot (ByvalValue)
set_root (nilai)
Endproperty
Publicpropertygetroot ()
Root = m_root
Endproperty
'设置模板文件
'Ex: kkttemplate.set_file ("hndtpl", "index.htm")
'本类不支持多模板文件 ， Handle 为兼容 PhPlib 而保留
Publicsubset_file (byvalhandle, byvalfilename)
m_filename = nama file
m_blocklist.addhandle, loadFile ()
Endsub
Publicfunctionget_file ()
get_file = m_filename
Fungsi endfungsi
'PublicPropertyletFile (pegangan, nama file)
'Set_FileHandle, nama file
'Endproperty
'PublicpropertygetFile ()
'File = m_filename
'Endproperty
'设置对未指定的标记的处理方式 ， 有 simpan 、 hapus 、 komentar 三种
Publicsubset_unknowns (byvalunknowns)
m_unknowns = tidak diketahui
Endsub
Publicfunctionget_unknowns ()
get_unknowns = m_unknowns
Fungsi endfungsi
Publicpropertyletunknowns (byvalunknown)
m_unknowns = tidak diketahui
Endproperty
Publicpropertygetunknowns ()
Tidak diketahui = m_unknowns
Endproperty
Publicsubset_block (byvalparent, byvalblocktag, byvalname)
Dimatches
m_regexp.pattern = " ([/s/s. "
Ifnotm_blocklist.exists (Parent) thenshowerror ("未指定的块标记" & Parent)
setMatches = m_regexp.execute (m_blocklist.item (Parent))
ForeachMatchInmatches
m_blocklist.addblocktag, match.submatches (0)
m_blocklist.item (parent) = ganti (m_blocklist.item (parent), match.value, "{" & name & "}")
Berikutnya
setMatches = tidak ada
Endsub
Publicsubset_var (byvalname, byvalvalue, byvalappend)
Dimval
Ifisnull (value) thenVal = "" elseval = value
Ifm_valuelist.exists (nama) lalu
Ifappendthenm_valuelist.item (name) = m_valuelist.item (name) & val_
Elsem_valuelist.item (name) = val
Kalau tidak
m_valuelist.addname, nilai
Endif
Endsub
Publicsubunset_var (byvalname)
Ifm_valuelist.exists (name) thenm_valuelist.remove (name)
Endsub
PrivateFunctionInstancevalue (ByValBlockTag)
Dimkeys, i
Instancevalue = m_blocklist.item (blocktag)
kunci = m_valuelist.keys
Fori = 0tom_valuelist.count-1
Instancevalue = ganti (instancevalue, "{" & keys (i) & "}", m_valuelist.item (keys (i)))
Berikutnya
Fungsi endfungsi
PublicSubParse (ByValName, ByValBlockTag, ByValAppend)
Ifnotm_blocklist.exists (blocktag) thenshowerror ("未指定的块标记" & Parent)
Ifm_valuelist.exists (nama) lalu
Ifappendthenm_valuelist.item (name) = m_valuelist.item (name) & instancevalue (blocktag) _
Elsem_valuelist.item (name) = instancevalue (blocktag)
Kalau tidak
m_valuelist.addname, instancevalue (blocktag)
Endif
Endsub
PrivateFunctionFinish (ByValContent)
SelectCasem_unknowns
Case "Keep" finish = konten
Kasus "hapus"
m_regexp.pattern = "/{[^/t/r/n}]+/}"
finish = m_regexp.replace (konten, "")
Kasus "komentar"
m_regexp.pattern = "/{([^/t/r/n}]+)/}"
finish = m_regexp.replace (konten, " ")
Caseelsefinish = konten
Endselect
Fungsi endfungsi
Publicsubp (ByValName)
Ifnotm_valuelist.exists (name) thenshowerror ("不存在的标记" & name)
Response.write (finish (m_valuelist.item (name)))
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 "some_color", my_color, false '设置模板变量 some_color = my_color 的值
kkt.parse "out", "hndkkttemp", false '模板变量 out = 处理后的文件
kkt.p "out" '输出 输出 的内容 的内容
setKkt = tidak ada '销毁模板对象
%>
执行后输出为 ：
祝贺！你赢了一辆红色的法拉利！
2) 循环块演示例子
模板文件 mytemple2.tpl ：
| 下面的动物您喜欢哪一种 |
| {hewan} |
ASP ：
Dimanimal, KKT, i
hewan = array ("小猪", "小狗", "小强")
setKkt = newkkttemplate
kkt.set_file "hndkkttemp", "mytemple2.tpl"
kkt.set_block "hndkkttemp", "animallist", "list"
fori = 0toubound (hewan)
kkt.set_var "hewan", hewan (i), salah
KKT.PARSE "DAFTAR", "ANIMALLIST", benar
Berikutnya
kkt.parse "out", "hndkkttemp", false
kkt.p "out"
setkkt = tidak ada
%>
执行结果 ：
| 下面的动物您喜欢哪一种 |
| 小猪 |
| 小狗 |
| 小强 |
3) 嵌套块演示
模板文件 mytemple3.tpl ：
| {myName} 测试 |
| 我的动植物园 ： |
| {hewan} |
| {tanaman} |
ASP ：
dimmy_color, kkt, myname, hewan, tanaman
setKkt = newkkttemplate
myName = "kkttemplateBlockTest ..."
hewan = 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 (hewan)
kkt.set_var "hewan", hewan (i), salah
kkt.unset_var "p"
'kkt.set_var "p", "", false
forj = 0toubound (tanaman (i))
kkt.set_var "tanaman", tanaman (i) (j), false
kkt.parse "p", "daftar tanaman", benar
Berikutnya
kkt.parse "a", "animallist", benar
Berikutnya
kkt.parse "out", "hndkkttemp", false
kkt.p "out"
%>
执行结果 ：
| kkttemplateBlockTest ... 测试 |
| 我的动植物园 ： |
| 动物 |
| 小猪 |
| 小白 |
| 小强 |
| 植物 |
| 玫瑰 |
| 向日葵 |
4 、小结
本文主要介绍了基于 asp 利用模板类实现代码与页面分离的方法 ， 当然还有其它更好的解决方案。本文旨在抛砖引玉各位读者、 web 开发参与进来 ， 多提宝贵意见 ， 多作交流 ， 同进步！