文章列表类别(21)

            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFlashList(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFlashList(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadFlashList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10)))
            Next
        End If
        ReadFlashList = strTemp
    End Function
    '================================================
    '函数名：LoadAnnounceContent
    '作  用：装载内容公告
    '参  数：str ----原字符串
    '================================================
    Public Function LoadAnnounceContent(ByVal sTopic, ByVal ChannelID)
        Dim SQL, Rs, strTemp
        strTemp = ""
        sTopic = Newasp.CheckStr(sTopic)
        If sTopic <> "" And sTopic <> "0" Then
            SQL = "Select AnnounceID,Content,PostTime,writer From NC_Announce where AnnounceType=1 And title = '" & sTopic & "' Order By PostTime Desc,AnnounceID Desc"
        Else
            SQL = "Select AnnounceID,Content From NC_Announce where AnnounceType=1 And ChannelID in (" & ChannelID & ",999) Order By PostTime Desc,AnnounceID Desc"