文章列表类别

sql = "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.flashid DESC"
strHits = "DayHits"
Case 2
foundsql = foundsql & " ORDER BY A.WeekHits DESC ,A.flashid DESC"
strHits = "WeekHits"
Case 3
foundsql = foundsql & " ORDER BY A.MonthHits DESC ,A.flashid DESC"
strHits = "MonthHits"
Case 4
foundsql = foundsql & " And A.isBest>0 ORDER BY A.AllHits DESC ,A.flashid DESC"
strHits = "AllHits"
Case Else
foundsql = foundsql & "ORDER BY A.AllHits DESC ,A.flashid DESC"
strHits = "AllHits"
End Select
SQL = " A.flashid,A.ClassID,A.ColorMode,A.FontMode,A.title,A.AllHits,A.addTime,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_FlashList] 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("flashid"), 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("flashid")
End If
If CInt(showhits) > 0 Then
AllHits = Rs(strHits)
Else
AllHits = ""
End If
strtitle = "<div" & divstyle & ">" & start & " <a href=""" & HtmlFileUrl & """ target=""" & target & """ title=""" & Newasp.ChannelModule & "名称：" & Rs("title") & " 发布时间：" & Rs("addTime") & " 下载总数：" & Rs("AllHits") & """ class=popular>" & NewsTitle & "</a> " & AllHits & "</div>"
strContent = s