文章列表类别(35)

                            LinkTarget = " target=""_blank"""
                        Else
                            LinkTarget = ""
                        End If
                        strContent = strContent & Newasp.MainSetting(19)
                        strContent = Replace(strContent, "{$SoftPicture}", "<a href='" & HtmlFileUrl & "' title='" & Rs("SoftName") & "'" & LinkTarget & ">" & SoftImage & "</a>")
                        If CInt(showtopic) = 1 Then
                            strContent = Replace(strContent, "{$SoftTopic}", "<a href='" & HtmlFileUrl & "' title='" & Rs("SoftName") & "'" & LinkTarget & ">" & strSoftName & "</a>")
                        Else
                            strContent = Replace(strContent, "{$SoftTopic}", vbNullString)
                        End If
                        strContent = strContent & "</td>" & vbCrLf
                    Rs.MoveNext
                End If
            Next