文章列表类别(66)

                    ListStyle = Trim(styles) & 2
                End If
                If CInt(newindow) <> 0 Then
                    LinkTarget = " target=""_blank"""
                Else
                    LinkTarget = ""
                End If
                If CInt(showdate) <> 0 Then
                    WriteTime = Newasp.ShowDateTime(Rs("WriteTime"), CInt(DateMode))
                    lastime = Newasp.ShowDateTime(Rs("lastime"), CInt(DateMode))
                Else
                    WriteTime = ""
                    lastime = ""
                End If
                GuestTitle = Newasp.HTMLEncode(Rs("title"))
                GuestTopic = "<span " & Rs("Topicformat") & ">" & Newasp.GotTopic(GuestTitle, CInt(maxlen)) & "</span>"
                GuestTopic = "<a href=""" & strChannelDir & "showreply.asp?guestid=" & Rs("guestid") & """ title=""主题：" & GuestTitle & " 时间：" & Rs("WriteTime") & " 作者：" & Newasp.HTMLEncode(Rs("username")) & """" & LinkTarget & ">" & GuestTopic & "</a>"
                strContent = strContent & Newasp.MainSetting(16)