解析标签出错,速度帮忙看下。。

'========================================= 文章

Function ArtList(Num,TxT,FDate,ClassId)

Dim oSQL,oRs,outStr

outStr = ""

oSQL = "Select Top "&Num&" Article_id,Article_title,Article_date,Article_count from Article Where 1 =1 "

If ClassId <> "" Then

  oSQL = oSQL &" And cat_id = "&ClassId&""

End If

oSQL = oSQL &" order by Article_id desc"

Set oRs = Conn.Execute(oSQL)

If (oRs.EOF And oRs.BOF) Then

  outStr = outStr &"<li>当前还没有添加文章!</li>" & vbCrLf

Else

  ArrArt = oRs.GetRows()

  For i = 0 To Ubound(ArrArt,2)

   outStr = outStr &"<li><span>"&FormatDate(ArrArt(2,i),FDate)&"</span><a title=""文章标题："&ArrArt(1,i)&"
发布时间："&formatdate(ArrArt(2,i),2)&"
浏览次数："&ArrArt(3,i)&""" href=""Article/ShowArticle.asp?id="&ArrArt(0,i)&""" target=""_blank"">"&gotTopic(ArrArt(1,i),TxT)&"</a></li>" & vbCrLf

  Next

End If

Set oRs = Nothing

ArtList = outStr

End Function

Function ReplaceLabel(strHtml)

    Dim regEx, Match, Matches

    Set regEx = New RegExp

    regEx.IgnoreCase = True

    regEx.Global = True

    regEx.MultiLine = True

    regEx.Pattern = "\{\$ArtList\((.*?)\)\}"

    Set Matches = regEx.Execute(strHtml)

    For Each Match In Matches

        arrTemp = Split(Match.SubMatches(0), ",")

        If UBound(arrTemp) + 1 < 4 Then

            strTemp = "函数式标签：{$ArtList(参数列表)}的参数个数不对。请检查模板中的此标签。"

        Else

            strTemp = ArtList(arrTemp(0), arrTemp(1), arrTemp(2), arrTemp(3))

        End If

        strHtml = Replace(strHtml, Match.value, strTemp)

    Next

    Set Matches = Nothing

    ReplaceLabel = strHtml

End Function