文章列表类别(97)

                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadStatistic(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3)))
            Next
        End If
        ReadStatistic = strTemp
    End Function

    Public Function ShowIndex(ByVal isHtml)
        Dim HtmlContent
        Newasp.LoadTemplates 0, 1, 0
        HtmlContent = Newasp.HtmlContent
        HtmlContent = Replace(HtmlContent, "{$ChannelRootDir}", Newasp.InstallDir)
        HtmlContent = Replace(HtmlContent, "{$InstallDir}", Newasp.InstallDir)
        If Len(Newasp.HtmlSetting(1)) < 2 Then
            HtmlContent = Replace(HtmlContent, "{$PageTitle}", "首页")
        Else
            HtmlContent = Replace(HtmlContent, "{$PageTitle}", Newasp.HtmlSetting(1))
        End If
        HtmlContent = Replace(HtmlContent, "{$ChannelID}", 0)
        HtmlContent = ReadAnnounceContent(HtmlContent, 0)
        HtmlContent = ReadClassMenu(HtmlContent)
        HtmlContent = ReadClassMenubar(HtmlContent)
        HtmlContent = ReadArticlePic(HtmlContent)
        HtmlContent = ReadSoftPic(HtmlContent)
        HtmlContent = ReadArticleList(HtmlContent)
        HtmlContent = ReadSoftList(HtmlContent)
        HtmlContent = ReadFlashList(HtmlContent)
        HtmlContent = ReadFlashPic(HtmlContent)
        HtmlContent = ReadFriendLink(HtmlContent)
        HtmlContent = ReadNewsPicAndText(HtmlContent)