文章列表类别

& Rs("AllHits") & """ class=popular>" & NewsTitle & "</a> " & AllHits & "</div>"
strContent = strContent & strSoftName

Rs.MoveNext
i = i + 1
Loop
End If
Rs.Close: Set Rs = Nothing
LoadPopularSoft = strContent
End Function
''================================================
''函数名：ReadPopularSoft
''作 用：读取软件排行列表
''参 数：str ----原字符串
''================================================
Public Function ReadPopularSoft(ByVal str)
On Error Resume Next
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents

strTemp = str
If InStr(strTemp, "{$ReadPopularSoft(") > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadPopularSoft(", ")}", 1)
nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadPopularSoft(", ")}", 0)
arrTempContents = Split(sTempContent, "|||")
arrTempContent = Split(nTempContent, "|||")
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), ",")
strTemp = Replace(strTemp, arrTempContents(i), LoadPopularSoft(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8)))
Next
End If
ReadPopularSoft = strTemp
End Function
''================================================
''函数名：LoadPopularArticle
''作 用：装载排行文章列表
''参 数：ClassID ----分类ID
'' chanid ----频道ID
'' stype ----调用类型
'' maxline ----显示列表数
'' maxlen ----显示标题长度
'' showhits ----是否显示下载数
'' target ----连接目标
'' start ----标题头标记
'' styles ----样式名称
''================================================
Public Function LoadPopularArticle(ByVal chanid, ByVal ClassID, ByVal stype, _
ByVal maxlen, ByVal maxline, ByVal showhits, ByVal target, _
ByVal start, ByVal styles)

Dim SQL, Rs, foundsql, strHits
Dim ChildStr, i, strContent
Dim HtmlFileName, HtmlFileUrl
Dim NewsTitle, AllHits, ArticleTitle
Dim divstyle

chanid = Newasp.ChkNumeric(chanid)
ClassID = Newasp.ChkNumeric(ClassID)
stype = Newasp.ChkNumeric(stype)

If chanid = 0 Then chanid = 2

On Error Resume Next
Newasp.LoadChannel(chanid)

If CLng(ClassID) > 0 And Trim(ClassID) <> "" Then
SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID=" & chanid & " And classid=" & CLng(ClassID)
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
LoadPopularArticle = ""
Exit Function
Else
Chil