文章列表类别

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

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

chanid = Newasp.ChkNumeric(chanid)
ClassID = Newasp.ChkNumeric(ClassID)
stype = Newasp.ChkNumeric(stype)
If chanid = 0 Then chanid = 1

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=" & ClassID
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
LoadPopularFlash = ""
Exit Function
Else
ChildStr = Rs("ChildStr")
found