文章列表类别(45)

                        If CInt(isLogo) < 2 Then
                            LinkAddress = Newasp.InstallDir & "link/link.asp?id=" & Rs("LinkID") & "&url=" & Trim(Rs("LinkUrl"))
                        Else
                            LinkAddress = Trim(Rs("LinkUrl"))
                        End If
                        If Rs("isLogo") = 1 Or CInt(isLogo) = 3 Then
                            strContent = strContent & "<a href='" & LinkAddress & "' target=_blank title='主页名称：" & Rs("LinkName") & " 点击次数：" & Rs("LinkHist") & "'><img src='" & Newasp.ReadFileUrl(Rs("LogoUrl")) & "' width=88 height=31 border=0></a>"
                        Else
                            strContent = strContent & "<a href='" & LinkAddress & "' target=_blank title='主页名称：" & Rs("LinkName") & " 点击次数：" & Rs("LinkHist") & "'>" & Rs("LinkName") & "</a>"
                        End If
                        strContent = strContent & "</td>" & vbCrLf
                        Rs.MoveNext
                    Else