文章列表类别(44)

            strOrder = "And isIndex > 0 Order By LinkName Desc,LinkID Desc"
        ElseIf CInt(orders) = 9 Then
            '-- 所有按名称排列
            strOrder = "Order By LinkName Desc,LinkID Desc"
        Else
            '-- 首页显示按时间降序排列
            strOrder = "And isIndex > 0 Order By LinkTime Asc,LinkID Asc"
        End If
        If CInt(isLogo) = 1 Or CInt(isLogo) = 3 Then
            SQL = "Select Top " & CInt(TopNum) & " LinkID,LinkName,LinkUrl,LogoUrl,Readme,LinkHist,isLogo from [NC_Link] where isLock = 0 And isLogo > 0 " & strOrder & ""
        Else
            SQL = "Select Top " & CInt(TopNum) & " LinkID,LinkName,LinkUrl,LogoUrl,Readme,LinkHist,isLogo from [NC_Link] where isLock = 0 And isLogo = 0 " & strOrder & ""
        End If
        Set Rs = Newasp.Execute(SQL)
        If Not (Rs.BOF And Rs.EOF) Then
            strContent = "<table width=""100%"" border=0 cellpadding=1 cellspacing=3 class=FriendLink1>" & vbCrLf
            Do While Not Rs.EOF
                strContent = strContent & "<tr>" & vbCrLf
                For i = 1 To CInt(PerRowNum)
                    strContent = strContent & "<td align=center class=FriendLink2>"
                    If Not Rs.EOF Then