文章列表类别(58)

        ByVal showclass, ByVal showdate, ByVal dateformat)

        Dim Rs, SQL, i, strContent, foundstr
        Dim ChildStr, HtmlFileUrl, HtmlFileName, strPicture
        Dim SoftTopic, ClassName, softname, SoftTime

        chanid = Newasp.ChkNumeric(chanid)
        ClassID = Newasp.ChkNumeric(ClassID)
        specid = Newasp.ChkNumeric(specid)
        stype = Newasp.ChkNumeric(stype)

        On Error Resume Next
        Newasp.LoadChannel(chanid)

        If CInt(stype) >= 3 And CLng(ClassID) <> 0 Then
            SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID = " & chanid & " And ClassID = " & ClassID
            Set Rs = Newasp.Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Set Rs = Nothing
                SoftPictureAndText = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
            End If
            Rs.Close
        Else
            ChildStr = "0"
        End If
        Select Case CInt(stype)
            Case 0: foundstr = "ORDER BY A.SoftTime DESC ,A.softid DESC"
            Case 1: foundstr = "And A.isBest > 0 ORDER BY A.SoftTime DESC ,A.softid DESC"