文章列表类别(69)


        Dim NewsTitle, AllHits, strSoftName
        Dim divstyle

        chanid = Newasp.ChkNumeric(chanid)
        ClassID = Newasp.ChkNumeric(ClassID)
        stype = Newasp.ChkNumeric(stype)
        If chanid = 0 Then chanid = 1

        On Error Resume Next
        Newasp.LoadChannel(chanid)

        If CLng(ClassID) > 0 And Trim(ClassID) <> "" 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
                LoadPopularSoft = ""
                Exit Function
            Else
                ChildStr = Rs("ChildStr")
                foundsql = "And A.ClassID in (" & ChildStr & ")"
            End If
            Rs.Close
        Else
            ChildStr = "0"
            foundsql = ""
        End If

        Select Case CInt(stype)
        Case 1
            foundsql = foundsql & " ORDER BY A.DayHits DESC ,A.softid DESC"
            strHits = "DayHits"

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3583.html