文章列表类别

WriteTime = ""
End If
If CInt(newindow) <> 0 Then
LinkTarget = " target=""_blank"""
Else
LinkTarget = ""
End If
ArticleTopic = "<a href=''" & HtmlFileUrl & "''" & LinkTarget & " title=''" & Newasp.ChannelModule & "标题：" & Rs("title") & " 发布时间：" & Rs("WriteTime") & " 阅览次数：" & Rs("AllHits") & "'' class=showlist>" & sTitle & "</a>"
strContent = Replace(strContent, "{$ArticleTopic}", ArticleTopic)
strContent = Replace(strContent, "{$ArticleID}", Rs("ArticleID"))
strContent = Replace(strContent, "{$InstallDir}", Newasp.InstallDir)
strContent = Replace(strContent, "{$ArticleTitle}", sTitle)
strContent = Replace(strContent, "{$Title}", Rs("title"))
strContent = Replace(strContent, "{$DateAndTitle}", Rs("WriteTime"))
strContent = Replace(strContent, "{$BriefTopic}", sTopic)
strContent = Replace(strContent, "{$HtmlFileUrl}", HtmlFileUrl)
strContent = Replace(strContent, "{$ClassName}", ClassName)
strContent = Replace(strContent, "[]", "")
strContent = Replace(strContent, "{$Target}", LinkTarget)
strContent = Replace(strContent, "{$WriteTime}", WriteTime)
strContent = Replace(strContent, "{$AticleHits}", Rs("AllHits"))
strContent = Replace(strContent, "{$ListStyle}", ListStyle)
strContent = Replace(strContent, "{$BestCode}", BestCode)
strContent = Replace(strContent, "{$BestString}", BestString)
Rs.MoveNext
i = i + 1
Loop
strContent = strContent & "</table>"
End If

Rs.Close: Set Rs = Nothing
LoadArticleList = strContent
End Function
''================================================
''函数名：ReadArticleList
''作 用：读取文章列表
''参 数：str ----原字符串
''================================================
Public Function ReadArticleList(ByVal str)
Dim strTemp, i
Dim sTempContent, nTempContent
Dim arrTempContent, arrTempContents, ArrayList
On Error Resume Next
strTemp = str
If InStr(strTemp, "{$ReadArticleList(") > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticleList(", ")}", 1)
nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticleList(", ")}", 0)
arrTempContents = Split(sTempContent, "|||")
arrTempContent = Split(nTempContent, "|||")

For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), ",")
strTemp = Replace(strTemp, arrTempContents(i), LoadArticleList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), Arra