文章列表类别(22)

        End If
        Set Rs = Newasp.Execute(SQL)
        If Not (Rs.BOF And Rs.EOF) Then
            strTemp = Rs("Content")
        End If
        Rs.Close: Set Rs = Nothing
        LoadAnnounceContent = strTemp
    End Function
    '================================================
    '函数名：ReadAnnounceContent
    '作  用：读取内容公告
    '参  数：str ----原字符串
    '================================================
    Public Function ReadAnnounceContent(ByVal str, ByVal ChannelID)
        Dim strTemp, i, sTempContent, nTempContent, strValue
        Dim arrTempContent, arrTempContents
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$AnnounceContent(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$AnnounceContent(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$AnnounceContent(", ")}", 0)
            If nTempContent = "" Then nTempContent = "0"
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                strValue = arrTempContent(i)
                strTemp = Replace(strTemp, arrTempContents(i), LoadAnnounceContent(strValue, ChannelID))
            Next
        End If