asp模板技术
发布时间：2022-09-28 15:31:05 所属栏目：Asp教程 来源：
导读： 在内容系统开发中，涉及内容和形式分离的过程，也就是根据用户自定义页面模板然后替换成相关内容的过程。这和外面很多整站的内容管理系统，有本质上的区别。有不少内容管理系统， 多少人用， 都是一个样子， 因为
|
在内容系统开发中，涉及内容和形式分离的过程，也就是根据用户自定义页面模板然后替换成相关内容的过程。这和外面很多整站的内容管理系统，有本质上的区别。有不少内容管理系统， 多少人用， 都是一个样子， 因为页面无法自定义， 不懂编程的用户无法修改。 象那种，只填几个参数就出来的网站，我估计是没有什么前途的。因为人人都是一个样子，人人都是会填那些参数的。 举个例子，你查看一下以下几个站点，你会认为他们是一套程序吗？ http://pages.blueidea.com http://dsp.blueidea.com 如果我告诉你，他们都是一个程序，只是由相关的站长，设计不同的模板得到的页面显示，你就会发现，这个系统的优良性。 当然由于这套系统的高端性，目前普通用户无法使用，于是我开发了我自己的内容管理系统 kiss 内容管理系统。 而要给用户一个模板系统asp模板， 首先， 就是要有一个简单易懂的标记系统。 大家看看下面的代码，看是否容易理解： 略有 HTML 经验的人，就知道，这是一个模板标记里的循环标记，因为这是最常用的，你看我们网站的首页， 列出 10 条文档也就只需要写一个这样的标记就完成了， 这是不是让不明白编程的人，也很容易做出自己设计的页面出来呢？ 参数说明： channelid 为一个栏目的在数据库中的 ID pagesize 为列举多少个文档 title 为标题的长度 type 为列表列型，这里的”NEW”我们设定为最新的文档 column 为显示几列 以上介绍是给不会编程，或者对不了解内容系统的人做个普及，并且给我的内容管理系统打个广告，而且我想说的是，蓝色理想站点用的内容管理系统模板模块，要比我的强大很多。
下面轮到程序员了，其它人可以不用往下看。 那么怎么把它们的值读出来呢？ 下面这个函数是最后的，用来解析所有模板的内容 复制代码 代码如下: '【功能】自定义模板标签 Function ProcessCustomTags(ByVal sContent) Dim objRegEx, Match, Matches '建立正则表达式 Set objRegEx = New RegExp '查找内容 objRegEx.Pattern = "" '忽略大小写 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在上面的代码中，用到了正则表达式，如果你对它还不是很了解，请参阅相关资料，这里就不详细介绍了。
那么怎么取出参数值呢，也是一个函数:代码拷贝框 复制代码 代码如下: '【功能】取得模板标签的参数名 '如： 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 好了，那怎么解析像上面内容呢？ 下面就是一个函数： 复制代码 代码如下: '【功能】解析并替换相应的模板标签内容 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 是一个类，这里也不再详说了。因为好久没有说话了，不太习惯，呵呵。 结论，通过上面的函数，你可以很快的编写相关的模板程序了。希望对你有帮助。 （编辑：应用网_扬州站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
站长推荐
浙公网安备 33038102330458号