Kit de herramientas ASP.NET RSS (herramienta RSS)

¿Recuerdas antes? Solía ​​​​escribir un widget en la página para llamar al contenido especificado (dirección de salida RSS). La mejor manera es generar la cadena a través de XSLT+XML. Tomemos un minuto para recordar el enfoque anterior

:

Anulaciones protegidas Sub OnLoad(ByVal y As System.EventArgs)
Dim CacheKey como cadena = URL y "-" y ordenar
Dim objCache como System.Web.Caching.Cache = HttpRuntime.Cache
Si objCache.Item(CacheKey) no es nada, entonces
Dim xpDocument As XPathDocument = Nuevo XPathDocument(Url, XmlSpace.Preserve)
Atenuar XTran como XslTransform = Nuevo XslTransform
XTran.Load(Web.HttpRuntime.AppDomainAppPath y "TransForm.xsl") 'TransForm.xsl
Dim sw As StringWriter = Nuevo StringWriter

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

End Archivo de conversión SubXSLT

<?xml version="1.0" encoding="gb2312"?>
<xsl:hoja de estilo
versión="1.0"
xmlns:xsl=" http://www.w3.org/1999/XSL/Transform "
xmlns=" http://www.w3.org/TR/REC-html40 "
xmlns:msxsl="urna:esquemas-microsoft-com:xslt"
xmlns:dc=" http://purl.org/dc/elements/1.1/ "
xmlns:barra = " http://purl.org/rss/1.0/modules/barra/ "
xmlns:sy=" http://purl.org/rss/1.0/modules/syndication/ "
xmlns:resuls="urna:StrLength">
<xsl:param name="Ordenar" select="'10'"></xsl:param>
<xsl:param nombre="strlength" select="'15'"></xsl:param>
<xsl:coincidencia de plantilla="//rss">
<xsl:apply-templates select="canal" />
</xsl:template>

<msxsl:script language="VB" implements-prefix="resuls">
<![CDATA[
Función GetSubString (byval origStr como cadena, byval endIndex como entero) como cadena
Bytes atenuados como Byte() = System.Text.Encoding.GetEncoding("gb2312").GetBytes(origStr)
Si endIndex >= bytes.Length Entonces
Volver origStr
Terminar si
Dim subBytes(endIndex) como byte
Array.Copy(bytes, 0, subBytes, 0, endIndex)
Devolver System.Text.Encoding.GetEncoding("gb2312").GetString(subBytes) + ""
Función final 'GetSubString

función pública strDate(byval s como cadena)como cadena
devolver CDate(s).Day.ToString & "Día"
función final
]]>
</msxsl:script>

<xsl:template match="canal">
<table width="300" border="0" cellspace="0" cellpadding="0">
<xsl:para-cada seleccionar="elemento">
<xsl:if prueba="posición() &lt;=$Ordenar">
<tr>
<td width="21"><img src=" http://rss.msnbc.msn.com/id/3032091/device/rss/rss.xml)