ชุดเครื่องมือ 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 (เว็บ HttpRuntime.AppDomainAppPath & "TransForm.xsl") 'TransForm.xsl
Dim sw As StringWriter = ตัวสร้างสตริงใหม่

Dim xArgList As XsltArgumentList = XsltArgumentList ใหม่
xArgList.AddParam("เรียงลำดับ", "", เรียงลำดับ)
xArgList.AddParam("strlength", "", strLength)
XTran.Transform(xpDocument, xArgList, sw)
objCache.Insert (CacheKey, sw, ไม่มีอะไร, DateTime.Now.AddMinutes (15), TimeSpan.Zero)
สิ้นสุดถ้า
MyBase.Text = CType(objCache.Item(CacheKey), StringWriter).ToString

สิ้นสุดไฟล์การแปลง SubXSLT

<?xml version="1.0" encoding="gb2312"?>
<xsl:สไตล์ชีท
รุ่น = "1.0"
xmlns:xsl=" http://www.w3.org/1999/XSL/Transform "
xmlns=" http://www.w3.org/TR/REC-html40 "
xmlns:msxsl="โกศ: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="โกศ:StrLength">
<xsl:param name="Sort" select="'10'"></xsl:param>
<xsl:param name="strlength" select="'15'"></xsl:param>
<xsl:แม่แบบที่ตรงกัน="//rss">
<xsl:apply-templates select="ช่อง" />
</xsl:template>

<msxsl:script language="VB" นำไปใช้-prefix="resuls">
<![ซีดีข้อมูล[
ฟังก์ชัน GetSubString (byval origStr As String, byval endIndex As Integer) As String
Dim bytes As Byte() = System.Text.Encoding.GetEncoding("gb2312").GetBytes(origStr)
ถ้า endIndex >= bytes.Length แล้ว
ส่งคืนต้นฉบับStr
สิ้นสุดถ้า
Dim subBytes (endIndex) เป็น Byte
Array.Copy (ไบต์, 0, ไบต์ย่อย, 0, endIndex)
กลับ System.Text.Encoding.GetEncoding("gb2312").GetString(subBytes) + ""
ฟังก์ชันสิ้นสุด 'ฟังก์ชันสาธารณะ GetSubString

strDate (byval s เป็นสตริง) เป็นสตริง
กลับ CDate (s) Day.ToString & "วัน"
ฟังก์ชั่นสิ้นสุด
-
</msxsl:script>

<xsl:template match="channel">
<table width="300" border="0" cellspacing="0" cellpadding="0">
<xsl:for-each เลือก = "รายการ">
<xsl:if test="position() &lt;=$Sort">
<tr>
<td width="21"><img src=" http://rss.msnbc.msn.com/id/3032091/device/rss/rss.xml)