文章列表类别

dStr = 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.Articleid DESC"
strHits = "DayHits"
Case 2
foundsql = foundsql & " ORDER BY A.WeekHits DESC ,A.Articleid DESC"
strHits = "WeekHits"
Case 3
foundsql = foundsql & " ORDER BY A.MonthHits DESC ,A.Articleid DESC"
strHits = "MonthHits"
Case 4
foundsql = foundsql & " And A.isBest>0 ORDER BY A.AllHits DESC ,A.Articleid DESC"
strHits = "AllHits"
Case Else
foundsql = foundsql & "ORDER BY A.AllHits DESC ,A.Articleid DESC"
strHits = "AllHits"
End Select
SQL = " A.ArticleID,A.ClassID,A.ColorMode,A.FontMode,A.title,A.BriefTopic,A.AllHits,A.WriteTime,A.HtmlFileDate,A.isBest,A.DayHits,A.WeekHits,A.MonthHits,"
SQL = "SELECT TOP " & CInt(maxline) & SQL & " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir FROM [NC_Article] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID=" & chanid & " " & foundsql
Set Rs = Newasp.Execute(SQL)
i = 0
strContent = ""
If Rs.BOF And Rs.EOF Then
strContent = "还没有找到任何软件！"
Else
Do While Not Rs.EOF
If Trim(styles) <> "" And Trim(styles) <> "0" Then
If (i Mod 2) = 0 Then
divstyle = " class=""" & Trim(styles) & "1"""
Else
divstyle = " class=""" & Trim(styles) & "2"""
End If
End If
NewsTitle = Newasp.GotTopic(Rs("title"), CInt(maxlen))
NewsTitle = Newasp.ReadFontMode(NewsTitle, Rs("ColorMode"), Rs("FontMode"))
HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("ArticleID"), 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("ArticleID")
End If
If CInt(showhits) > 0 Then
AllHits = Rs(strHits)
Else
AllHits = ""
End If
ArticleTitle = "<div" & divstyle & ">" & start & " <a href=""" & HtmlFileUrl & """ target=""" & target & """ title=""" & Newasp.ChannelModule & "标题：" & Rs("title") & " 发布时间：" & Rs("WriteTime") & " 阅览次数：" & Rs("AllHits") & """ class=popular>" & NewsTi