文章列表类别(39)

        End If
        If CLng(SpecialID) <> 0 Then
            foundstr = "And A.SpecialID =" & CLng(SpecialID) & " " & foundstr
        End If
        SQL = " A.flashid,A.ClassID,A.title,A.AllHits,A.addTime,A.HtmlFileDate,A.isBest,A.miniature,"
        SQL = "SELECT TOP " & CInt(TopNum) & SQL & " C.ClassName,C.HtmlFileDir,C.UseHtml FROM [NC_FlashList] A INNER JOIN [NC_Classify] C On A.ClassID=C.ClassID WHERE A.isAccept>0 And A.miniature<>'' And A.ChannelID=" & ChannelID & " " & foundstr & ""
        Set Rs = Newasp.Execute(SQL)
        If Rs.BOF And Rs.EOF Then
            strContent = "<img src='" & Newasp.InstallDir & "images/no_pic.gif' width=" & width & " height=" & height & " border=0>"
        Else
            strContent = "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""3"">" & vbCrLf
            Do While Not Rs.EOF
                strContent = strContent & "<tr>" & vbCrLf
                For i = 1 To CInt(PerRowNum)
                    strContent = strContent & "<td align=""center"" class=""imagelist"">"
                    If Not Rs.EOF Then
                        strtitle = Newasp.GotTopic(Rs("title"), CInt(strLen))
                        miniature = Newasp.GetImageUrl(Rs("miniature"), Newasp.ChannelData(1))