在内容系统开发中，涉及内容和形式分离的过程，也就是根据用户自定义页面模板然后替换成相关内容的过程。这和外面很多整站的内容管理系统，有本质上的区别。有不少内容管理系统，多少人用，都是一个样子，因为页面无法自定义，不懂编程的用户无法修改。象那种，只填几个参数就出来的网站，我估计是没有什么前途的。因为人人都是一个样子，人人都是会填那些参数的。

　　举个例子，你查看一下以下几个站点，你会认为他们是一套程序吗？
www.blueidea.com
http://pages.blueidea.com
http://digi.blueidea.com
http://wuyi.digichina.net
http://www.dcshooter.com

　　如果我告诉你，他们都是一个程序，只是由相关的站长，设计不同的模板得到的页面显示，你就会发现，这个系统的优良性。

　　当然由于这套系统的高端性，目前普通用户无法使用，于是我开发了我自己的内容管理系统 kiss 内容管理系统。大家可以访问　http://aston.blueidea.com

　　而要给用户一个模板系统，首先，就是要有一个简单易懂的标记系统。大家看看下面的代码，看是否容易理解：
<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 = sContentEnd Function
[Ctrl+A 全部选择 然后拷贝]

　　在上面的代码中，用到了正则表达式，如果你对它还不是很了解，请参阅相关资料，这里就不详细介绍了。

　　那么怎么取出参数值呢，也是一个函数:
代码拷贝框
'【功能】取得模板标签的参数名'如：<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 = nothingend function
[Ctrl+A 全部选择 然后拷贝]

　　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 g <div class="clearfix"></div> </div> <nav aria-label="..."> <ul class="pager"> <li class="previous"><a href="55257">上一篇：Asp Base64 Unicode编码与解码函数 中文编码使用GB2312方式非UTF-8</a></li> <li class="next"><a href="24433">下一篇：详细讲解ASP脚本循环语句</a></li> </ul> </nav> <div class="alert alert-warning" role="alert"> <strong>免责声明：</strong> 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。 </div> <div class="panel panel-default"> <div class="panel-heading"> <h3 class="panel-title">相关资料<span><a target="_blank" class="pull-right" href="/asp/">更多></a></span></h3> </div> <div class="panel-body row"> <ol> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/30770' title='线程的处理(1)' target="_blank"> 线程的处理(1)</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/26689' title='亲密接触ASP.Net(5) DataBind数据核心' target="_blank"> 亲密接触ASP.Net(5) DataBind数据核心</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/53594' title=' 求教一个SQL语句？该如何解决 ' target="_blank"> 求教一个SQL语句？该如何解决 </a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/51234' title=' 多个字符+数字的自动编号,该怎么解决 ' target="_blank"> 多个字符+数字的自动编号,该怎么解决 </a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/27548' title='ASP首页模板篇' target="_blank"> ASP首页模板篇</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/52635' title=' 连续空格怎样视为一个空格呢？该如何解决 ' target="_blank"> 连续空格怎样视为一个空格呢？该如何解决 </a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/20602' title='利用ASP嵌套JS+SQL Server打造两级连动下拉框(一)' target="_blank"> 利用ASP嵌套JS+SQL Server打造两级连动下拉框(一)</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/24440' title='用asp自动解析网页中的图片地址' target="_blank"> 用asp自动解析网页中的图片地址</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/19954' title='ASP+全新接触（2）_ASP基础教程_ASP教程' target="_blank"> ASP+全新接触（2）_ASP基础教程_ASP教程</a></li></div> </ol> </div> </div> </div> <div class="col-lg-4 hidden-sm hidden-xs"> <!--右边的内容--> <a id="AdPageRight1_AdPageRight" href="http://www.tdyun.com/cloud/?aiyiweb" target="_blank"><img class="img-responsive" src="/images/TdPageAd/vps.png" alt="香港云服务器 免备案 云主机VPS 国内 独立IP 独享15M 月付SSD" /></a> <script src='/Scripts/AdContentPage300_1.js' language='javascript'></script> <script src='/Scripts/AdContentPage300_2.js' language='javascript'></script> <script src='/Scripts/AdContentPage300_3.js' language='javascript'></script> <div class="panel panel-default"> <div class="panel-heading"> <h3 class="panel-title">推荐阅读<span><a target="_blank" class="pull-right" href="/asp/">更多></a></span></h3> </div> <div class="panel-body"> <ol> <li class="articleAbout"><a href=/asp/46622 title=' @incolue org.apache.jasper.JasperException处置 ' target="_blank"> @incolue org.apache.jasper.JasperException处置 </a></li> <li class="articleAbout"><a href=/asp/26946 title='session变量中的数组如何引用' target="_blank"> session变量中的数组如何引用</a></li> <li class="articleAbout"><a href=/asp/53796 title=' 怎么达到第8条记录的时候退出循环 ' target="_blank"> 怎么达到第8条记录的时候退出循环 </a></li> <li class="articleAbout"><a href=/asp/22506 title='关于处理GET方式提交的含有特殊字符的参数' target="_blank"> 关于处理GET方式提交的含有特殊字符的参数</a></li> <li class="articleAbout"><a href=/asp/47067 title=' 求教asp网站?Title=“中文”网页无法正常打开有关问题怎么解决 ' target="_blank"> 求教asp网站?Title=“中文”网页无法正常打开有关问题怎么解决 </a></li> <li class="articleAbout"><a href=/asp/20360 title='用ASP为你的站点加密_ASP安全加密_ASP教程' target="_blank"> 用ASP为你的站点加密_ASP安全加密_ASP教程</a></li> <li class="articleAbout"><a href=/asp/44176 title=' asp.net中函数返回参数跟调用的实例！（超简单示例） ' target="_blank"> asp.net中函数返回参数跟调用的实例！（超简单示例） </a></li> <li class="articleAbout"><a href=/asp/48455 title=' 问503 就是Service Unavailable的转向,该如何解决 ' target="_blank"> 问503 就是Service Unavailable的转向,该如何解决 </a></li> <li class="articleAbout"><a href=/asp/24710 title='ASP中实现小偷程序的原理和简单示例' target="_blank"> ASP中实现小偷程序的原理和简单示例</a></li> <li class="articleAbout"><a href=/asp/20274 title='强迫输入密码对话框_ASP安全加密_ASP教程' target="_blank"> 强迫输入密码对话框_ASP安全加密_ASP教程</a></li> <li class="articleAbout"><a href=/asp/50900 title=' css达人进！解决思路 ' target="_blank"> css达人进！解决思路 </a></li> <li class="articleAbout"><a href=/asp/49854 title=' 问个简单的有关问题 ' target="_blank"> 问个简单的有关问题 </a></li> <li class="articleAbout"><a href=/asp/24694 title='解决IIS SMTP无法发信的故障' target="_blank"> 解决IIS SMTP无法发信的故障</a></li> <li class="articleAbout"><a href=/asp/54496 title=' 如何取出从上一页提交过来的全部URL呢 ' target="_blank"> 如何取出从上一页提交过来的全部URL呢 </a></li> <li class="articleAbout"><a href=/asp/45978 title=' 站内搜索搜索时有的关键词没有高亮解决办法 ' target="_blank"> 站内搜索搜索时有的关键词没有高亮解决办法 </a></li> <li class="articleAbout"><a href=/asp/30874 title='asp之字符串函数示例' target="_blank"> asp之字符串函数示例</a></li> <li class="articleAbout"><a href=/asp/31052 title='ASP入门教程 1小时ASP入门，非常简单' target="_blank"> ASP入门教程 1小时ASP入门，非常简单</a></li> <li class="articleAbout"><a href=/asp/24715 title='两级联动的select XML版' target="_blank"> 两级联动的select XML版</a></li> <li class="articleAbout"><a href=/asp/52333 title=' 【SQL Server BUG?】百思不得其解解决办法 ' target="_blank"> 【SQL Server BUG?】百思不得其解解决办法 </a></li> <li class="articleAbout"><a href=/asp/44431 title=' 页面跑步起来，请帮忙看看代码哪里有有关问题，多谢 ' target="_blank"> 页面跑步起来，请帮忙看看代码哪里有有关问题，多谢 </a></li> </ol> </div> </div> </div> </div> <div class="clearfix"></div> <footer class=" footer navbar-bottom"> <em>友情链接：</em> <a href="http://www.aiyiweb.com/" target="_blank">爱易网 </a> <a href="http://www.aiyiweb.com/" target="_blank">云虚拟主机技术 </a> <a href="http://www.aiyiweb.com/" target="_blank">云服务器技术 </a> <a href="http://www.aiyiweb.com/" target="_blank">程序设计技术 </a> <a href="http://www.aiyiweb.com/" target="_blank">开发网站 </a> <a href="http://www.aiyiweb.com/" target="_blank">APP开发教程 </a> <br /> <script type="text/javascript">(function(){document.write(unescape('%3Cdiv id="bdcs"%3E%3C/div%3E'));var bdcs = document.createElement('script');bdcs.type = 'text/javascript';bdcs.async = true;bdcs.src = 'http://znsv.baidu.com/customer_search/api/js?sid=15239353030108964139' + '&plate_url=' + encodeURIComponent(window.location.href) + '&t=' + Math.ceil(new Date()/3600000);var s = document.getElementsByTagName('script')[0];s.parentNode.insertBefore(bdcs, s);})();</script> Copyright © 2013-2024 爱易网页 当前在线：835人　 网站在1时9分4秒内访问总人数：31654人 当前 23.77% 　<a href="https://beian.miit.gov.cn" target="_blank">粤ICP备18100884号-2 </a> <script charset="UTF-8" id="LA_COLLECT" src="//sdk.51.la/js-sdk-pro.min.js"></script> <script>LA.init({ id: "JszEmKrtpbU59dY5", ck: "JszEmKrtpbU59dY5" })</script> </footer> </div> </body> </html>