在內(nèi)容系統(tǒng)開(kāi)發(fā)中，涉及內(nèi)容和形式分離的過(guò)程，也就是根據(jù)用戶自定義頁(yè)面模板然后替換成相關(guān)內(nèi)容的過(guò)程。這和外面很多整站的內(nèi)容管理系統(tǒng)，有本質(zhì)上的區(qū)別。有不少內(nèi)容管理系統(tǒng)，多少人用，都是一個(gè)樣子，因?yàn)轫?yè)面無(wú)法自定義，不懂編程的用戶無(wú)法修改。象那種，只填幾個(gè)參數(shù)就出來(lái)的網(wǎng)站，我估計(jì)是沒(méi)有什么前途的。因?yàn)槿巳硕际且粋€(gè)樣子，人人都是會(huì)填那些參數(shù)的。
舉個(gè)例子，你查看一下以下幾個(gè)站點(diǎn)，你會(huì)認(rèn)為他們是一套程序嗎？
www.blueidea.com
http://pages.blueidea.com
http://digi.blueidea.com
http://dsp.blueidea.com
http://www.dcshooter.com
如果我告訴你，他們都是一個(gè)程序，只是由相關(guān)的站長(zhǎng)，設(shè)計(jì)不同的模板得到的頁(yè)面顯示，你就會(huì)發(fā)現(xiàn)，這個(gè)系統(tǒng)的優(yōu)良性。
當(dāng)然由于這套系統(tǒng)的高端性，目前普通用戶無(wú)法使用，于是我開(kāi)發(fā)了我自己的內(nèi)容管理系統(tǒng) kiss 內(nèi)容管理系統(tǒng)。
而要給用戶一個(gè)模板系統(tǒng)，首先，就是要有一個(gè)簡(jiǎn)單易懂的標(biāo)記系統(tǒng)。大家看看下面的代碼，看是否容易理解：
tag:loop channelid="1" pagesize="10" title="20" type="NEW" column="1">
略有HTML經(jīng)驗(yàn)的人，就知道，這是一個(gè)模板標(biāo)記里的循環(huán)標(biāo)記，因?yàn)檫@是最常用的，你看我們網(wǎng)站的首頁(yè)，列出10條文檔也就只需要寫(xiě)一個(gè)這樣的標(biāo)記就完成了，這是不是讓不明白編程的人，也很容易做出自己設(shè)計(jì)的頁(yè)面出來(lái)呢？
參數(shù)說(shuō)明：
channelid 為一個(gè)欄目的在數(shù)據(jù)庫(kù)中的ID
pagesize 為列舉多少個(gè)文檔
title 為標(biāo)題的長(zhǎng)度
type 為列表列型，這里的”NEW”我們?cè)O(shè)定為最新的文檔
column 為顯示幾列
以上介紹是給不會(huì)編程，或者對(duì)不了解內(nèi)容系統(tǒng)的人做個(gè)普及，并且給我的內(nèi)容管理系統(tǒng)打個(gè)廣告，而且我想說(shuō)的是，藍(lán)色理想站點(diǎn)用的內(nèi)容管理系統(tǒng)模板模塊，要比我的強(qiáng)大很多。
下面輪到程序員了，其它人可以不用往下看。
那么怎么把它們的值讀出來(lái)呢？
下面這個(gè)函數(shù)是最后的，用來(lái)解析所有模板的內(nèi)容
復(fù)制代碼 代碼如下:
'【功能】自定義模板標(biāo)簽
Function ProcessCustomTags(ByVal sContent)
Dim objRegEx, Match, Matches
'建立正則表達(dá)式
Set objRegEx = New RegExp
'查找內(nèi)容
objRegEx.Pattern = "tag:.*/>"
'忽略大小寫(xiě)
objRegEx.IgnoreCase = True
'全局查找
objRegEx.Global = True
'Run the search against the content string we've been passed
Set Matches = objRegEx.Execute(sContent)
'循環(huán)已發(fā)現(xiàn)的匹配
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
'消毀對(duì)象
set Matches = nothing
set objRegEx = nothing
'返回值
ProcessCustomTags = sContent
End Function
在上面的代碼中，用到了正則表達(dá)式，如果你對(duì)它還不是很了解，請(qǐng)參閱相關(guān)資料，這里就不詳細(xì)介紹了。
那么怎么取出參數(shù)值呢，也是一個(gè)函數(shù):代碼拷貝框
復(fù)制代碼 代碼如下:
'【功能】取得模板標(biāo)簽的參數(shù)名
'如：tag:loop channelid="1" pagesize="10" title="20" type="NEW" column="1">
function GetAttribute(ByVal strAttribute, ByVal strTag)
Dim objRegEx, Matches
'建立正則表達(dá)式
Set objRegEx = New RegExp
'查找內(nèi)容 (the attribute name followed by double quotes etc)
objRegEx.Pattern = lCase(strAttribute) "=""[0-9a-zA-Z]*"""
'忽略大小寫(xiě)
objRegEx.IgnoreCase = True
'全局查找
objRegEx.Global = True
'執(zhí)行搜索
Set Matches = objRegEx.Execute(strTag)
'如有匹配的則返回值, 不然返回空值
if Matches.Count > 0 then
GetAttribute = Split(Matches(0).Value,"""")(1)
else
GetAttribute = ""
end if
'消毀對(duì)象
set Matches = nothing
set objRegEx = nothing
end function
OK好了，那怎么解析像上面tagloop:>內(nèi)容呢？
下面就是一個(gè)函數(shù)：
復(fù)制代碼 代碼如下:
'【功能】解析并替換相應(yīng)的模板標(biāo)簽內(nèi)容
function ParseTag(ByVal strTag)
dim arrResult, ClassName, arrAttributes, sTemp, i, objClass
'如果標(biāo)簽是空的則退出函數(shù)
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是一個(gè)類(lèi)，這里也不再詳說(shuō)了。因?yàn)楹镁脹](méi)有說(shuō)話了，不太習(xí)慣，呵呵。
結(jié)論，通過(guò)上面的函數(shù)，你可以很快的編寫(xiě)相關(guān)的模板程序了。希望對(duì)你有幫助。
