巅云智能建站平台搭建版(创业门户版)火爆上线,终身授权!新增:文章智能采集+全站真静态打包+城市分站+智能小程序+非法词过滤+H5自适应+智能链词等功能功能详情
建站专提News

高端网站建设-浅谈 ASP 模板技术之参数传递

一佰互联网站开发设计(www.yinxi.net) 发布日期 2019-04-15 09:38:37 浏览数: 150

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

 

当然由于这套系统的高端性,目前普通用户无法使用,于是我开发了我自己的内容管理系统 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

 

高端网站建设价格套餐:

500元成品模板网站套餐1000元基础型网站套餐1800元标准定制设计套餐2800元精美定制设计套餐3800-8000元商务型套餐行业门户型套餐其它定制套餐 文章由重庆一佰互联高端网站建设http://www.yinxi.net编辑整理,转载请注明出处

一佰互联是全国知名建站品牌服务商,我们有九年网站建设、网站制作、网页设计、php开发和域名注册及虚拟主机服务经验,提供的自助建站服务更是全国有名。近年来还整合团队优势自主开发了可视化多用户”巅云建站系统“3.0平台版,拖拽排版网站制作设计,轻松实现pc站、手机微网站、小程序、APP一体化全网营销网站建设 ,已成功的为全国上百家网络公司提供自助建站平台搭建服务。

相关新闻more

29
05月
网站空间购买租用哪个好?域名空间多少钱一年?

做网站都应该买一个空间也叫虚拟主机和一个顶级域名。选择合适的主机空间非常重要,好的空间直接关系到网站的日常使用和未来的发展,那么网站空间购买... >>详情

04
04月
触控2.0交互引领智能驾驶舱革命

简介:汽车智能化最重要的两大变现路径,一是驾驶自动化,二是交互触控化,前者基于人工智能,后者基于混合智能。业界将汽车自动化划分为五个级别:驾... >>详情

01
05月
如何在PHP程序中防止盗链

example: 页面:dl.php ---------------------------------------------------... >>详情

17
05月
让免费流量拯救你的店铺_巅云建站

一、淘宝搜索排名影响因素小林 排序主要有综合排序(也就是之前的默认排序)、按人气排序、按销量排序,这三个是目前淘宝中最集中的3个排序,也就是... >>详情

高端网站建设

美工兼顾SEO,为企业电子商务营销助力!

电话:

023-85725751
建站

产品

域名注册 虚拟主机 云服务器 企业邮局
智能建站 APP打包 微站/小程序 创业平台
网站推广 媒体营销 智能采集 AI机器人
400电话 短信营销 店销机器人
私人定制 门户网站