ASP.NET RSS Toolkit(RSS工具)

2019-11-18 17:14:15

字体：大中小

来源：转载

供稿：网友

还记得以前吗？以前要做页面上写个小组件，调用指定（rss输出地址的）的内容。最好的办法就是通过XSLT+xml来输出字符串。让我们还是花了一分钟的时候回忆一下以前的做法吧

曾经的做法：

PRotected Overrides Sub OnLoad(ByVal e As System.EventArgs)
            Dim CacheKey As String = Url & "-" & Sort
            Dim objCache As System.Web.Caching.Cache = HttpRuntime.Cache
            If objCache.Item(CacheKey) Is Nothing Then
                Dim xpDocument As XPathDocument = New XPathDocument(Url, XmlSpace.Preserve)
                Dim XTran As XslTransform = New XslTransform
                XTran.Load(Web.HttpRuntime.AppDomainAppPath & "TransForm.xsl") 'TransForm.xsl
                Dim sw As StringWriter = New StringWriter

                Dim xArgList As XsltArgumentList = New XsltArgumentList
                xArgList.AddParam("Sort", "", Sort)
                xArgList.AddParam("strlength", "", strLength)
                XTran.Transform(xpDocument, xArgList, sw)
                objCache.Insert(CacheKey, sw, Nothing, DateTime.Now.AddMinutes(15), TimeSpan.Zero)
            End If
            MyBase.Text = CType(objCache.Item(CacheKey), StringWriter).ToString

End SubXSLT转换文件

<?xml version="1.0" encoding="gb2312"?>
<xsl:stylesheet
    version="1.0"
    xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
    xmlns="http://www.w3.org/TR/REC-html40"
    xmlns:msxsl="urn:schemas-microsoft-com:xslt"
    xmlns:dc="http://purl.org/dc/elements/1.1/"
    xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
    xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
    xmlns:resuls="urn:StrLength">
<xsl:param name="Sort" select="'10'"></xsl:param>
<xsl:param name="strlength" select="'15'"></xsl:param>
<xsl:template match="//rss">
    <xsl:apply-templates select="channel" />
</xsl:template>

<msxsl:script language="VB" implements-prefix="resuls">
<![CDATA[
    Function GetSubString(byval origStr As String, byval endIndex As Integer) As String
   Dim bytes As Byte() = System.Text.Encoding.GetEncoding("gb2312").GetBytes(origStr)
   If endIndex >= bytes.Length Then
      Return origStr
   End If
   Dim subBytes(endIndex) As Byte
   Array.Copy(bytes, 0, subBytes, 0, endIndex)
   Return System.Text.Encoding.GetEncoding("gb2312").GetString(subBytes) + ""
End Function 'GetSubString

    public function strDate(byval s as string)as string
        return CDate(s).Day.ToString & "日"
    end function
]]>
</msxsl:script>

<xsl:template match="channel">
    <table width="300" border="0" cellspacing="0" cellpadding="0">
        <xsl:for-each select="item">
            <xsl:if test="position() <=$Sort">
            <tr>
                <td width="21"><img src="http://download.pchome.net/allimage/p1.gif"/></td>
                <td><a href="{link}"><xsl:value-of select="resuls:GetSubString(title,$strlength)"/></a> <xsl:value-of select="resuls:strDate(dc:date)"/></td>
            </tr>
            </xsl:if>
        </xsl:for-each>
    </table>
</xsl:template>
</xsl:stylesheet>

而现在。根据MS的想法。一切只要拖拖控件就能完成我们的所要功能（我一向不喜欢这样，还是自己DIY好）。所以。下面介绍这款小工具：asp.net RSS Toolkit
RSS TOOLKIT主要是从服务器上装载RSS输出（XML格式输出），生成数据集，然后填充到DATALIST控件当中。另外它支持数据缓存的功能
目前最新版本：1.0.0.1
新的特性：
•    Added MaxItems property to RssDataSource to limit the number of items returned.
•    Added automatic generation of <link> tags from RssHyperLink control, to light up the RSS
toolbar icon in IE7. For more information please see http://blogs.msdn.com/rssteam/articles/PublishersGuide.aspx
•    Added protected Context property (of type HttpContext) to RssHttpHandlerBase class, to allow access to the
HTTP request while generating a feed.
•    Added generation of LoadChannel(string url) method in RssCodeGenerator so that one strongly typed
channel class can be used to consume different channels.
•    Fixed problem expanding app relative (~/…) links containing query string when generating RSS feeds.
下载地址：点击下载
详细说明：http://weblogs.asp.net/scottgu/archive/2006/02/22/438738.aspx