文章列表类别
SQL = "SELECT TOP " & CInt(TopNum) & SQL & " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtml FROM [NC_SoftList] A INNER JOIN [NC_Classify] C On A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID=" & ChannelID & " " & foundstr & ""
Set Rs = Newasp.Execute(SQL)
j = 0
If Rs.BOF And Rs.EOF Then
strContent = "没有添加任何软件！"
Else
SQL=Rs.GetRows(-1)
strContent = "<table width=""100%"" border=0 cellpadding=2 cellspacing=0>"
For i=0 To Ubound(SQL,2)
If (j Mod 2) = 0 Then
ListStyle = Trim(styles) & 1
Else
ListStyle = Trim(styles) & 2
End If
If CInt(SQL(9,i)) <> 0 Then
BestCode = 2
BestString = "<font color=''" & Newasp.MainSetting(3) & "''>推荐</font>"
Else
BestCode = 1
BestString = ""
End If
strContent = strContent & Newasp.MainSetting(14)
strSoftName = Newasp.GotTopic(SQL(4,i) & " " & SQL(5,i), CInt(strLen))
strSoftName = Newasp.ReadFontMode(strSoftName, 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
SoftTime = Newasp.ShowDateTime(SQL(7,i), CInt(DateMode))
Else
SoftTime = ""
End If
If CInt(newindow) <> 0 Then
LinkTarget = " target=""_blank"""
Else
LinkTarget = ""
End If
SoftTopic = "<a href=''" & HtmlFileUrl & "''" & LinkTarget & " title=''" & Newasp.ChannelModule & "名称：" & Trim(SQL(4,i) & " " & SQL(5,i)) & " 发布时间：" & SQL(7,i) & " 下载次数：" & SQL(6,i) & "'' class=showlist>" & strSoftName & "</a>"
strContent = Replace(strContent, "{$SoftTopic}", SoftTopic)
strContent = Replace(strContent, "{$SoftID}", Rs("so
Set Rs = Newasp.Execute(SQL)
j = 0
If Rs.BOF And Rs.EOF Then
strContent = "没有添加任何软件！"
Else
SQL=Rs.GetRows(-1)
strContent = "<table width=""100%"" border=0 cellpadding=2 cellspacing=0>"
For i=0 To Ubound(SQL,2)
If (j Mod 2) = 0 Then
ListStyle = Trim(styles) & 1
Else
ListStyle = Trim(styles) & 2
End If
If CInt(SQL(9,i)) <> 0 Then
BestCode = 2
BestString = "<font color=''" & Newasp.MainSetting(3) & "''>推荐</font>"
Else
BestCode = 1
BestString = ""
End If
strContent = strContent & Newasp.MainSetting(14)
strSoftName = Newasp.GotTopic(SQL(4,i) & " " & SQL(5,i), CInt(strLen))
strSoftName = Newasp.ReadFontMode(strSoftName, 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
SoftTime = Newasp.ShowDateTime(SQL(7,i), CInt(DateMode))
Else
SoftTime = ""
End If
If CInt(newindow) <> 0 Then
LinkTarget = " target=""_blank"""
Else
LinkTarget = ""
End If
SoftTopic = "<a href=''" & HtmlFileUrl & "''" & LinkTarget & " title=''" & Newasp.ChannelModule & "名称：" & Trim(SQL(4,i) & " " & SQL(5,i)) & " 发布时间：" & SQL(7,i) & " 下载次数：" & SQL(6,i) & "'' class=showlist>" & strSoftName & "</a>"
strContent = Replace(strContent, "{$SoftTopic}", SoftTopic)
strContent = Replace(strContent, "{$SoftID}", Rs("so