文章列表类别(61)

                End If
                If CInt(showdate) = 1 Then
                    SoftTime = Newasp.ShowDateTime(Rs("SoftTime"), CInt(dateformat))
                Else
                    SoftTime = ""
                End If
                softname = "<div " & divcss & ">" & start & ClassName & " <a href=""" & HtmlFileUrl & """ target=""" & target & """ title=""" & Newasp.ChannelModule & "标题：" & Rs("SoftName") & " " & Rs("SoftVer") & " 发布时间：" & Rs("SoftTime") & " 阅览次数：" & Rs("AllHits") & """ class=showlist>" & SoftTopic & "</a>  " & SoftTime & "</div>"
                strContent = strContent & softname
                Rs.MoveNext
                i = i + 1
            Loop
        End If
        Rs.Close: Set Rs = Nothing
        Dim sExtName, ExtName, SoftImage
        If CInt(showpic) = 1 Then
            SQL = " A.softid,A.ClassID,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.SoftImage,"
            SQL = "SELECT " & SQL & " C.HtmlFileDir,B.ChannelDir,B.ModuleName,B.BindDomain,B.DomainName,B.IsCreateHtml,B.HtmlExtName,B.HtmlPath,B.HtmlForm,B.HtmlPrefix,B.LeastHotHist FROM ([NC_SoftList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID) INNER JOIN [NC_Channel] B On A.ChannelID=B.ChannelID WHERE A.isAccept>0 And A.ChannelID=" & CInt(chanid) & " And A.SoftImage<>'' " & foundstr & ""