文章列表类别(46)

                        If CInt(isLogo) = 1 Or CInt(isLogo) = 3 Then
                            strContent = strContent & "<a href='" & Newasp.InstallDir & "link/addlink.asp' target=_blank><img src='" & Newasp.InstallDir & "images/link.gif' width=88 height=31 border=0></a>"
                        Else
                            strContent = strContent & "<a href='" & Newasp.InstallDir & "link/' target=_blank>更多连接</a>"
                        End If
                        strContent = strContent & "</td>" & vbCrLf
                    End If
                Next
                strContent = strContent & "</tr>" & vbCrLf
            Loop
            strContent = strContent & "</table>" & vbCrLf
        End If
        LoadFriendLink = strContent
    End Function
    '================================================
    '函数名：ReadFriendLink
    '作  用：读取友情连接
    '参  数：str ----原字符串
    '================================================
    Public Function ReadFriendLink(ByVal str)
        Dim strTemp, i
        Dim sTempContent, nTempContent, ArrayList
        Dim arrTempContent, arrTempContents