RSS聚合输出读取问题

[x58099856]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%

Response.Expires = -1

'输出RSS数据
Dim RssDOM, RssNode, RssSubNode, RssTempNode
Set RssDOM = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
RssDOM.appendChild (RssDOM.createProcessingInstruction("xml", "version=""1.0"" encoding=""gb2312"""))
RssDOM.appendChild (RssDOM.createElement("rss"))
RssDOM.documentElement.Attributes.setNamedItem(RssDOM.createNode(2, "version", "")).text = "2.0"
Set RssNode = RssDOM.createNode(1, "channel", "")
RssDOM.documentElement.appendChild (RssNode)
Set RssSubNode = RssNode.appendChild(RssDOM.createElement("title"))
RssSubNode.text = "RssRebuder"
Set RssSubNode = RssNode.appendChild(RssDOM.createElement("language"))
RssSubNode.text = "zh-cn"
Set RssTempNode = RssNode

Dim urlReceived, rootNode, ListNum, Tlength, FeedUrl, RSSVersion
Set urlReceived = CreateObject("Microsoft.XMLDOM")
urlReceived.async = False
urlReceived.Load Request

Set rootNode = urlReceived.getElementsByTagName("root")
If rootNode.length < 1 Then
    Set RssSubNode = RssNode.appendChild(RssDOM.createElement("item"))
    Set RssNode = RssSubNode.appendChild(RssDOM.createElement("title"))
    RssNode.text = "输入数据错!"
    Set RssNode = RssSubNode.appendChild(RssDOM.createElement("link"))
    Set RssNode = RssSubNode.appendChild(RssDOM.createElement("description"))
    Set RssNode = RssSubNode.appendChild(RssDOM.createElement("author"))
    Set RssNode = RssSubNode.appendChild(RssDOM.createElement("category"))
    Set RssNode = RssSubNode.appendChild(RssDOM.createElement("pubDate"))
Else
    ListNum = rootNode(0).selectSingleNode("listnum").text
    Tlength = rootNode(0).selectSingleNode("titlelength").text
    FeedUrl = rootNode(0).selectSingleNode("feedurl").text
    If ListNum = "" Or ListNum < 1 Then
        ListNum = 10
    Else
        ListNum = CLng(ListNum)
    End If
    If Tlength = "" Then
        Tlength = 35
    Else
        Tlength = CLng(Tlength)
    End If
End If
Set urlReceived = Nothing

If FeedUrl = "" Then
    Set RssNode = RssTempNode
    Set RssSubNode = RssNode.appendChild(RssDOM.createElement("item"))
    Set RssNode = RssSubNode.appendChild(RssDOM.createElement("title"))
    RssNode.text = "Rss源地址为空..."
    Set RssNode = RssSubNode.appendChild(RssDOM.createElement("link"))
    Set RssNode = RssSubNode.appendChild(RssDOM.createElement("description"))
    Set RssNode = RssSubNode.appendChild(RssDOM.createElement("author"))
    Set RssNode = RssSubNode.appendChild(RssDOM.createElement("category"))
    Set RssNode = RssSubNode.appendChild(RssDOM.createElement("pubDate"))
Else
    Dim XmlRss, XMLDOM, i, j, oItem
    On Error Resume Next
    Set XmlRss = Server.CreateObject("MSXML2.ServerXMLHTTP")
    XmlRss.SetTimeouts 5000, 5000, 120000, 60000
    XmlRss.Open "GET", FeedUrl, False
    XmlRss.Send
    If Err.Number <> 0 Then
        Set RssNode = RssTempNode
        Set RssSubNode = RssNode.appendChild(RssDOM.createElement("item"))
        Set RssNode = RssSubNode.appendChild(RssDOM.createElement("title"))
        RssNode.text = "服务器超时"
        Set RssNode = RssSubNode.appendChild(RssDOM.createElement("link"))
        Set RssNode = RssSubNode.appendChild(RssDOM.createElement("description"))
        Set RssNode = RssSubNode.appendChild(RssDOM.createElement("author"))
        Set RssNode = RssSubNode.appendChild(RssDOM.createElement("category"))
        Set RssNode = RssSubNode.appendChild(RssDOM.createElement("pubDate"))
 

我在学习这样一段ASP代码，不太理解RSS这个东西是怎么从数据库中读取出数据的，或者说是这个某个页面会向这个页面提交数据，我应该怎样找到他读取的是什么数据，这个数据源在什么地方？

[hookee]

在FeedUrl 可设置rss的url，比如（http://www.javaeye.com/rss）此url输出rss格式的xml文件.
xml文件的生成方法和一般网页类似的，只不过按照xml格式写.

[x58099856]

我想知道的是，RSS从哪获取的数据（就是数据源）通过ASP页面生成XML，哪段是从数据库中取出数据的代码，要是没有从数据库中取出数据的代码，他怎么能保证在数据库中添加记录后，XML也生成相应的文件呢

[hookee]

你这段代码不是从数据库取数据 ，是从url取xml数据
url输出xml格式的数据并不需要生成xml文件，可以动态生成的。