文章列表类别(23)

        ReadAnnounceContent = strTemp
    End Function
    '================================================
    '函数名：LoadAnnounceList
    '作  用：装载公告列表
    '参  数：maxnum ----最多公告数
    '        maxlen ----字符长度
    '        newindow ----是否新窗口打开 1=是，0=否
    '        showdate ----是否显示时间 1=是，0=否
    '        DateMode ----时间模式
    '        showtree ----树型显示
    '================================================
    Public Function LoadAnnounceList(ByVal ChannelID, ByVal maxnum, ByVal maxlen, _
        ByVal newindow, ByVal showdate, ByVal DateMode, ByVal showtree)

        Dim Rs, SQL, strContent
        Dim AnnounceTopic, LinkTarget
        Dim PostTime

        ChannelID = Newasp.ChkNumeric(ChannelID)
        maxnum = Newasp.ChkNumeric(maxnum)
        If maxnum = 0 Then maxnum = 10

        On Error Resume Next
        Set Rs = Newasp.Execute("SELECT TOP " & CInt(maxnum) & " AnnounceID,title,Content,PostTime,writer,hits FROM NC_Announce WHERE (ChannelID=" & ChannelID & " Or ChannelID=999) And AnnounceType<>1 ORDER BY PostTime DESC,AnnounceID DESC")
        If Rs.BOF And Rs.EOF Then
            LoadAnnounceList = ""
            Set Rs = Nothing
            Exit Function
        Else
            Do While Not Rs.EOF
                If CInt(newindow) <> 0 Then