<%@ 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.childNodes(7+i).childNodes(2).text
StrCategory = SiteInfoNodes.childNodes(7+i).childNodes(3).text
StrPubdate = SiteInfoNodes.childNodes(7+i).childNodes(4).text
StrGuid = SiteInfoNodes.childNodes(7+i).childNodes(5).text
StrDescription = SiteInfoNodes.childNodes(7+i).childNodes(6).text
'response.flush
Next
Set XmlDoc = NoThing
%>
