救助ASP源代码 RSS阅读器代码

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True

Dim Xmldoc,XmlPath,SiteInfoNodes,ArtNodes,RsNum,i
Dim StrLink,StrTitle,StrAuthor,StrCategory,StrPubdate,StrGuid,StrDescription
XmlPath = "http://cdsc.com.cn/rss.xml"
Set Xmldoc = Server.CreateObject("MSXML.DOMDocument")
XmlDoc.SetProperty "ServerHTTPRequest",True
XmlDoc.async = False
XmlDoc.resolveExternals = True
XmlDoc.validateOnParse = False
XmlDoc.Load (XmlPath)
Set SiteInfoNodes = XmlDoc.DocumentElement.selectSingleNode("channel")
RsNum = Cint(SiteInfoNodes.selectNodes("item").length)
For i = 0 to RsNum-1
StrLink = SiteInfoNodes.childNodes(7+i).childNodes(0).text
StrTitle = SiteInfoNodes.childNodes(7+i).childNodes(1).text
StrAuthor = SiteInfoNodes.child