文章列表类别

BestCode = 2
BestString = "<font color=''" & Newasp.MainSetting(3) & "''>推荐</font>"
Else
BestCode = 1
BestString = ""
End If
strContent = strContent & Newasp.MainSetting(22)
strTitle = Newasp.GotTopic(SQL(4,i), CInt(strLen))
strTitle = Newasp.ReadFontMode(strTitle, SQL(2,i), SQL(3,i))
ClassName = Newasp.ReadFontMode(SQL(10,i), SQL(11,i), SQL(12,i))
HtmlFileName = Newasp.ReadFileName(SQL(8,i), SQL(0,i), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
If CInt(Newasp.ChannelUseHtml) <> 0 Then
HtmlFileUrl = Newasp.ChannelPath & SQL(13,i) & Newasp.ShowDatePath(SQL(8,i), Newasp.ChannelHtmlPath) & HtmlFileName
ClassName = "<a href=''" & Newasp.ChannelPath & SQL(13,i) & "index" & Newasp.ChannelHtmlExt & "''>" & ClassName & "</a>"
Else
HtmlFileUrl = Newasp.ChannelPath & "show.asp?id=" & SQL(0,i)
ClassName = "<a href=''" & Newasp.ChannelPath & "list.asp?classid=" & SQL(1,i) & "''>" & ClassName & "</a>"
End If
If CInt(showclass) = 0 Then ClassName = ""
If CInt(showdate) <> 0 Then
addTime = Newasp.ShowDateTime(SQL(7,i), CInt(DateMode))
Else
addTime = ""
End If
If CInt(newindow) <> 0 Then
LinkTarget = " target=""_blank"""
Else
LinkTarget = ""
End If
FlashTopic = "<a href=''" & HtmlFileUrl & "''" & LinkTarget & " title=''" & Newasp.ChannelModule & "名称：" & SQL(4,i) & " 发布时间：" & SQL(7,i) & " 下载次数：" & SQL(6,i) & "'' class=showlist>" & strTitle & "</a>"
strContent = Replace(strContent, "{$FlashTopic}", FlashTopic)
strContent = Replace(strContent, "{$FlashID}", Rs("flashid"))
strContent = Replace(strContent, "{$InstallDir}", Newasp.InstallDir)
strContent = Replace(strContent, "{$FlashTopic}", strTitle)
strContent = Replace(strContent, "{$Title}", SQL(4,i))
strContent = Replace(strContent, "{$DateAndTime}", SQL(7,i))
strContent = Replace(strContent, "{$HtmlFileUrl}", HtmlFileUrl)
strContent = Replace(strContent, "{$ClassName}", ClassName)
strContent = Replace(strContent, "[]", "")
strContent = Replace(strContent, "{$Target}", LinkTarget)
strContent = Replace(strContent, "{$addTime}", addTime)
strContent = Replace(strContent, "{$FlashHits}", SQL(6,i))
strContent = Replace(strContent, "{$ListStyle}", ListStyle)
s