电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> Asp>>Asp读取远程RSS的代码:

Asp读取远程RSS的代码

来源:网络 | 2006-12-22 | (有2923人读过)

<%@ 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
%>


 

Asp热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2024 电脑爱好者 版权所有 备案号:鲁ICP备09059398号