如何增加一个系统标签

如何添加一个系统标签呢？按照上一节自定义标签解析的流程，我们可以添加自己制作的系统标签。

　　下面举个例子,增加一个标签{$ShowArticleContent(Article)}用来显示指定文章的内容

　　需要修改的文件是include文件夹里面的PowerEasy.Common.Front.asp文件.

1.首先在页面中加入添加判断是否存在这个标签的代码

'替换{$ShowArticleContent(Article)}标签

Dim strArtcileContent   
regEx.Pattern = "\{\$ShowArticleContent\((.*?)\)\}"
    Set Matches = regEx.Execute(strHtml)
    For Each Match In Matches
        arrTemp = Split(Match.SubMatches(0), ",") 
        If UBound(arrTemp) <> 0 Then
            strArtcileContent = "函数式标签：{$ShowArticleContent(参数列表)}的参数个数不对。请检查模板中的此标签。"
        Else
            strArtcileContent = GetAC(arrTemp(0)) 
        End If
        strHtml = Replace(strHtml, Match.value, strArtcileContent)
    Next

 这段代码可以加入2707行下面

在上面代码里面，我们是用GetAC()这个函数来获取指定文章ID的，关于这个函数的内容，我们在下面定义

2.加入GetAC()函数,用来获取指定id的文章内容

Function GetAC(ArticleID)
    Dim sqlAC,rsAC,TempAC
    sqlAC = "Select C.ChannelDir,C.UploadDir,A.Content from PE_Article A inner join PE_Channel C on A.ChannelID=C.ChannelID Where ArticleID = "&ArticleID
    Set rsAC = Conn.Execute(sqlAC)
    IF rsAC.BOf and rsAC.Eof then
     GetAC = "找不到指定文章"
  rsAC.Close
  Set rsAC = Nothing
  Exit Function
 Else
        TempAC = ReplaceKeyLink(ReplaceText(Replace(Replace(rsAC("Content") & "", "/Develop/", InstallDir&rsAC("ChannelDir") & "/"), "UploadFiles_1507", rsAC("UploadDir")), 1))
        TempAC = Replace(Replace(TempAC,"onmousewheel=""return bbimg(this)""", ""),"onload=resizepic(this)", "")
    End If
 rsAC.Close
 Set rsAC = Nothing
    GetAC = TempAC
End Function

这些代码可以加在287行下面

保存之后.在模版页中插入{$ShowArticleContent(参数)},参数是文章的id,就可以取出指定id文章的内容