Набор инструментов ASP.NET RSS (инструмент RSS)

Помните раньше? Раньше я писал виджет на странице для вызова указанного контента (выходной адрес RSS). Лучший способ — вывести строку через XSLT+XML. Давайте на минутку вспомним предыдущий подход

:

Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
Dim CacheKey As String = URL, «-» и сортировка
Dim objCache As System.Web.Caching.Cache = HttpRuntime.Cache
Если objCache.Item(CacheKey) ничего не значит, тогда
Dim xpDocument As XPathDocument = Новый XPathDocument(Url, XmlSpace.Preserve)
Dim XTran As XslTransform = Новый XslTransform
XTran.Load(Web.HttpRuntime.AppDomainAppPath & «TransForm.xsl») 'TransForm.xsl
Dim sw As StringWriter = Новый StringWriter

Dim xArgList As XsltArgumentList = Новый XsltArgumentList
xArgList.AddParam("Сортировка", "", Сортировка)
xArgList.AddParam("strlength", "", strLength)
XTran.Transform(xpDocument, xArgList, SW)
objCache.Insert(CacheKey, sw, Nothing, DateTime.Now.AddMinutes(15), TimeSpan.Zero)
Конец, если
MyBase.Text = CType(objCache.Item(CacheKey), StringWriter).ToString

End Файл преобразования SubXSLT

<?xml version="1.0"coding="gb2312"?>
<xsl:таблица стилей
версия="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/syndiction/ "
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" реализует-префикс="resuls">
<![CDATA[
Функция GetSubString (byval origStr As String, byval endIndex As Integer) Как строка
Тусклые байты As Byte() = System.Text.Encoding.GetEncoding("gb2312").GetBytes(origStr)
Если endIndex >= bytes.Length Тогда
Возврат исходной строки
Конец, если
Dim subBytes (endIndex) как байт
Array.Copy(байты, 0, суббайты, 0, endIndex)
Вернуть System.Text.Encoding.GetEncoding("gb2312").GetString(subBytes) + ""
Конечная функция 'GetSubString

общедоступная функция strDate (byval s as string) как строка
вернуть CDate(s).Day.ToString & "День"
конечная функция
]]>
</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;=$Sort">
<тр>
<td width="21"><img src=" http://rss.msnbc.msn.com/id/3032091/device/rss/rss.xml)