繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 浅谈 ASP 模板技术之参数传递
- ASP
- ASP六大对象介绍
- 使用Filter实现信息的二次检索
- 让弹出窗口变得“听话”一些
- 在ASP中利用“正则表达式” 对象实现UBB风格的论坛
- “Web 匿名用户”帐户密码的位置
- 对一些编程初学者的良言警句
- ASP编程中15个非常有用的例子
- 精彩:ASP遗留的二十大积习
- 关于Asp代码与页面的分离
- 教大家如何利用ASP打造网站论坛DIY(1)
- 教大家如何利用ASP打造网站论坛DIY(2)
- 网站安全：防范ASP木马的十大基本原则
- 用ASP设计一个留言薄
- 趣味访客计数器设计两则
- 我的ASP之旅—二级联动菜单制作
- ASP编程--新手上路篇：ASP技术简介
- 用ASP实现网上考试系统
- 请注意！常见的ASP脚本攻击及防范技巧
- ASP开发的WAP格式简易邮件系统实例
- asp基础教程：网页间数据传递方法小结
浅谈 ASP 模板技术之参数传递
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 45 ::
收藏到网摘: n/a
在内容系统开发中，涉及内容和形式分离的过程，也就是根据用户自定义页面模板然后替换成相关内容的过程。这和外面很多整站的内容管理系统，有本质上的区别。有不少内容管理系统，多少人用，都是一个样子，因为页面无法自定义，不懂编程的用户无法修改。象那种，只填几个参数就出来的网站，我估计是没有什么前途的。因为人人都是一个样子，人人都是会填那些参数的。
举个例子，你查看一下以下几个站点，你会认为他们是一套程序吗？
www.blueidea.com
http://pages.blueidea.com
http://digi.blueidea.com
http://dsp.blueidea.com
http://www.dcshooter.com
如果我告诉你，他们都是一个程序，只是由相关的站长，设计不同的模板得到的页面显示，你就会发现，这个系统的优良性。
当然由于这套系统的高端性，目前普通用户无法使用，于是我开发了我自己的内容管理系统 kiss 内容管理系统。
而要给用户一个模板系统，首先，就是要有一个简单易懂的标记系统。大家看看下面的代码，看是否容易理解：
<tag:loop channelid="1" pagesize="10" title="20" type="NEW" column="1">
略有HTML经验的人，就知道，这是一个模板标记里的循环标记，因为这是最常用的，你看我们网站的首页，列出10条文档也就只需要写一个这样的标记就完成了，这是不是让不明白编程的人，也很容易做出自己设计的页面出来呢？
参数说明：
channelid 为一个栏目的在数据库中的ID
pagesize 为列举多少个文档
title 为标题的长度
type 为列表列型，这里的”NEW”我们设定为最新的文档
column 为显示几列
以上介绍是给不会编程，或者对不了解内容系统的人做个普及，并且给我的内容管理系统打个广告，而且我想说的是，蓝色理想站点用的内容管理系统模板模块，要比我的强大很多。
下面轮到程序员了，其它人可以不用往下看。
那么怎么把它们的值读出来呢？
下面这个函数是最后的，用来解析所有模板的内容
'【功能】自定义模板标签
Function ProcessCustomTags(ByVal sContent)
Dim objRegEx, Match, Matches
'建立正则表达式
Set objRegEx = New RegExp
'查找内容
objRegEx.Pattern = "<tag:.*/>"
'忽略大小写
objRegEx.IgnoreCase = True
'全局查找
objRegEx.Global = True
'Run the search against the content string we've been passed
Set Matches = objRegEx.Execute(sContent)
'循环已发现的匹配
For Each Match in Matches
'Replace each match with the appropriate HTML from our ParseTag function
sContent = Replace(sContent, Match.Value, ParseTag(Match.Value))
Next
'消毁对象
set Matches = nothing
set objRegEx = nothing
'返回值
ProcessCustomTags = sContent
End Function
那么怎么取出参数值呢，也是一个函数:代码拷贝框
'【功能】取得模板标签的参数名
'如：<tag:loop channelid="1" pagesize="10" title="20" type="NEW" column="1">
function GetAttribute(ByVal strAttribute, ByVal strTag)
Dim objRegEx, Matches
'建立正则表达式
Set objRegEx = New RegExp
'查找内容 (the attribute name followed by double quotes etc)
objRegEx.Pattern = lCase(strAttribute) & "=""[0-9a-zA-Z]*"""
'忽略大小写
objRegEx.IgnoreCase = True
'全局查找
objRegEx.Global = True
'执行搜索
Set Matches = objRegEx.Execute(strTag)
'如有匹配的则返回值, 不然返回空值
if Matches.Count > 0 then
GetAttribute = Split(Matches(0).Value,"""")(1)
else
GetAttribute = ""
end if
'消毁对象
set Matches = nothing
set objRegEx = nothing
end function
OK好了，那怎么解析像上面<tagloop:>内容呢？
下面就是一个函数：
'【功能】解析并替换相应的模板标签内容
function ParseTag(ByVal strTag)
dim arrResult, ClassName, arrAttributes, sTemp, i, objClass
'如果标签是空的则退出函数
if len(strTag) = 0 then exit function
'Split the match on the colon character (:)
arrResult = Split(strTag, ":")
'Split the second item of the resulting array on the space character, to
'retrieve the name of the class
ClassName = Split(arrResult(1), " ")(0)
'Use a select case statement to work out which class we're dealing with
'and therefore which properties to populate etc
select case uCase(ClassName)
'It's a loop class, so instantiate one and get it's properties
case "LOOP"
set objClass = new LOOP_Class
LOOP.Channelid= GetAttribute("channelid", strTag")
LOOP.Pagesize= GetAttribute("pagesize", strTag")
LOOP.title = GetAttribute("title", strTag")
LOOP.type = GetAttribute("Type", strTag")
ParseTag = LOOP.column (GetAttribute("column", strTag"), true)
'Destroy our class object
set objClass = nothing
end select
end function
上面的loop是一个类，这里也不再详说了。因为好久没有说话了，不太习惯，呵呵。
结论，通过上面的函数，你可以很快的编写相关的模板程序了。希望对你有帮助。
评论 (0) All
