文章列表类别(65)

    '        maxlen ----字符长度
    '        newindow ----是否新窗口打开 1=是，0=否
    '        showdate ----是否显示时间 1=是，0=否
    '        DateMode ----时间模式
    '        styles ----风格名称
    '================================================
    Public Function LoadGuestList(ByVal maxnum, ByVal maxlen, ByVal newindow, _
        ByVal showdate, ByVal DateMode, ByVal styles)

        Dim Rs, SQL, strContent
        Dim i, ListStyle, GuestTopic, LinkTarget
        Dim WriteTime, lastime, GuestTitle,strChannelDir

        On Error Resume Next
        Set Rs = Newasp.Execute("SELECT TOP " & CInt(maxnum) & " guestid,Topicformat,title,username,WriteTime,lastime,ReplyNum FROM NC_GuestBook WHERE isAccept>0 ORDER BY isTop DESC,lastime DESC,guestid DESC")
        If Rs.BOF And Rs.EOF Then
            LoadGuestList = "没有任何留言!"
            Set Rs = Nothing
            Exit Function
        Else
            i = 0
            strContent = "<table width=""100%"" border=0 cellpadding=2 cellspacing=0>"
            strChannelDir = Newasp.GetChannelDir(4)
            Do While Not Rs.EOF
                If (i Mod 2) = 0 Then
                    ListStyle = Trim(styles) & 1
                Else