1. 爱易网页
  2. ASP教程
  3. 读取符合RSS2.0规范的XML文档_XML相关_ASP教程

读取符合RSS2.0规范的XML文档_XML相关_ASP教程

日期：2009-03-07　 浏览次数：20838 次

想试着做一个简单的读取RSS新闻的页面

虽然将.net中关于XML的几个类看了个遍

但还是不太懂

这是我写的一个读取XML文档的函数

直接在设计页面中调用就行

Public Function LoadRSS(ByVal RssUrl As String, ByVal showNewsCount As Integer) As String

        Try

            '读取xml文档
            Dim objXMLDoc As New System.Xml.XmlDocument()
            Dim strNodes As String = ""
            Dim objItems As System.Xml.XmlNodeList
            Dim objItems1 As System.Xml.XmlNodeList
            Dim objNode As System.Xml.XmlNode
            Dim objNode1 As System.Xml.XmlNode
            Dim i As Integer
            Dim newsTitle As String
            Dim newsUrl As String
            Dim newsDescription As String
            Dim newsPubDate As String
            Dim newsAuthor As String
            Dim newsCategory As String

            objXMLDoc.Load(RssUrl)

            objItems = objXMLDoc.GetElementsByTagName("item")

            If RssUrl = "" Then
                RSSNews = "未找到信息源，您可刷新重试或联系管理员！"
                Exit Function
            End If

            If CStr(showNewsCount) = "" Or showNewsCount > 30 Then
                showNewsCount = 10        '默认新闻显示数目
            End If

            If showNewsCount = 0 Then
                showNewsCount = objItems.Count
            End If

            If objXMLDoc.HasChildNodes = True Then
                i = 1
                For Each objNode In objItems

                    If objNode.HasChildNodes = True Then
                        objItems1 = objNode.ChildNodes
             

相关资料更多>

  1. asp破绽
  2. 问个简单的分组有关问题
  3. 要让报表底色间隔显示十行，并且每行显示4条信息
  4. 组件下传之AspUpload使用方法
  5. 浅谈asp编程中的测试打印、有效性检查及错误处理。不足之处请高手（尤其是斑竹大人）指教
  6. ASP网站漏洞解析及入侵防范方法
  7. 问一个正则匹配自定义标签的有关问题
  8. ASP教程:ADO存取数据库时如何分页显示
  9. 网页被写入这样的代码怎么处理