Asp+Rss阅读器制作第2/2页

针对“Asp+Rss阅读器制作第2/2页”的完整攻略，我整理了以下步骤：

第一步：搭建本地Web服务器

在本地电脑上搭建Web服务器，可以使用IIS或者Tomcat。在搭建完成后，将网站服务器的根目录设置为静态站点。在本地服务器上创建rss.xml文件，用于存放RSS源数据。同时，设置ASP页面页面，用于生成动态内容并且接收与查询数据的页面。

第二步：编写ASP代码

1. 先创建一个RSS类，代码如下：

Class RssWriter
    '定义类的属性
    Private title, description, link, imageUrl, lastBuildDate
    Private items( ) 

    '定义类的构造函数
    Public Sub Class_Initialize
        Me.title = ""
        Me.description = ""
        Me.link = ""
        Me.imageUrl = ""
        Me.lastBuildDate = ""
    End Sub

    '定义属性的Get、Set方法
    Public Property Let Title( ByVal text )
        Me.title = text
    End Property

    Public Property Let Description( ByVal text )
        Me.description = text
    End Property

    Public Property Let Link( ByVal text )
        Me.link = text
    End Property

    Public Property Let ImageUrl( ByVal text )
        Me.imageUrl = text
    End Property

    Public Property Let LastBuildDate( ByVal text )
        Me.lastBuildDate = text
    End Property

    Public Property Set Items( ByVal value )
        Me.items = value
    End Property

    '定义方法：使用创建好的属性及Item属性，生成RSS XML文件
    Public Function getXml( )
        Dim xml

        '使用XML DOM对象生成XML文件
        Set xml = CreateObject("Microsoft.XMLDOM")
        xml.async = False
        xml.appendChild xml.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")

        '使用CDATA节点解决RSS阅读器不能正确显示内容的问题
        Set cdata = xml.createElement("cdata")
        cdatadataType = "cdata"
        Set cdataText = xml.createTextNode(" ")
        Set cdata.appendChild(cdataText)

        '生成RSS XML内容
        Set rss = xml.createElement("rss")
        rss.setAttribute "version", "2.0"
        xml.appendChild rss

        Set channel = xml.createElement("channel")
        rss.appendChild channel

        Set titleNode= xml.createElement("title")
        Set txt = xml.createTextNode(Me.title)
        Set titleNode.appendChild txt
        channel.appendChild titleNode

        Set descriptionNode = xml.createElement("description")
        Set txt = xml.createTextNode(Me.description)
        Set descriptionNode.appendChild txt
        channel.appendChild descriptionNode 

        Set linkNode = xml.createElement("link")
        Set txt = xml.createTextNode(Me.link)
        Set linkNode.appendChild txt
        channel.appendChild linkNode 

        Set lastBuildDateNode = xml.createElement("lastBuildDate")
        Set txt = xml.createTextNode(Me.lastBuildDate)
        Set lastBuildDateNode.appendChild txt
        channel.appendChild lastBuildDateNode 

        Set imageUrlNode = xml.createElement("imageUrl")
        Set txt = xml.createTextNode(Me.imageUrl)
        Set imageUrlNode.appendChild txt
        channel.appendChild imageUrlNode 

        For Each item In Me.items
            Set itemNode = xml.createElement("item")
            channel.appendChild itemNode 

            Set titleNode= xml.createElement("title")
            Set txt = xml.createTextNode(item.Title)
            Set titleNode.appendChild txt
            itemNode.appendChild titleNode

            Set descriptionNode = xml.createElement("description")
            Set txt = xml.createTextNode(item.Description)
            Set descriptionNode.appendChild txt
            itemNode.appendChild descriptionNode 

            Set pubDateNode = xml.createElement("pubDate")
            Set txt = xml.createTextNode(item.PubDate)
            Set pubDateNode.appendChild txt
            itemNode.appendChild pubDateNode 

            Set linkNode= xml.createElement("link")
            Set txt = xml.createTextNode(item.Link)
            Set linkNode.appendChild txt
            itemNode.appendChild linkNode
        Next

        '输出生成的XML内容
        getXml = xml.xml
    End Function
End Class

1. 在ASP文件中使用RSS类生成XML文档。

<%
    '调用生成XML文档的函数
    Set rss = New RssWriter
    rss.Title = "最新的网页新闻"
    rss.Description = "网页新闻"
    rss.Link = "http://localhost"
    rss.ImageUrl = "url"
    rss.LastBuildDate = now()

    '使用Item对象添加RSS文章
    Dim items()
    ReDim items(3)

    item1 = new RssItem
    item1.Title = "Example RSS Item"
    item1.Description = "This is the example RSS item."
    item1.PubDate = now()
    item1.Link = "http://localhost/1.htm"

    item2 = new RssItem
    item2.Title = "Example RSS Item2"
    item2.Description = "This is the example RSS item."
    item2.PubDate = now()
    item2.Link = "http://localhost/2.htm"

    item3 = new RssItem
    item3.Title = "Example RSS Item3"
    item3.Description = "This is the example RSS item."
    item3.PubDate = now()
    item3.Link = "http://localhost/3.htm"

    items(0) = item1
    items(1) = item2
    items(2) = item3

    rss.Items = items
    Response.Write rss.getXml()
%>

第三步：测试RSS阅读器

完成了上述步骤后，我们可以在浏览器中输入相应的HTTP地址，来测试我们的RSS阅读器是否正常工作。

示例1：

例如输入http://localhost/rss.asp，会出现rss.xml的HTML显示页面，其中含有我们刚才生成并添加RSS文章的内容。

示例2：

我们可以在浏览器中使用JavaScript来请求rss.asp页面，并且解析返回的XML。具体的代码如下：

var xhr = new XMLHttpRequest();
xhr.open('get', 'http://localhost/rss.asp', true);
xhr.onreadystatechange = function() {
    if(xhr.readyState == 4 && xhr.status == 200) {
        var rssxml = xhr.responseXML;
        var items = rssxml.getElementsByTagName("item");
        for (var i = 0; i < items.length; i++) {
            var titleNode = items[i].getElementsByTagName("title")[0];
            var linkNode = items[i].getElementsByTagName("link")[0];
            var descriptionNode = items[i].getElementsByTagName("description")[0];

            var title = titleNode.textContent;
            var link = linkNode.textContent;
            var description = descriptionNode.textContent;
            console.log(title, link, description);
        }
    }
};
xhr.send(null);

上述代码中的XMLHttpRequest对象会建立一个HTTP请求，请求ASP页面返回RSS XML文档。如果请求得到了正确的响应，就会解析响应中的XML文档，取得其中的标题、链接、摘要等结点。在这个例子中，我们使用console.log方法将取得的内容输出到控制台中。