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

　　举个例子，你查看一下以下几个站点，你会认为他们是一套程序吗？
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/29263' title='昨天有人问如何用asp进行base64加密，这个就是' target="_blank"> 昨天有人问如何用asp进行base64加密，这个就是</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/22095' title='分页控制' target="_blank"> 分页控制</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/54036' title=' 简单有关问题，asp中sql语句的写法，求教 ' target="_blank"> 简单有关问题，asp中sql语句的写法，求教 </a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/53334' title=' 问个关于utf8编码的小疑点 ' target="_blank"> 问个关于utf8编码的小疑点 </a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/22439' title='VBScript 中使用对象（十一）' target="_blank"> VBScript 中使用对象（十一）</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/50937' title=' zxzgcnTop.mdb ?海洋木马,该怎么解决 ' target="_blank"> zxzgcnTop.mdb ?海洋木马,该怎么解决 </a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/22258' title='临时表操作的一些见解' target="_blank"> 临时表操作的一些见解</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/24646' title='用asp＋javascript实现动态数据联动，不刷新' target="_blank"> 用asp＋javascript实现动态数据联动，不刷新</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/asp/29445' title='面向对象软件开发的十大原则 (一)' target="_blank"> 面向对象软件开发的十大原则 (一)</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/54300 title=' 为什么这里不行呢解决办法 ' target="_blank"> 为什么这里不行呢解决办法 </a></li> <li class="articleAbout"><a href=/asp/28607 title='在DataGrid等控件中添加自动编号的列' target="_blank"> 在DataGrid等控件中添加自动编号的列</a></li> <li class="articleAbout"><a href=/asp/27915 title='各种运行期错误' target="_blank"> 各种运行期错误</a></li> <li class="articleAbout"><a href=/asp/25040 title='ASP有关记录排序的代码' target="_blank"> ASP有关记录排序的代码</a></li> <li class="articleAbout"><a href=/asp/50275 title=' ，高分，可以上传文件和支持数据录入的ASP代码。 ' target="_blank"> ，高分，可以上传文件和支持数据录入的ASP代码。 </a></li> <li class="articleAbout"><a href=/asp/55195 title=' 如何把rs(1)的值传递给form1.text.value ' target="_blank"> 如何把rs(1)的值传递给form1.text.value </a></li> <li class="articleAbout"><a href=/asp/46573 title=' asp.net中js跟jquery不同的调用ashx的方法 ' target="_blank"> asp.net中js跟jquery不同的调用ashx的方法 </a></li> <li class="articleAbout"><a href=/asp/54001 title=' 高分！IUSR权限怪有关问题？ ' target="_blank"> 高分！IUSR权限怪有关问题？ </a></li> <li class="articleAbout"><a href=/asp/49722 title=' asp获取动态表单元素的value值有关问题 ' target="_blank"> asp获取动态表单元素的value值有关问题 </a></li> <li class="articleAbout"><a href=/asp/29089 title='监测站点使用多少session和application的程序' target="_blank"> 监测站点使用多少session和application的程序</a></li> <li class="articleAbout"><a href=/asp/44457 title=' aspupload ，在winows server 2008 下无法使用.解决方法 ' target="_blank"> aspupload ，在winows server 2008 下无法使用.解决方法 </a></li> <li class="articleAbout"><a href=/asp/46041 title=' vs2010 装了几回了 还是出现这种情况 ' target="_blank"> vs2010 装了几回了 还是出现这种情况 </a></li> <li class="articleAbout"><a href=/asp/20196 title='改进 ASP 的字符串处理性能_ASP性能优化_ASP教程' target="_blank"> 改进 ASP 的字符串处理性能_ASP性能优化_ASP教程</a></li> <li class="articleAbout"><a href=/asp/49661 title=' 各位大侠帮帮忙 →(0x800A004C) 路径未找到解决方案 ' target="_blank"> 各位大侠帮帮忙 →(0x800A004C) 路径未找到解决方案 </a></li> <li class="articleAbout"><a href=/asp/52659 title=' ASP转型有关问题 ' target="_blank"> ASP转型有关问题 </a></li> <li class="articleAbout"><a href=/asp/53942 title=' 哪位高手有 ASPTODLL 破解版？ 急 ' target="_blank"> 哪位高手有 ASPTODLL 破解版？ 急 </a></li> <li class="articleAbout"><a href=/asp/25747 title='纯ASP上传图像文件到数据库的最佳例子' target="_blank"> 纯ASP上传图像文件到数据库的最佳例子</a></li> <li class="articleAbout"><a href=/asp/27562 title='如何在ASP中实现网络打印功能' target="_blank"> 如何在ASP中实现网络打印功能</a></li> <li class="articleAbout"><a href=/asp/28814 title='ASP开发中数据库文件调用(2)' target="_blank"> ASP开发中数据库文件调用(2)</a></li> <li class="articleAbout"><a href=/asp/52126 title=' Request 对象, ASP 0102 (0x80004005),该如何解决 ' target="_blank"> Request 对象, ASP 0102 (0x80004005),该如何解决 </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 爱易网页 当前在线：357人　 网站在40秒内访问总人数：357人 当前 35.29% 　<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>