文章列表类别(24)

                    LinkTarget = " target=""_blank"""
                Else
                    LinkTarget = ""
                End If
                If CInt(showdate) <> 0 Then
                    PostTime = Newasp.ShowDateTime(Rs("PostTime"), CInt(DateMode))
                Else
                    PostTime = ""
                End If
                AnnounceTopic = Newasp.GotTopic(Rs("title"), CInt(maxlen))
                AnnounceTopic = "<a href=""" & Newasp.InstallDir & "Announce.Asp?AnnounceID=" & Rs("AnnounceID") & """ title=""" & Rs("title") & """" & LinkTarget & ">" & AnnounceTopic & "</a>"
                If CInt(showtree) = 1 Then
                    strContent = strContent & "<div>· " & AnnounceTopic & "</div><div align=""right"" class=""dottedline"">" & PostTime & "</div>" & vbNewLine
                Else
                    strContent = strContent & "· " & AnnounceTopic & "  " & PostTime & vbNewLine
                End If
                Rs.MoveNext
            Loop
        End If