- <%@ 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
- %>
很多blog的RSS不一样…想办法调整中!!!