文章列表类别(50)


        strTemp = str
        If InStr(strTemp, "{$CurrentStation(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$CurrentStation(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$CurrentStation(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                strTemp = Replace(strTemp, arrTempContents(i), CurrentStation(ChannelID, ClassID, ClassName, ParentID, strParent, HtmlFileDir, arrTempContent(i)))
            Next
        End If
        ReadCurrentStation = strTemp
    End Function
    '================================================
    '函数名:NewsPictureAndText
    '作  用:图文混排列表
    '================================================
    Public Function NewsPictureAndText(ByVal chanid, ByVal ClassID, ByVal specid, _
        ByVal stype, ByVal height, ByVal width, ByVal maxlen, _
        ByVal maxline, ByVal hspace, ByVal vspace, ByVal align, _
        ByVal divcss, ByVal target, ByVal start, ByVal showpic, _
        ByVal showclass, ByVal showdate, ByVal dateformat)

        Dim Rs, SQL, i, strContent, foundstr
        Dim ChildStr, HtmlFileUrl, HtmlFileName, strPicture
        Dim PicTopic, NewsTitle, ClassName, ArticleTitle, WriteTime

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

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3583.html