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

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

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

想试着做一个简单的读取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. 限制某段IP地址访问网站
  2. 使用ASP加密算法加密你的数据（二）_ASP安全加密_ASP教程
  3. asp utf-8编码 乱码有关问题
  4. access能导入20万数据吗？该如何解决
  5. 帮小弟我看看这小段代码
  6. ASP制作多用户版计数器
  7. Request的有关问题
  8. rss有关问题，实在不行了，
  9. iis在2003中显示当前页不可用是咋回事？(!)