练习 ASP 读取远程RSS的代码…

发布于:作者:
分类: Script

  1. <%@ LANGUAGE = VBScript CodePage = 936%>    
  2.   
  3. <%    
  4.   
  5. Option Explicit    
  6.   
  7. Response.Buffer = True    
  8.   
  9. Dim Xmldoc,XmlPath,SiteInfoNodes,ArtNodes,RsNum,i    
  10.   
  11. Dim StrLink,StrTitle,StrAuthor,StrCategory,StrPubdate,StrGuid,StrDescription    
  12.   
  13. XmlPath = "http://cdsc.com.cn/rss.xml"    
  14.   
  15. Set Xmldoc = Server.CreateObject("MSXML.DOMDocument")    
  16.   
  17. XmlDoc.SetProperty "ServerHTTPRequest",True    
  18.   
  19. XmlDoc.async = False    
  20.   
  21. XmlDoc.resolveExternals = True    
  22.   
  23. XmlDoc.validateOnParse = False    
  24.   
  25. XmlDoc.Load (XmlPath)    
  26.   
  27. Set SiteInfoNodes = XmlDoc.DocumentElement.selectSingleNode("channel")    
  28.   
  29. RsNum = Cint(SiteInfoNodes.selectNodes("item").length)    
  30.   
  31. For i = 0 to RsNum-1    
  32.   
  33. StrLink = SiteInfoNodes.childNodes(7+i).childNodes(0).text    
  34.   
  35. StrTitle = SiteInfoNodes.childNodes(7+i).childNodes(1).text    
  36.   
  37. StrAuthor = SiteInfoNodes.childNodes(7+i).childNodes(2).text    
  38.   
  39. StrCategory = SiteInfoNodes.childNodes(7+i).childNodes(3).text    
  40.   
  41. StrPubdate = SiteInfoNodes.childNodes(7+i).childNodes(4).text    
  42.   
  43. StrGuid = SiteInfoNodes.childNodes(7+i).childNodes(5).text    
  44.   
  45. StrDescription = SiteInfoNodes.childNodes(7+i).childNodes(6).text    
  46.   
  47. 'response.flush    
  48.   
  49. Next    
  50.   
  51. Set XmlDoc = NoThing    
  52.   
  53. %>   

很多blog的RSS不一样…想办法调整中!!!

留下评论

您的电子邮箱地址不会被公开。 必填项已用 * 标注