Boîte à outils RSS ASP.NET (outil RSS)

Tu te souviens avant ? J'avais l'habitude d'écrire un widget sur la page pour appeler le contenu spécifié (adresse de sortie RSS). Le meilleur moyen est de générer la chaîne via XSLT+XML. Prenons une minute pour rappeler l'approche précédente

:

Protected Overrides Sub OnLoad(ByVal et As System.EventArgs)
Dim CacheKey As String = Url & "-" & Trier
Dim objCache As System.Web.Caching.Cache = HttpRuntime.Cache
Si objCache.Item(CacheKey) n'est rien alors
Dim xpDocument As XPathDocument = New XPathDocument (Url, XmlSpace.Preserve)
Dim XTran As XslTransform = Nouveau XslTransform
XTran.Load(Web.HttpRuntime.AppDomainAppPath & "TransForm.xsl") 'TransForm.xsl
Dim sw As StringWriter = New StringWriter

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

End SubXSLT fichier de conversion

<?xml version="1.0" encoding="gb2312"?>
<xsl:feuille de style
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="Tri" select="'10'"></xsl:param>
<xsl:param name="strlength" select="'15'"></xsl:param>
<xsl:template match="//rss">
<xsl:apply-templates select="canal" />
</xsl:template>

<msxsl:script language="VB" Implements-prefix="resuls">
<![CDATA[
Fonction GetSubString (byval origStr As String, byval endIndex As Integer) As String
Dim octets As Byte() = System.Text.Encoding.GetEncoding("gb2312").GetBytes(origStr)
Si endIndex >= bytes.Length Alors
Retourner origStr
Fin si
Dim subBytes(endIndex) As Byte
Array.Copy (octets, 0, sous-octets, 0, endIndex)
Retour System.Text.Encoding.GetEncoding("gb2312").GetString(subBytes) + ""
End Function 'GetSubString

fonction publique strDate (byval s sous forme de chaîne) sous forme de chaîne
retourner CDate(s).Day.ToString & "Day"
fonction de fin
]]>
</msxsl:script>

<xsl:template match="channel">
<table width="300" border="0" Cellpacing="0" cellpadding="0">
<xsl:for-each select="item">
<xsl:if test="position() &lt;=$Tri">
<tr>
<td width="21"><img src=" http://rss.msnbc.msn.com/id/3032091/device/rss/rss.xml)