بزودی برمیگردم

با تشکر از پیام علی آقا (بالاخره فهمیدیم یکی مطالب ما را میخواند) عرض کنم اگر خدا بخواهد بزودی یک برنامه مفید را که خودم نوشته ام اینجا میگذارم. فعلا یک چند روزی صبرکنید (زندگی است و هزار گرفتاری)

RSS Feed Reader

این هم یک کد کوتاه برای آنهایی که میخواهند در سایتشان از RSS سایتهای دیگر استفاده کنند. (البته با ASP کلاسیک). نوشتن این برنامه در دات نت نیازی به توضیح ندارد و بسیار ساده است اما اگر خواستید برایتان توضیح میدهم.

<%
response.ContentType="text/html"
dim objXML, objXSL
set objXML=server.CreateObject("MSXML2.DOMDocument")
set objXSL=server.CreateObject("MSXML2.DOMDocument")
objXML.async=False
objXSL.async=False
objXML.setProperty "ServerHTTPRequest",true
objXML.load "http://weblogs.asp.net/MainFeed.aspx"
objXSL.load Server.MapPath("rssStyle.xslt")
response.write "<html><head><title>RSS Feed Reader</title></head><body>"
response.write objXML.transformNode(objXSL)
response.write "</body></html>"
set objXML=nothing
set objXSL=nothing
%>

کد فایل XSLT آن هم بصورت زیر است، که با تغییر آن میتوانید قالب دلخواه خود را اعمال کنید

<?xml version="1.0" encoding="UTF-8" ?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
   <xsl:output method="html" omit-xml-declaration="yes" />

   <xsl:template match="/rss/channel">
      <b><xsl:value-of select="title" disable-output-escaping="yes" /></b>
      <xsl:for-each select="item">
         <li>
            <a>
               <xsl:attribute name="href">
                  <xsl:value-of select="link" />
    </xsl:attribute>
               <xsl:attribute name="target">_blank</xsl:attribute>
               <xsl:value-of select="title" disable-output-escaping="yes"  />
            </a>
            (<xsl:value-of select="pubDate" />)
         </li>
      </xsl:for-each>
   </xsl:template>
</xsl:stylesheet>

دوباره می آیم

سلام
این بلاگ اسکای هم که درست شد. پس دوباره منتظر باشید.