文章列表类别(34)

            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
                        strSoftName = Newasp.GotTopic(Rs("SoftName") & " " & Rs("SoftVer"), CInt(strLen))
                        SoftImage = Newasp.GetImageUrl(Rs("SoftImage"), Newasp.ChannelData(1))
                        SoftImage = Newasp.GetFlashAndPic(SoftImage, height, width)
                        HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("SoftID"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
                        If CInt(Newasp.ChannelUseHtml) <> 0 Then
                            HtmlFileUrl = Newasp.ChannelPath & Rs("HtmlFileDir") & Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath) & HtmlFileName
                        Else
                            HtmlFileUrl = Newasp.ChannelPath & "show.asp?id=" & Rs("SoftID")
                        End If
                        If CInt(newindow) <> 0 Then