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 静态页面时，，， 兼作了美工。的确， 用脚本语言开发用脚本语言开发应用不容易将数据的处理和数据的显示分开但在多人合作的情况下， 如果无法将数据和显示分开， 将大大影响开发的效率，， 专业分工的发挥。专业分工的发挥。，，，，，，，， 将大大影响开发的效率，，，，，，，，
其它的脚本语言， 如 jsp、 php 都有自己的解决方案， asp 的后一代产品 asp.net 也实现了代码与页面， 似乎直接过渡到 asp 是不错的选择。但是总有这样或那样的原因让我们不能或暂时不能放弃 asp 直奔 .net 大营。从公司角度来看， 转换语言是一笔不少的投资， 包括雇佣熟手 .net 程序员、培训原有程序员、开发工具的转型、开发风格的转型、界面风格转变、接口风格、软件架构、文档、开发流程等等；这还意味着原有的代码必须在新语言环境里重写以实现最佳的效果和稳定性；同时将直接影响这段时间内项目的进度 更有可能导致个别程序员出走。由此看来在您决定转换语言之前，， 在原基础上寻求一种解决方案， 才是最好的选择。才是最好的选择。才是最好的选择。，，，，，，，， 更有可能导致个别程序员出走。由此看来在您决定转换语言之前， 更有可能导致个别程序员出走。由此看来在您决定转换语言之前，，，，，
php 通过模板实现代码与页面， 可供选择的有 fasttemplate、 phplib、 smarty 等多种， 其中 phplib 的影响最大、使用最多。既然如此 我们直接把它搬到我们直接把它搬到 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: 彭国辉
'วันที่: 2004-07-05
'เว็บไซต์: http: //kacarton.yeah.net/
'อีเมล: [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 = "ลบ"
m_lasterror = ""
m_haltonerr = true
enddub
'析构函数
privateSubclass_terminate
setM_regexp = ไม่มีอะไร
setM_blockmatches = ไม่มีอะไร
setm_valuematches = ไม่มีอะไร
enddub
PublicPropertygetClassName ()
className = "kkttemplate"
ปลายทาง
PublyPropertyGetVersion ()
เวอร์ชัน = "1.0"
ปลายทาง
Publicsubabout ()
Response.write ("kkttemplateasp 页面模板类
"& vbcrlf & _
"程序设计： 彭国辉 2004-07-05
"& vbcrlf & _
"个人网站： http: //kacarton.yeah.net
"& vbcrlf & _
"电子邮件： [email protected]
-
enddub
'检查目录是否存在
PublicFunctionFolderExist (Byvalpath)
dimfso
setfso = createObject ("Scripting.filesystemObject")
folderexist = fso.folderexists (server.mappath (พา ธ ))
setfso = ไม่มีอะไร
endfunction
'读取文件内容
PrivateFunctionloadFile ()
dimfilename, fso, hndfile
ชื่อไฟล์ = m_root
ifright (ชื่อไฟล์, 1) "/" Andright (ชื่อไฟล์, 1) "/" thenfilename = filename & "/"
filename = server.mappath (ชื่อไฟล์ & m_filename)
setfso = createObject ("Scripting.filesystemObject")
ifnotfso.fileexists (ชื่อไฟล์) Thenshowerror ("模板文件" & m_filename & "不存在!")
sethndfile = fso.opentextfile (ชื่อไฟล์)
loadfile = hndfile.readall
sethndfile = ไม่มีอะไร
setfso = ไม่มีอะไร
ifloadfile = "" Thenshowerror ("不能读取模板文件" & m_filename & "或文件为空!")
endfunction
'处理错误信息
Privatesubshowerror (byvalmsg)
m_lasterror = msg
Response.write "模板错误：" & msg & "
-
IFM_HALTONERRTHENRESPONSE.end
enddub
'设置模板文件默认目录
'ex: kkttemplate.set_root ("/tmplate")
'kkttemplate.root = "/tmplate"
'root = kkttemplate.get_root ()
'root = kkttemplate.root
'使用类似 set_root 这样的命名方法是为了兼容 phplib， 以下将不再重复说明
publicsubset_root (byvalvalue)
ifnotfolderexist (ค่า) Thenshowerror (ค่า & "不是有效目录或目录不存在!")
m_root = ค่า
enddub
publicfunctionget_root ()
get_root = m_root
endfunction
PublicPropertyletRoot (byvalvalue)
set_root (ค่า)
ปลายทาง
PublyPropertyGetRoot ()
root = m_root
ปลายทาง
'设置模板文件
'ex: kkttemplate.set_file ("hndtpl", "index.htm")
'本类不支持多模板文件， จัดการ为兼容 phplib 而保留
publicsubset_file (byvalhandle, byvalfilename)
m_filename = ชื่อไฟล์
m_blocklist.addhandle, loadfile ()
enddub
publicfunctionget_file ()
get_file = m_filename
endfunction
'PublicPropertyletFile (มือจับชื่อไฟล์)
'set_filehandle ชื่อไฟล์
'endproperty
'publicpropertygetFile ()
'file = m_filename
'endproperty
'设置对未指定的标记的处理方式， 有เก็บ、 ลบความคิดเห็น三种
Publicsubset_unknowns (byvalunknowns)
m_unknowns = unknowns
enddub
Publicfunctionget_unknowns ()
get_unknowns = m_unknowns
endfunction
PublicPropertyletunknowns (Byvalunknown)
m_unknowns = ไม่ทราบ
ปลายทาง
PublyPropertygetUndowns ()
unknowns = m_unknowns
ปลายทาง
publicsubset_block (byvalparent, byvalblocktag, byvalname)
สลัว
m_regexp.pattern = " ([/s/s.lame*) -
IFNOTM_BLOCKLIST.EXISTS (ผู้ปกครอง) ThenShowerror ("未指定的块标记" & Parent)
setMatches = m_regexp.execute (m_blocklist.item (parent))
foreachMatchinMatches
m_blocklist.addblocktag, match.submatches (0)
m_blocklist.item (parent) = แทนที่ (m_blocklist.item (parent), match.value, "{" & name & "}")))
ต่อไป
setMatches = ไม่มีอะไร
enddub
publicsubset_var (byvalname, byvalvalue, byvalappend)
dimval
ifisnull (value) thenval = "" elseval = value
ifm_valuelist.exists (ชื่อ) จากนั้น
Ifappendthenm_valuelist.item (ชื่อ) = m_valuelist.item (ชื่อ) & val_
elsem_valuelist.item (ชื่อ) = val
อื่น
m_valuelist.addname, ค่า
endif
enddub
publicsubunset_var (byvalname)
ifm_valuelist.exists (ชื่อ) THENM_VALUELIST.REMOVE (ชื่อ)
enddub
PrivateFunctionInstanceValue (byvalblocktag)
dimkeys, i
InstanceValue = m_blocklist.item (blocktag)
keys = m_valuelist.keys
fori = 0tom_valuelist.count -1
InstanceValue = แทนที่ (InstanceValue, "{" & Keys (i) & "}", m_valuelist.item (คีย์ (i)))))
ต่อไป
endfunction
Publicsubparse (byvalname, byvalblocktag, byvalappend)
ifnotm_blocklist.exists (blocktag) Thenshowerror ("未指定的块标记" & Parent)
ifm_valuelist.exists (ชื่อ) จากนั้น
Ifappendthenm_valuelist.item (ชื่อ) = m_valuelist.item (ชื่อ) & InstanceValue (blocktag) _
elsem_valuelist.item (ชื่อ) = InstanceValue (blocktag)
อื่น
m_valuelist.addname, InstanceValue (blocktag)
endif
enddub
PrivateFunctionFinish (byvalcontent)
SELECTCASEM_UNKNOWNS
กรณี "Keep" Finish = เนื้อหา
กรณี "ลบ"
m_regexp.pattern = "/{[^/t/r/n}]+/}"
เสร็จสิ้น = m_regexp.replace (เนื้อหา, "")
กรณี "ความคิดเห็น"
m_regexp.pattern = "/{([^/t/r/n}]+)/}"
เสร็จสิ้น = m_regexp.replace (เนื้อหา " -
caseelsefinish = เนื้อหา
endelect
endfunction
Publicsubp (byvalname)
ifnotm_valuelist.exists (ชื่อ) Thenshowerror ("不存在的标记" & Name)
Response.write (เสร็จสิ้น (m_valuelist.item (ชื่อ)))))
enddub
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" '输出 out 的内容
setKkt = ไม่มีอะไร '销毁模板对象
-
执行后输出为：
祝贺！你赢了一辆红色的法拉利！
2) 循环块演示例子
模板文件 mytemple2.tpl：
| 下面的动物您喜欢哪一种 |
| {สัตว์} |
ASP 代码：
Dimanimal, Kkt, I
Animal = Array ("小猪", "小狗", "小强")
setkkt = newkkttemplate
kkt.set_file "hndkkttemp", "mytemple2.tpl"
kkt.set_block "hndkkttemp", "animallist", "list"
fori = 0toubound (สัตว์)
kkt.set_var "สัตว์", สัตว์ (i), เท็จ
kkt.parse "list", "animallist", true
ต่อไป
kkt.parse "out", "hndkkttemp", false
kkt.p "out"
setKkt = ไม่มีอะไร
-
执行结果：
| 下面的动物您喜欢哪一种 |
| 小猪 |
| 小狗 |
| 小强 |
3) 嵌套块演示
模板文件 mytemple3.tpl：
| {myName} 测试 |
| 我的动植物园： |
| {สัตว์} |
| {ปลูก} |
ASP 代码：
dimmy_color, kkt, myname, สัตว์, พืช
setkkt = newkkttemplate
myName = "kkttemplateblocktest ... "
Animal = Array ("动物", "植物")
plant = 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 (สัตว์)
kkt.set_var "สัตว์", สัตว์ (i), เท็จ
kkt.unset_var "p"
'kkt.set_var "p", "", false
forj = 0toubound (พืช (i))
kkt.set_var "พืช", พืช (i) (j), เท็จ
kkt.parse "p", "plantlist", จริง
ต่อไป
kkt.parse "a", "animallist", จริง
ต่อไป
kkt.parse "out", "hndkkttemp", false
kkt.p "out"
-
执行结果：
| kkttemplateblocktest ... 测试 |
| 我的动植物园： |
| 动物 |
| 小猪 |
| 小白 |
| 小强 |
| 植物 |
| 玫瑰 |
| 向日葵 |
4 、小结
本文主要介绍了基于 asp 利用模板类实现代码与页面分离的方法， 当然还有其它更好的解决方案。本文旨在抛砖引玉各位读者、 เว็บ开发参与进来， 多提宝贵意见， 多作交流，， 同进步！同进步！