文章列表类别(42)

        Dim arrTempContent, arrTempContents
        On Error Resume Next
        strTemp = str
        If InStr(strTemp, "{$ReadFlashPic(") > 0 Then
            sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFlashPic(", ")}", 1)
            nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFlashPic(", ")}", 0)
            arrTempContents = Split(sTempContent, "|||")
            arrTempContent = Split(nTempContent, "|||")
            For i = 0 To UBound(arrTempContents)
                ArrayList = Split(arrTempContent(i), ",")
                strTemp = Replace(strTemp, arrTempContents(i), LoadFlashPic(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10)))
            Next
        End If
        ReadFlashPic = strTemp
    End Function
    '================================================
    '函数名：LoadFriendLink
    '作  用：装载友情连接
    '参  数：str ----原字符串
    '================================================
    Public Function LoadFriendLink(ByVal TopNum, ByVal PerRowNum, ByVal isLogo, ByVal orders)
        Dim Rs, SQL, i, strContent
        Dim strOrder, LinkAddress

        strContent = ""
        If Not IsNumeric(TopNum) Then Exit Function
        If Not IsNumeric(PerRowNum) Then Exit Function
        If Not IsNumeric(isLogo) Then Exit Function